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22 PROGRAMAÇÃO DEJOGOS 22 


UM SIMULADOR 


Ligue as turbinas do avião e observe 
o jogo dos ponteiros no painel 

dos mostradores. Mas não deixe de 
apertar o cinto, pois o 

piloto automático é meio maluco. 


Já vimos como reproduzir o interior 
de uma cabine de avião na tela do mi- 
crocomputador. No programa do arti- 
go anterior para as linhas TRS-Color, 
MSX, Apple e TK-2000, o avião foi dei- 
xado estático, em pleno ar. Evidente- 
mente, uma situação assim nunca ocor- 
re na vida real, 

Neste artigo, nosso aeroplano vai sair 
voando e os instrumentos do painel vão 
ganhar vida, para que possamos acom- 
panhar seu movimento, apesar de ain- 
da não estarmos em condições de mantê- 
lo sob controle. 


COMO FAZER O AEROPLANO VOAR 


Esta é certamente a parte mais longa 
da listagem: uma série complexa de va- 
riáveis independentes deve ser constan- 
temente calculada para reproduzir e 
controlar o comportamento do aparelho 
em vôo. Ao mesmo tempo, os instru- 
mentos do painel precisam ser redese- 
nhados à medida que a posição e a alti- 
tude do avião sofrem modificações. Da 
mesma forma, os números dos mostra- 
dores são impressos para que saibamos 
sua posição e sua orientação. 


APR0XIME-SE DA PISTA 


Uma imagem da pista no radar nos 
mostra o ángulo de aproximaçào no 
Spectrum e no MSX. No TRS-Color, 





uma imagem da pista pode ser obser- 





UM PILOTO AUTOMÁTICO 


T PARA CONDUZIR O AVIÃO 





APROXIME-SE DA PISTA 
COMO TRAÇAR O RUMO 
FAÇA O PAINEL FUNCIONAR 





vada através da janela, à medida que 
chegamos próximo à pista. Esta apare- 
ce progressivamente, aproveitando a ca- 
pacidade do TRS-Color em desenhar 
elipses. Ja os usuários do Apple e do 
TK-2000 devem se orientar pela bússo- 
la (bearing), pela diregáo da pista (run- 
way) e pela distáncia do aviào em rela- 
ção ao eixo longitudinal da pista (drift). 


URSO DO APARELHO 


Diversos fatores devem ser conside- 
rados para que se possa calcular a po- 
sição do aparelho num dado momen- 
to. A direção em que estamos seguindo, 
por exemplo, é afetada pela dos ventos 
e pela posição dos ailerons instalados 
nas duas asas. A velocidade de cruzeiro 
depende, por sua vez, da intensidade 
do vento. As velocidades de ascensão e 
de mergulho estão sempre relacionadas 
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com a de cruzeiro, e assim por diante. 

Para manter sempre atualizados os 
valores nos mostradores, as variáveis 
tém de ser recalculadas e colocadas no- 
vamente na tela. 


2 LET WY=0: LET WX=0: LET GZ 
=0: LET GY=0: LET GX=0 
5 LET RW=0: LET Y1=120: LET 
Y2=120: LET Y3=40: LET Y4-40 
LET POW=0: LET GC=0: LET R 
B=0: LET LL=0: LET YC=0: LET 
AD=0: LET ST=0: LET RL=0 
LET BC=0: LET NC=0: LET PT=0 
LET РХ=0: LET VZ=0: LET VY 
=0: LET VX=0 
500 LET RA=AD*C: 
RA 
510 LET VY=AS*COS RA: RETURN 
1000 LET PZ=PZ+GZ: LET PY=Py+GY 
LET PX=PX+GX 
1025 IF ST-1 THEN PRINT OVER 
l;AT 4,9;"M E R G U L H O": LET 
ST=0: GOTO 1040 
1030 IF AS<30 THEN 
1040 LET AD=AD+RL 
LET AD=AD+360 
1050 IF AD>359 THEN 
360 
1060 LET VZ=AS*SIN (PT*C)-10+AS 
/15 
1070 LET GZ-VZ: 
ET GX=UX-+WX 
1080 IF VY-0 THEN 
GOTO 1100 
1090 LET GD--ATN (UX/VY)/C 
1100 GOSUB 500 
1110 RETURN 
1500 LET ST-1: PRINT OVER 1;AT 
MERGULHO”: FOR M= 
FOR N-20 TO -20 STEP 






















LET VX=AS*SIN 


GOSUB 1500 
TF AD<O THEN 


LET AD=AD- 


LET GY-UY*WY: L 


LET GD=-PI/2 








TO 4 





SOUND .01,N: NEXT N: NEXT M 
1510 LET RL-INT (RND*21)-9: LET 
PT--21-INT (RND*5) 


1520 RETURN 

2180 IF GC<>0 THEN GOSUB 2200 

2190 LET AS=AS+16*(TC*30-AS-8*P 

T)/AS: GOSUB 2200: GOTO 2205 

2200 PLOT 35,50: DRAW OVER 1;1 

5*SIN (AS*PI/200),15*COS (AS*PI 

/200): RETURN 

2205 IF GC<>0 THEN PLOT 155,50 
DRAW OVER 1;10*SIN (TN*PI/5) 

+10*C0S (TN*PI/5): PLOT 155,50: 
DRAW OVER 1;15*SIN (UN*PI/500 

),15*COS (UN*PI/500) 

2210 LET TN=PZ/1000: LET UN=PZ- 

1000*INT TN: PLOT 155,50: DRAW 
OVER 1;10*SIN (TN*PI/5),10*COS 
(TN*PI/5): PLOT 155,50: DRAW 

OVER 1;15*SIN (UN*PI/500),15*CO 

S (UN*PI/500) 

2220 IF GC<>0 THEN GOSUB 2230 

2225 IF POW=-1 AND TC>2 THEN L 

ET TC-TC-2 

2226 IF POW=1 AND TC<8.8 THEN 

LET TC=TC+2 

2228 GOSUB 2230: GOTO 2240 

2230 PLOT 215,50: DRAW OVER 1; 

15*SIN (TC*PI/5),15*COS (TC*PI/ 

5): RETURN 



























2240 PRINT AT 21,2;ABS INT AD;" 


2250 IF PY-0 THEN LET RB=0: GO 
TO 2260 

2255 LET RB-ATN (PX/PY)/C: IF P 
Y»0 THEN LET RB-RB*180 


2260 IF RB<O THEN LET RB=RB+36 
0 


2270 PRINT AT 21,10; 
ТАТ 21,18;АВЗ ІМТ РХ 
2280 PRINT AT 21,25;INT (SQR (P 
Y*PY*PX*PM»O);" " 

2290 ІҒ (Ү1<-110 AND Ү2<=110) О 
R (Y1>=130 AND Y2>=130) THEN G 
OTO 2300 

2295 IF GC<>0 THEN PLOT OVER 
1;X1,168-Y1: DRAW OVER 1;X2-PE 
EK 23677,168-Y2-PEEK 23678 

2300 LET YC=120+(PT/3): LET X1= 


NT RB;" " 










80; LET X2=110: LET Yl-YC*17*TA 
N (RL*2*C): LET Y2=YC-17*TAN (R 
L*2*C) 

2310 ІР (ҮС<110 ОН ҮС>130) АМО 
RL=0 THEN GOTO 2376 

2320 IF Y1<110 THEN LET X1=95- 
(95-X1)*(110-YC)/(Yl-YC): LET Y 
1-110: GOTO 2340 

2330 IF Y1>130 THEN LET X1=95- 
(95-X1)*(130-YC)/(Y1-YC): LET Y 
12130 

2340 IF Y2<110 THEN LET X2=95- 
(95-X2)*(110-YC)/(Y2-YC): LET Y 
22110: GOTO 2360 

2350 IF Y2>130 THEN LET X2=95- 
(95-X2)*(130-YC)/(Y2-YC): LET Y 
272130 

2360 IF X1«80 OR X2>110 THEN С 
ото 2376 


2370 PLOT OVER 1;X1,168-Yl: DR 
AW OVER 1;X2-PEEK 23677,168-Y2 
-PEEK 23678 

2376 IF (RL-RR AND PP-PT) THEN 
GOTO 2500 

2377 IF (Y3<=2 AND Y4<=2) OR (Y 
3>=90 AND Y4>=90) THEN GOTO 23 
80 

2378 IF GC<>0 THEN PLOT OVER 
1;X3,176-Y3: DRAW OVER 1;X4-PE 
EK 23677,(176-Y4)-PEEK 23678 
2380 LET YC=33+PT*4: LET X3=11: 
LET X4-244: LET Y3-YC*118*TAN 
(RL*2*C): LET Y4=YC-118*TAN (RL 
*2*C) 

2390 IF (YC<2 OR YC>90) AND RL= 
O THEN GOTO 2450 


2400 IF Y3<2 THEN LET X3=128-( 


128-X3)*(2-YC)/(Y3-YC): LET Y3- 
2: GOTO 2420 
2410 IF Y3>90 THEN LET X3=128- 


(128-Х3)%(90-ҮС)/(Ү3-ҮС): 
3-90 

2420 IF Y4<2 THEN LET X4=128-( 
128-X4)* (2-YC)/(Y4-YC): LET Y4= 
2: GOTO 2440 

2430 IF Y4>90 THEN 
(128-X4) * (90-YC) / (Y4-YC) : 
4-90 

2440 IF X3<11 OR X4>244 THEN G 
OTO 2500 

2445 OVER 1: PLOT X3,176-Y3: DR 
AW X4-PEEK 23677, (176-Y4) -PEEK 
23678: OVER 0 
2500 GOSUB 8000 


LET Y 


LET X4=128- 
LET Y 





2505 IF GC=0 THEN LET GC=1 
2510 LET RR=RL: LET PP=PT: 
RN 

5080 LET GZ=VZ: 
ЕТ GX=VX+WX 
5090 LET TC-5 
5100 LET RT=3: 
=50 

5500 IF INT (RND*5)=1 THEN LET 
RL=RL+INT (RND*5)-2: IF INT (R 
ND*5)=1 THEN LET PT=PT+3-INT ( 
RND*2)+1*2 


RETU } 


LET GY=VY+WY: L 


LET TP=5: LET WR 


5510 GOSUB 1000: IF PZ<0 THEN 
GOTO 5530 

5520 GOSUB 2180: GOTO 5500 | 
5530 GOTO 5500 k 
8000 IF GC<>0 THEN PLOT 127,17 
4: DRAW OVER 1;0X,0Y 


8010 LET OX*16*SIN (RB*(PI/180) 
): LET OY--(16*ABS COS (RB*(PI/ 


180))) 
8020 PLOT 127,174: DRAW OVER 1 
¡OX,OY 


8025 LET WB=AD: 
LET WB=WB-360 


IF AD>180 THEN 













8026 IF RB>180 THEN LET WB=WB+ 
360-RB: GOTO 8040 
8030 LET WB=WB-RB 
8040 IF RW=1 THEN PLOT OVER 1 






¡¿RDX,175-RDY 
8050 LET RW= 
N RETURN 
8060 LET RDX=X3+INT (((X4-X3)/2 
)-SIN (WB*(PI/180))*(X4-X3) *6) 
8070 LET RDY=Y3+((Y4-Y3)* ( (RDX- 
X3) / (X4-X3))+2) 

8080 IF RDY<2 OR RDY>90 OR RDX< 
11 OR RDX>244 THEN RETURN 





IF ABS WB>57 THE 
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8090 LET RW=1: 
,175-RDY 
8100 RETURN 


O POKE na linha 1 trava as linhas 
maiúsculas do computador. A linha 5 
zera todas as variáveis. A linha 110, que 
já foi digitada na primeira parte do pro- 
grama (ou seja, no artigo anterior), en- 
via o computador para a linha 5000, on- 
de é desenhado o interior da cabine. A 
linha 5080 cuida das variáveis que de- 
terminam a posigáo do aviáo no espa- 
ço: GZ se refere à distância do apare- 
lho ao longo do eixo Z — sua altitude; 
VZ é a velocidade ao longo desse mes- 
mo eixo; VY é a velocidade ao longo do 
eixo Y — para frente e para trás; WY 
é a velocidade do vento nessa mesma di- 
reção. GX, VX e WX correspondem à 
distância percorrida, velocidade e velo- 
cidade do vento em relação ao eixo X 
— direita e esquerda. 

A linha 5090 estabelece o valor ini- 
cial da rotação do motor. A linha 5100 
define os limites da inclinação do avião 
(RT, relacionada com os movimentos la- 
terais), assim como da ascensão (TP, 
que faz o avião subir ou descer) e da lar- 
gura da pista (WR). 

A linha 5500 é um comando tempo- 
rário encarregado de manobrar o avião 
até o momento em que a rotina de con- 
trole propriamente dita é digitada (o que 
será feito no próximo artigo desta série). 


PLOT OVER 1;RDX 








A linha 5510 chama a sub-rotina que 
começa na linha 1000 e termina em 
1110. Essa sub-rotina recalcula os valo- 
res de todas as variáveis à medida que 
o avião se movimenta. As linhas 1025 
e 1030 verificam se o aparelho entrou em 
parafuso, por ter uma velocidade mui- 
to baixa (inferior a 30m por segundo). 
Caso isso aconteça, será chamada a sub- 
rotina 1500, que se encarrega de repro- 
duzir os efeitos de um mergulho. A li- 
nha 5510 impede que possamos prever 
o rumo do avião durante a queda (este 
pode mergulhar diretamente ou então 
entrar em parafuso). 

A linha 1100 chama a sub-rotina 500, 
que calcula o ângulo da trajetória do 
avião. 

A próxima grande sub-rotina a ser 
chamada começa na linha 2180 e termi- 
na em 2510. Ela redesenha os mostra- 
dores e contadores à medida que a in- 
formação que estes trazem se modifica. 
A linha 2180 verifica o contador GC pa- 
ra ver se há algo a ser redesenhado. A 
sub-rotina 2200 desenha a nova posição 
dos ponteiros do mostrador da veloci- 
dade do vento (airspeed). As linhas 2205 
e 2210 calculam e redesenham as duas 
novas posições dos ponteiros que mar- 
cam a altitude. A linha 2230 movimen- 
ta os ponteiros, usando os cálculos das 
linhas 2225 e 2226. 

O contagiros é atualizado pela linha 





2240. As linhas 2250 a 2270 calculam a 
direção da pista (runway) e o desvio do 
avião em relação ao eixo principal des- 
ta última (drift). A distância até o cen- 
tro da pista é calculada e impressa pela 
linha 2280. 

O horizonte artificial do segundo 
mostrador é calculado e desenhado pe- 
las linhas 2280 a 2370. 

A linha 2376 verifica o horizonte que 
aparece na janela, enquanto as linhas 
2377 a 2445 o recalculam e o redese- 
nham, conforme o caso. 

A linha 2500 chama a sub-rotina que 
começa na linha 8000 e termina na 8100. 
Essa sub-rotina calcula e desenha a i 
gem da pista no radar, que pode ser vista 
no topo da tela, e o pontinho logo abai- 
xo da linha de horizonte. 








100 PRINT RND(-TIME) 

500 RA=AD*C:VX=VUXSIN(RA) 

510 VY-VU*COS (RA) : RETURN 

1000 PZ-PZ*GZ:PY-PY*GY:PX-PX*GX 
1020 VV-UU*16* (TC*30-UV-B*PT) /V 
у 

1030 IF ST=1 THEN LINE(90,1)-(2 
30,8),4,BF:ST=0:GOTO 1050 

1040 IF VV<30 THEN GOSUB 1500 
1050 AD=AD+RL:TF AD<O THEN AD=A 
D+360 

1060 IF AD>359 THEN AD=AD-360 
1070 VZ=VVASIN(PT*C)-10+VV/15 
1080 GZ-VZ:GY-UY*WY:GX-UX*WX 
1090 IF VY-0 THEN GD--PI/2:GOTO 
1110 

1100 GD--ATN(UX/VY)/C 

1110 GOSUB 500 

1120 RETURN 

1500 ST-1:X-96:Y-1:COLOR 6 

1510 AS-"MERGULIIO":GOSUB 4000:X 
=97:GOSUB 4000 

1520 PLAY"T255AGFEDCAGFEDC" 
1530 RL=INT(RND(1)*21)-9:PT=-21 
-INT (RND(1)*5) 

1540 RETURN 

2000 COLOR 15 

2005 LINE(35,128)-(35+15*SIN(VI 
*PI/200),128-15*COS(V1*PI/200)) 
,8 

2010 LINE(35,128)- (35*15*SIN(VV 
*PI/200),128-15*COS (UV*PI/200)) 
2015 LINE(155,128) -(155*10*SIN( 
T1*PI/5),128-10*COS (TI *PI/5)),8 
2020 TN*PZ/1000:UN*PZ-1000*INT( 
TN) :LINE (155,128) - (155*10*SIN(T 
N*P1/5),128-10*COS (TN*PI1/5) ) 
2025 LINE(155,128)-(155*15*SIN( 
U1*PI/500),128-15*COS (UL*PI/500 
)),8 

2030 LINE (155,128)- (155*15*SIN( 
UN*PI/500),128-15*COS (UN*PI/500 
3) 

2035 LINE(215,128)-(215+15*SIN( 
T2*PI/5),128-15*COS (T2*PI/5)),8 
2040 LINE(215,128)-(215*15*SIN( 
TC*PI/5),128-15*COS (TC*P1/5)) 























2050 COLOR 15:X=16:Y=180:AS=STR MN 





S(ABS(INT(AD))):GOSUB 3900 

2060 IF PY=0 THEN RB=0 ELSE RB= 
ATN(PX/PY)/C:IF PY>0 THEN RB=RB 
+180 

2070 IF ВВ<0 THEN RB=RB+360 
2080 X-79:AS-STR$(INT(RB)) :GOSU 
B 3900:X-138:A$-STRS$ (INT (PX)) :G 

OSUB 3900 

2090 X=194:AS=STRS (INT (SQR (PY*P 
Y*PX*PX))):GOSUB 3900 

2100 ҮС=128+РТ:Х1=80:Х2=110:Ү1= 
YC+17*TAN(RL*2*C) :Y2=YC-17*TAN( 
RL*2*C) 

2110 IF(YC<113 OR YC>143) AND R 
L=0 THEN 2320 

2120 IF Y1<113 THEN X1=95- (95-X 
1) * (105-YC) /(Y1-YC) :Y1=113:GOTO 
2140 

2130 IF Y1>143 THEN X1=95- (95-X 
1) * (135-YC) / (Y1-YC) :Y1=143 

2140 IF Y2<113 THEN X2=95- (95-X 
2)* (105-YC) / (Y2-YC) :Y27113:GOTO 
2160 

2150 IF Y25143 ТНЕМ Х2=95- (95-Х 
2)*(135-YC)/(Y2-YC):Y2=143 

2160 IF X1<80 OR X25110 THEN 21 
80 

2165 DRAW ' "BM81,128ClOR9FSESR9" 
2170 LINE(X5,Y5) - (X6, Y6) , B: LINE 
(X1,Y1)- (X2,Y2) :X5=X1:Y5=Y1:X6= 
X2:Y6=Y2 

2180 IF X7-R>10 AND X7+R<245 AN 
D Y7>0 AND Y7<80 THEN CIRCLE (X7 


,+Y7),R,4,0,.5,10 

2190 IF RL=RR AND PP=PT THEN 22 
90 

2200 IF HF=1 THEN LINE (X3,Y3)- 
(Х4,Ү4),4 


2210 HF=0:YC=33+PT*4:X3=16:X4=2 
39:Y3=YC+118X*TAN(RL*2*C) :Y4=YC- 
118*TAN(RL*2*C) 

2220 IF(YC<1O OR YC>79) AND RL= 
0 THEN 2290 

2230 IF Y3<1 THEN X3=128- (128-X 
3) * (1-YC) /(Y3-YC) :Y3=1:GOTO 225 
0 


2240 IF Y3>79 THEN X3=128-(128- 
Х3)%(79-ҮС) / (Ү3-ҮС) :Ү3-79 

2250 ІҒ Ү4<1 ТНЕМ Х4-128-(128-Х 
4)* (1-YC)/(Y4-YC) :Y4=1:GOTO 227 
0 


2260 1Е Ү4>79 ТНЕМ Х4=128-(128- 
X4) * (79-YC) / (Y4-YC) :Y4779 
2270 IF X3<16 OR X4>239 THEN 22 


HF=1:LINE (X3,Y3)- (X4,Y4),1 
WB=AD:IF AD>180 THEN WB=WB 


IF RB>180 THEN WB=WB+360-R 
B ELSE WB=WB-RB 
2310 IF ABS(WB)>60 AND ABS(PY)> 


1000 THEN 2370 

2320 AN-118/(60*SQR ( (X3-X4) * (X3 
-X4)* (Y3-Y4) * (Y3-Y4) ) ) : X72 (X3*X 
4) /2*8GN (X3-X4) *WB*AN* (X3-X4) 
2330 Y7-(Y3*Y4) /2*2*WB*AN* (Y3-Y 
4):IF X7<16 OR X7>239 OR Y7<1 0 
R Y7>79 THEN 2370 

2340 IF ABS(PY)X1000 THEN R-8-Y 
7/10 ELSE R-4000/ABS(PY):IF R*1 
0+Y7>80 THEN R=8-Y7/10 

2350 IF Y7<1 OR Y7>79 OR X7-R<1 


6 OR 
2360 
2370 
2380 
3900 
5080 
5090 
5100 


X7+R>239 THEN 2370 

CIRCLE (X7, Y7) ,R,15,0,.5,10 
Vl-VV:Ul-UN:Tl-TN:T2-TC 
RA=RL:PP=PT: RETURN 

LINE (X, Y) - (X+50,Y+8) ,2,BF 
GZ=UZ:GY=UY+WY : GX=UX+WX 
TC-5 

RT=3:TP=5:WR=50 

5190 DRAW "BMB1,128C10R9FSESR9” 
5500 IF INT(RND(1)*10)=1 THEN R 
L=RL-SGN (RL) +INT (RND (1) *5-2) 
5505 IF INT(RND(1)*10)=1 THEN P 
T=PT+3-INT (RND(1)*2+1)*2 

5510 GOSUB 1000:ІҒ Р2<0 THEN 55 
30 

5520 GOSUB 2000:GOTO 5500 

5530 GOTO 5530 


A linha 100 ““embaralha as cartas”, 
permitindo a criação de números ao aca- 
so. A 5080 estabelece os valores das va- 
riáveis que controlam a posição do apa- 
relho no espaço, conforme a sua velo- 
cidade e a força e direção do vento. GZ 
nos revela a distância percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade nesse eixo. VY informa a veloci- 
dade ao longo do eixo Y (frente-trás); 
WY, a velocidade do vento nessa mes- 
ma direção; GX, VX e WX correspon- 
dem respectivamente à distância percor- 
rida, à velocidade do aparelho e à velo- 
cidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de maneira que tanto pode- 
mos mergulhar diretamente para o chão 
como podemos entrar em parafuso. A 
sub-rotina 500, que é chamada pela li- 
nha 1110, calcula o ângulo em que o 
aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
linha 2380 cuida do restante do progra- 
ma. Ela atualiza a tela, ajustando o pai- 
nel de instrumentos, que mostra o mo- 
vimento do avião. Para fazer isso, é ne- 
cessário, primeiramente, apagar o anti- 
go conteúdo de cada instrumento e de- 
senhar a seguir os ponteiros correspon- 


dentes à nova posição do aparelho. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2005 e 2010, en- 
quanto as linhas 2015, 2020, 2025 e 2030 
cuidam do mostrador de altitude. O 
contagiros é modificado pelas linhas 
2035 e 2040; a linha 2050 corrige a dire- 
ção em que o avião está seguindo (bea- 
ring, que é o ângulo da bússola medido 
em graus). A direção da pista (runway, 
também em graus) é modificada pelas 
linhas 2060 a 2080, e o novo valor da 
distância é impresso pela linha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte é desenhado pelas linhas 
2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A 2350 verifi- 
ca se a pista pode ser desenhada na te- 
la. A 2180 apaga a versão antiga quan- 
do uma nova é desenhada. 

Execute então o programa e veja o 
avião voar sozinho... por enquanto. 


+ i BUSERCENSUUENS 


800 RA = AD * C:UX * AS * SIN 
(RA) 
810 VY = AS * COS (RA): RETURN 


1000 PZ = PZ + GZ:PY = PY + GY: 
PX = PX + GX 

1020 AS = AS + 16 * (TC * 30 - 
AS - 8 * PT) / AS 


-h1030 IF ST = 1 THEN ST = 0: GO 
TO 1050 
1040 IF AS < 30 THEN GOSUB 15 
00 


1050 AD = AD + RL: IF AD < 0 TH 
EN AD = AD + 360 

1060 IF AD > 359 THEN AD = AD 
- 360 

1070 vz = AS * 
10 * AS / 15 
1080 GZ = VZ:GY = ЧҮ + WY:GX = 


SIN (PT * C) - 


VX + WX 

1090 IF VY = O THEN GD = - PI 
/ 2: GOTO 1110 

1100 GD = - ATN (VX / VY) / C 

1110 GOSUB 800 

1120 RETURN 

1500 ЗТ = 1 

1510 RL = INT ( RND (1) * 21 + 
1) = 10:РТ = - 20- INT ( RN 

D (1) *5 +2) 

1520 RETURN 

2000 HCOLOR= 0 

2010 HPLOT 41,134 TO 41 + 20 * 
SIN (Al * PI / 200),134 - 20 


ж COS (Al * PI / 200) 
2015 HCOLOR= 3: HPLOT 41,134 T 


O 41 + 20 * SIN (AS * PI / 200 
),134 - 20 * COS (AS * PI / 20 
0) 

2020 HCOLOR= 0: HPLOT 177,134 


TO 177 * 15 * SIN (T1* P1 / 5 





),134 - 15 * COS (Tl * PI / 5) 


2025 HCOLOR= 3:TN = PZ / 1000: 
UN = PZ - 1000 * INT (TN): HPL 
OT 177,134 TO 177 * 15 * SIN ( 
TN * PI / 5),134 - 15 * COS (T 
NM * pI 7 5) 

2030 HCOLOR- 0: HPLOT 177,134 

TO 177 * 20 * SIN (Ul * PI / 5 
00),134 - 20 * COS (Ul * PI / 

500) 

2035 HCOLOR- 3: HPLOT 177,134 


SIN (UN * PI / 5 
COS (UN * PI / 


TO 177 * 20 * 
00),134 - 20 * 
500) 
2040 HCOLOR= 0: HPLOT 245,134 
TO 245 * 20 * SIN (T2 * PI / 5 
).134 - 20 * COS (T2 * PI / 5) 
2045 HCOLOR= 3: HPLOT 245,134 
TO 245 + 20 * SIN (TC * PI / 5 
),134 - 20 * COS (TC * PI / 5) 
2050 L = 23:C = 4:A$ = LEFTS ( 
STR$ ( ABS ( INT (AD))) +” 


",3): GOSUB 4000 

2060 IF PY = O THEN RB = 0: GO 
TO 2070 

2062 RB = ATN (PX / PY) / C 
2065 IF PY » 0 THEN RB * RB * 
180 

2070 IF RB < O THEN RB = RB + 
360 

2080 C = 14:AS = LEFTS ( STRS 
(INT (RB)) +” ",3): GOSUB 4 
000:С = 24:А$ = LEFTS ( STRS ( 
INT (PX)) * " ",4): GOSUB 4 
000 

2090 C - 32:A$ * LEFTS ( STR$ 
( INT ( SQR (PY * PY * PX * PX) 
dur ",5): GOSUB 4000 
2100 ҮС = 134 + РТ:Х1 = 90:Х2 = 


130:Ү1 = ҮС + 17 * TAN (RL * 


2 * С):Ү2 = ҮС - 17 * TAN (RL 
MZ mc) 

2110 IF (YC < 119 OR YC > 149) 
AND RL = 0 THEN 2380 

2120 IF Yl € 119 THEN Xl - 110 
- (110 - X1) * (119 - YC) / (Y 
1 - YC):Y1 = 119; GOTO 2140 
2130 IF Yl > 149 THEN Xl - 110 
- (110 - X1) * (149 - YC) / (Y 
1 - YC):Y1 = 149 

$9140 IF Y2 < 119 THEN Х2 = 110 
- (110 - X2) * (119 - YC) / (Y 
22- Ү6):Ү2 - 119 

2150 IF Y2 > 149 THEN Х2 = 110 
= (110 - X2) * (149 - YC) / (Y 
2 - YC):Y2 = 149 

2160 IF X1 < 90 OR X2 > 130 TH 
EN 2190 

2170 HCOLOR= 0: HPLOT X5,Y5 TO 
Х6,Ү6 

2175 HCOLOR= 3: HPLOT X1,Y1 TO 
X2,Y2 

2177 HCOLOR- 5: HPLOT 85,138 T 
0 104,138 TO 109,148 TO 114,138 
TO 134,138 

2190 IF RL = RR AND PP = PT TH 
EN 2380 

2200 IF HF = 1 THEN HCOLOR= 0 


: HPLOT X3,Y3 TO X4,Y4 

2210 HF = 0:YC = 33 + PT * 4:X3 
= 11:X4 = 275:Y3 = YC + 118 * 
TAN (RL * 2 * C):Y4 = YC - 118 
Ж TAN (RL * 2 * C) 


2220 IF (YC < 10 OR YC > 79) À 
ND RL = 0 THEN 2380 
2230 ІҒ ҮЗ < 1 THEN X3 = 143 - 
(143 - X3) # (1 = YC) / (V3 > 
YC):Y3 = 1: GOTO 2250 
2240 IF Y3 > 79 THEN X3 = 
+ (142 - X3) * (79е ҮС; у 
* YC):Y3 = 79 
2250 IF Y4 < 1 THEN X4 = 143 - 
(143 - X4) * (1 - 0) Y ARA = 
YC):Y4 = 1: GOTO 2270 
2260 IF Y4 > 79 THEN X4 = 143 
- (143 - X4) * (79 - YC) / (Y4 
- YC):Y4 - 79 
2270 IF X3< 11 OR X4 > 275 TH 
EN 2380 
2280 HF = 1: 
3,Y3 TO X4,Y4 
2380 RR = RL:PP = PT:Al = AS:UL 
= UN:T1 = TN:T2 = TC:X5 = X1:Y 
5 = Y1:X6 = X2:Y6 = Y2: RETURN 


143 
(Y3 


HCOLOR= 3: HPLOT X 


5080 GZ = VZ:GY = VY + WY:GX = 
VX + WX 

5090 TC = 5 

5100 RT = 3:TP = 5:WR = 50 
5500 IF INT ( RND (1) * 10 + 
1) = 1 THEN RL = RL ~ SGN (RL) 
+ (INT ( RND (1) *5*1) - 3 
) 

5505 IF INT ( RND (1) * 10 + 
1) = 1 THEN PT = PT + 3 — INT 
(RND (2) * 2*1) *2 

5510 GOSUB 1000: IF PZ < 0 THE 
N 5530 

5520 GOSUB 2000: GOTO 5500 
5530 GOTO 5530 


A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, de acordo com a 
sua velocidade e a força e a direção do 
vento. GZ informa sobre a distância 
percorrida ao longo do eixo Z (alto- 
baixo); VZ nos dá a velocidade nesse ei- 
xo; VY, a velocidade ao longo do eixo 
Y (frente-trás); WY, a velocidade do 
vento nessa mesma direção. Da mesma 
forma, GX, VX e WX correspondem, 
respectivamente, à distância percorrida, 
à velocidade do avião e à velocidade do 
vento ao longo do eixo X (direita- 
esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor, a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 


tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo entrar em parafuso. A sub-rotina 
500, que é chamada pela linha 1110, é 
encarregada de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
2380 cuida do restante do programa, Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos, que mostra o movimento do 
avião. Para isso, é necessário apagar o 
antigo conteúdo de cada instrumento e 
desenhar os ponteiros correspondentes 
à nova posição. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2010 e 2015, en- 
quanto as linhas 2020, 2025, 2030 e 2035 
cuidam do mostrador de altitude. O 
contagiros, por sua vez, é modificado 
pelas linhas 2040 e 2045; a linha 2050 
corrige a direção em que o avião está 
voando (bearing, que é o ángulo da bús- 
sola medido em graus). A diregáo da pis- 
ta (runway, também em graus) é modi- 
ficada pelas linhas 2060 a 2080, e o no- 
vo valor da distáncia é impresso pela li- 
nha 2090. 

A linha 2090 também verifica se o ho- 
rizonte deve ser modificado, e as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte verdadeiro é desenhado 
pelas linhas 2200 a 2280. 

Execute entáo o programa e veja o 
avião voar sob o controle do piloto au- 
tomático. 

É possível que, após alguns minutos 
de vôo, a tela gráfica comece a ser 
preenchida por pontos aleatórios que es- 
tragam o desenho. Isso acontece sempre 
que usamos muitos cordões. No nosso 
caso, é a variável A$ (responsável pela 
impressão dos contadores) que é usada 
a todo instante. 

Não se alarme. O próximo artigo re- 
solverá o problema, e permitirá que vo- 
cê assuma o controle do aparelho. 


500 RA=AD*C:VX=VUXSIN(RA) 

510 VY=VV*COS (RA) : RETURN 

1000 PZ=PZ+GZ:PY=PY+GY: PX=PX+GX 
1020 VV=VV+16* (TC*30-VV-B*PT) /V 
у 

1030 IF ST=1 THEN PMODE 4,1:DRA 
W”"BM108,40C0” :AS$="MERGULHO” :GOS 
UB 4000:DRAW”C5":ST=0:GOTO 1050 
1040 IF VV<30 GOSUB 1500 

1050 AD=AD+RL:IF AD<O THEN AD=A 
D+360 

1060 IF AD>359 THEN AD=AD-360 
1070 VZeVV*SIN(PT*C) -10*VU/15 
1080 GZ=VZ:GY=VY+WY:GX=VX+WX 
1090 IF VY=0 THEN GD=-PI/2:GOTO 
1110 








——— — fh 


1510 


RETURN 
PMODE 4,1 
MERGULHO” : Gi 


=1:DRAW"BM108, 
SUB 4000:PL 


AY"T20AGFEDCAGFEDC 


RL*RND (21) 


10:PT=-20 


RND (5 


RETURN 


PY 5 TO 7:PCOPY 6 TO 8 
LINE (35,120) - (35*20*SIN(VV 
+120-20*C0S (VV*PI/200)) 


TN=PZ/1000:UN=PZ-1000*INT ( 
TN) :LINE (155,120) - (155*15*SIN(T 
N*PI/5),120-15*COS (TN*PI/5)),PS 
ET 


2030 LINE(15 
UN*PI/500),120-20*C 
)) ,PSET 

2040 LINE(215,120) - (215*20*SIN( 
TC*P1/5),120-20*COS (TC*PI/5)),P 
SET 

2050 DRAW"BM16,17288":A$-STR$ (A 
BS(INT(AD))):GOSUB 4000 
2060 IF PY=0 THEN RB=0 


5,120)-(155*20* 


S (UN*PI/ 


ELSE RB= 





ATN(PX/PY)/C:IF PY>0 THEN RB=RB 
+180 

2070 IF RB<O THEN RB=RB+360 
2080 DRAW"BM80,172”:AS=STRS(INT 
(RB)) :GOSUB 4000:DRAW"BM140,172 
":AS-STR$ (ABS (INT (PX))) :GOSUB 4 
000 

2090 DRAW"BM196,172":A$-STRS (IN 
T(SQR(PY*PY*PX*PX))) :GOSUB 4000 
2100 YC=120+PT:X1=80:X2=110;Y1= 
YC*17*TAN (RL*2*C) : Y2*YC- 17*TAN ( 
RL*2*C) 

2110 IF (YCX105 OR YC>135)AND R 
L=0 THEN 2320 

2120 IF Y1<105 THEN 
1)*(105-YC)/(Y1-YC) 
2140 

2130 IF Y1>135 THEN 
1)* (135-YC) / (Y1-YC) :Y1=135 

2140 IF Y2<105 THEN X2=95- (95-X 
2) * (105-YC)/(Y2-YC) :Y2=105:GOTO 
2160 

2150 IF Y2>135 THEN X2=95- (95-X 
2) * (135-YC)/ (Y2-YC) :Y2=135 

2160 IF X1<80 OR X2>110 THEN 21 
80 

2170 LINE(X1,Y1)-(X2,Y2),PSET 
2180 PMODE 4,1:IF X5-R>10 AND X 
5+R<245 AND Y5>0 AND Y5<80 THEN 
CIRCLE (X5,Y5),R,0,10,0,.5 
2190 IF RL=RR AND PP=PT THEN 22 
90 

2200 IF HF=1 THEN LINE (X3,Y3)- 
(Х4,Ү4) ,РВЕБЕТ 

2210 HF=0:YC=33+PT*4:X3=11;X4=2 
44:Y3=YC+118XTAN(RL*2*C) :Y4=YC- 
118*TAN(RL*2*C) 

2220 IF(YC<1O OR YC>79)AND RL=0 
THEN 2290 

2230 IF Y3<1 THEN X3=128- (128-X 
3)* (1-YC)/(Y3-YC) :Y3=1:GOTO 225 
0 


Х1-95-(95-Х 
:Y1=105:GOTO 


Х1=95- (95-Х 


2240 IF Y3>79 THEN X3=128- (128- 
X3) * (79-YC) / (Y3-YC) :Y3=79 

2250 IF Y4<1 THEN X4=128- (128-X 
4) * (1-YC) / (Y4-YC) :Y4=1:GOTO 227 
0 


2260 IF Ү4>79 ТНЕМ Х4=128-(128- 
K4)*(79-YC) /(Y4-YC) : Y4=79 

2270 IF X3<11 OR X4>244 THEN 22 
90 

2280 HF*1:LINE(X3,Y3) - (X4, Y4) ,P 
SET 

2290 WB=AD:IF AD>180 THEN WB=WB 
-360 

2300 IF RB>180 THEN WB=WB+360-R 
B ELSE WB=WB-RB 

2310 IF ABS(WB)>60 AND ABS(PY)> 
1000 THEN 2370 

2320 AN=118/(60*SQR ( (X3-X4)* (X3 
-Х4)%(Ү3-Ү4)%(Ү3-Ү4))):Х5-(Х3%Х 
4) /2*8GN (X3-X4) *WB*AN* (X3-X4) 
2330 Y5=(Y3+Y4) /2+2+WB*AN* (Y3-Y 
4):1F X5<11 OR X5>244 OR Y5<1 O 
R Y5>79 THEN 2370 

2340 IF ABS(0Y)<1000 THEN R=8-Y 
5/10 ELSE R=4000/ABS(PY):IF R*1 
0+Y5>80 THEN R=8-Y5/10 

2350 IF YS5<10 OR Y5>79 OR X5-R< 
11 OR X5+R>244 THEN 2370 

2360 CIRCLE (X5,Y5),R,5,10,0,.5 
2370 PCOPY 7 TO 3:PCOPY 8 TO 4 
2380 RR=RL:PP=PT: RETURN 


5080 
5090 


GZ=UZ :GY=UY+WY : GX=UX+WX 
TC=5 

5100 RT=3:TP=5:WR=50 

5500 IF RND(10)-1 THEN RL-RL-SG 
N (RL) * (RND (5) -3) 

5505 IF RND(10)=1 THEN PT=PT+3- 
RND(2)*2 

5510 GOSUB 1000:IF PZ«0 THEN 55 
30 

5520 GOSUB 2000:GOTO 5500 

5530 GOTO 5530 


A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, conforme a sua ve- 
locidade e a força e direção do vento. 
GZ revela a distância percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade neste eixo; VY, a velocidade ao 
longo do eixo Y (frente-trás); WY, a ve- 
locidade do vento nessa mesma direção. 
Por sua vez, GX, VX e WX correspon- 
dem, respectivamente, à distância per- 
corrida, à velocidade do aparelho e à ve- 
locidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

A sub-rotina das linhas 1000 a 1120 
recalcula todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo entrar em parafuso. A sub-rotina 
500, que é chamada pela linha 1110, é 
incumbida de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 a 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos que mostram o movimento 
do avião. 

A linha 2000 transfere a versão ori- 
ginal da cabine para outra parte da me- 
mória. O mostrador da velocidade do 
vento é atualizado pela linha 2010, en- 
quanto as linhas 2020 e 2030 cuidam do 
mostrador de altitude. O contagiros é 
modificado pela linha 2040, enquanto a 
2050 corrige a direção em que o avião 
está seguindo (bearing, que é o ângulo da 
bússola medido em graus). A direção da 








Como melhorar a velocidade de exe- 
cução do simulador de vôo? 

O programa de simulação de vôo é 
bastante lento. Isso acontece porque 
ele foi escrito em linguagem BASIC in- 
terpretada, com um grande número de 
equações a serem resolvidas a cada 
passo da simulação, e de gráficos com- 
plexos a serem desenhados. Uma das 
soluções para o problema seria colocar 
mais comandos por linha, e tirar espa- 
ços em branco; isso, porém, tornaria o 
programa mais difícil de ser entendido 
e corrigido, sem aumentar muito a ve- 
locidade. 

Uma saída (para quem dispóe de um 
micro com unidade acionadora de dis- 
quetes) consiste em utilizar um compi- 
lador para o programa. Um compilador 
é um programa especial que traduz um 
outro programa desenvolvido em lin- 
guagem de alto nível (como o BASIC) 
para código de máquina. Com ele, a ve- 
locidade de execução chega a aumen- 
tar de dez a trinta vezes, dependendo 
do modelo usado. 

Quase todos os micros dispõem de 
compiladores para a linguagem BASIC. 
É o caso das linhas Apple, TRS-80 e 
TRS-Color, por exemplo. O Spectrum 
e o ZX-81, porém, não contam com es- 
se tipo de recurso. Para a linha MSX, 
o compilador BASIC é encontrado ape- 
nas no exterior. 











pista (runway, também em graus) é mo- 
dificada pelas linhas 2060 a 2080, e o no- 
vo valor da distância é impresso pela li- 
nha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as li- 
nhas 2100 a 2170 desenham o novo ho- 
rizonte artificial no mostrador corres- 
pondente. O horizonte verdadeiro é de- 
senhado pelas linhas 2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A linha 2350 
verifica se a pista pode ser desenhada na 
tela (a pista aumenta de tamanho à me- 
dida que o avião se aproxima). A linha 
2180 apaga a versão antiga quando uma 
nova é desenhada. 

Todas essas modificações foram fei- 
tas de maneira invisível, em uma página 
oculta da tela. A linha 2370 transfere o 
desenho para a tela usando PCOPY, de 
modo que todas as alterações parecem 
ocorrer simultaneamente. 
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FUNCOES SO 





ENCOMENDA 


Calcular juros compostos? Encontrar o 
cubo de um número? Transformar 
letras maiúsculas em minúsculas? Tudo 
isso se torna simples quando 

se trabalha com funcóes sob encomenda. 








Um computador é capaz de resolver 
problemas matemáticos muito mais ra- 
pidamente do que qualquer pessoa. En- 
tretanto, ele só faz o que for programa- 
do para fazer, seja por vocé, seja por um 
programa pronto, carregado previamen- 
te na máquina. 

A linguagem mais utilizada para pro- 
gramagáo de microcomputadores é o 
BASIC. Em sua maioria, os micros pes- 
soais passam a aceitar comandos nessa 
linguagem assim que sáo ligados. 

O interpretador BASIC de seu com- 
putador conta com uma série de funções 
matemáticas padronizadas: com elas, o 
programador pode solicitar cálculos ma- 
temáticos complexos, como raiz quadra- 
da, logaritmo, funções trigonométricas 
e outros. Cada uma dessas funções é de- 
finida de tal modo que, assim que reco- 
nhece a função, o interpretador toma o 
valor fornecido para ela pelo programa- 
dor e executa a operação apropriada, O 
nome dado às funções evoca as opera- 
ções que elas realizam: por exemplo, 
SQR (square root, ou raiz quadrada, em 
inglês), LOG (logaritmo), COS (cosse- 
Ino) etc. 


FUNCOES BASICAS 


Tudo corre bem quando as funções 
que se pretende usar em um programa 
existem no BASIC do computador. Mui- 
tas funções matemáticas e não matemá- 
ticas, porém, não fazem parte do BASIC 
padrão. Por exemplo, não há nenhuma 
função chamada CUBE, que seria mui- 
to útil para calcular automaticamente o 
cubo de um número (n x n x n). 

Mas nem tudo está perdido: feliz- 
mente há alternativas para quando o 
programador precisar de uma funçào 
nào disponível no BASIC, A primeira 
seria evitar o emprego de funções no 
programa: cada vez que um cálculo de 
cubo precisa ser realizado, por exemplo, 
pode-se colocar a expressão completa 
dentro de um comando LET. Se isso 
não for possível — pois o programa fi- 
caria desnecessariamente longo —, 
pode-se programar uma sub-rotina, que 
efetuará os cálculos necessários. 

A solução mais elegante, entretanto, 
consiste em um recurso de muitos interpre- 
tadores BASIC, que permite a definição de 





funções do usuário. Estas agem como fun- 
ções de encomenda, que atuam apenas 
dentro do programa no qual foram defi- 
nidas. Essa opção existe para os usuários 


de computadores das linhas Spectrum, 
TRS-80 (com BASIC nível III TRS- 
Color, MSX, Apple II e TK-2000. Os mi- 
cros das linhas ZX-81 e TRS-80 (baseado 
em fita cassete) nào oferecem essa possi- 
bilidade Em alguns micros, o recurso de 
definição de funções é bastante poderoso; 
em outros, como veremos, é mais limitado. 

As funções definidas pelo usuário 
dão ao programador a capacidade de 
ajustar o BASIC do computador con- 
forme as necessidades de um programa 
em particular. Os comandos usados pa- 
ra definir uma função diferem ligeira- 
mente de computador para computador, 
mas seguem em geral esta forma básica: 


DEF FN a (x) = 


Aqui, a letra a é o nome da função 
(necessário para quando você quiser uti- 
lizar essa função em outro ponto do pro- 
grama, ““chamando-a” pela mesma le- 
tra). O x entre parênteses é o parâme- 
tro da função, ou seja, o valor a ser for- 


expressão 
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necido para que a função efetue os cál- 
culos. Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parâmetros, enquanto ou- 
tros (TRS-Color), apenas um. 

Para entender o princípio geral de de- 
finição e utilização de uma função em 
um programa, digite e execute o exem- 
plo a seguir. O programa calcula o cu- 
bo de um número qualquer: 


10 CLS 

20 PRINT "NUMERO","CUBO" 
30 FOR a-1 TO 20 

40 PRINT a,FN c(a) 

50 NEXT a 

60 DEF FN c(x)=x*x*x 





10 DEF FNC(X)=X*X*X 

30 PRINT "NUMERO","CUBO" 
40 FOR A=1 TO 13 

50 PRINT A,FNC(A) 

60 NEXT 


Uma observação interessante é que, 
no caso do Spectrum, o computador 


nunca chega a atingir a linha 60, onde 
a função FNC é definida. Dessa forma, 
a declaração DEF FN funciona como 
uma linha DATA, Nos demais compu- 
tadores, a linha contendo o DEF FN de- 
ve ser encontrada pelo programa antes 
que a função correspondente seja cha- 
mada. Assim, é conveniente colocá-la 
logo no início do programa. 
Entretanto, os modelos da linha 
Spectrum procuram automaticamente 
por linhas contendo DEF FN, toda vez 
que uma função é invocada. Por isso, 
costuma-se agrupar todos os DEF FN 
no começo do programa, de modo a dar 
a este maior velocidade de execução. 





AMAR UMA FUNÇÃO 


Para executar uma função, você tem 
apenas que digitar seu nome (ou seja, a 
letra usada em sua definição) logo após 
a expressão FN, e no ponto do progra- 
ma escolhido para utilização do resul- 
tado do cálculo elaborado por essa fun- 
ção. Isso pode ser visto na linha 40 do 
programa para o Spectrum, e na linha 


50 do programa para os demais compu- 
tadores. No exemplo dado, o programa 
utiliza FNC(A), em vez de FNC(X), co- 
mo aparece na definição (linha 60 para 
o Spectrum, e linha 10 para os demais). 
No caso, A (ou a para o Spectrum) é o 
valor do número cujo cubo queremos 
obter, ou seja, A é o parâmetro real da 
função. Como a variável x, usada na 
DEF FN serve apenas para especificar 
como o parâmetro será usado na expres- 
são de cálculo, ela é chamada pseudo- 
parâmetro. 

Portanto, mesmo que o parâmetro 
seja diferente a cada chamada da fun- 
ção FNC em um programa, a fórmula 
dada permitirá que se faça o cálculo cor- 
reto e que o resultado seja retornado ao, 
programa exatamente como as outras 
funções pré-programadas fazem (SQR, 
COS, LOG etc.). Assim, a função esta- 


belecida pelo usuário pode ser tratada 
como se fosse uma espécie de abrevia- 
ção para a fórmula de cálculo especifi- 
cada em sua definição. 

No caso de uma função tão simples 
como a do exemplo, você poderia pen- 
sar que seria mais rápido usar a expres- 


















são X x X x X do que definir a função 
só para poder usá-la depois. De fato, es- 
te é apenas um exemplo. O uso de fun- 
ções definidas pelo usuário só será ren- 
tável quando elas forem chamadas em 
vários pontos do programa, de preferên- 
cia com parâmetros que variem. Aí, a 
economia é realmente notável. Além dis- 
so, DEF FN é capaz de trabalhar com 
expressões matemáticas muito mais lon- 
gas e complexas do que esta. 

Uma boa maneira de aprender como 
funciona DEF FN em um programa é 
experimentar com o exemplo citado, 
mudando a definição da função de di- 
versas formas (dividindo o parâmetro 
por 10, por 2000, calculando a raiz qua- 
drada etc.). Para verificar se a função 
definida por você calculou corretamen- 
te, compare os resultados obtidos por 
ela com os obtidos pelo uso da mesma 
fórmula, em modo direto. 


ME DAS FUNÇÕES 


Diversas funções podem ser definidas 
dentro de um mesmo programa. Cada 
uma delas deve ter um nome, que varia 
com o computador. Esse nome é geral- 
mente um caractere (ou cadeia de carac- 
teres) colocado imediatamente após o 
DEF FN. Os micros da linha Spectrum 
só admitem uma letra. Os demais micros 
podem usar até dois caracteres. Desse 
modo, o nome de uma função enfrenta 
as mesmas restrições que um nome de 
variável: o primeiro caractere deve ser 
obrigatoriamente uma letra, e o segun- 
do, uma letra ou um número; além dis- 
so, não podem ser utilizados caracteres 
especiais. Se forem usadas mais de duas 
letras no nome de uma função, o Spec- 
trum reconhecerá apenas as duas primei- 
ras (no exemplo dado, DEF FNCUBO 
será aceita equivalendo a DEF FNCU, 
e não a DEF FNC). 


DEFINA 0S PARAMETRO: 


O próximo passo na definição de 
uma função consiste em adicionar os pa- 


râmetros. Estes são formados pelos va- 
lores entre parênteses que devem ser for- 
necidos para que a função efetue o cál- 
culo. Embora possam ser parecidos com 
variáveis dentro do DEF FN, eles são, 
de fato, apenas pseudovariáveis, que va- 
lem só para a definição. 

Tudo o que os parâmetros fazem é 
*'dizer'' ao computador qual o número 
de valores a serem usados no cálculo. 
Em outras palavras, se você começar 
uma definição deste modo: 

DEF ЕМЕ (А,В,С) = 


entáo o computador esperará que o pro- 
grama forneça três números toda vez 
que FNE for chamada (um erro de sin- 
taxe ocorrerá na maioria dos micros, se 
um número errado de parâmetros for 
fornecido ao se chamar a função). 
Quando a função for chamada, os três 
parâmetros do exemplo podem ser ofe- 
recidos como constantes ou como va- 
riáveis. 

Embora os parâmetros usados na 
DEF FN não sejam variáveis, você po- 
de encará-los como tal, ou seja, como 
uma espécie de variável local, que vale 
apenas na definição. Eles devem ocor- 
rer na expressão após o sinal de igual- 
dade, com o nome com que foram indi- 
cados entre parênteses. Exemplo: 


DEF FNE (A,B,C)=10 + A * B/ € 


Os parâmetros podem ser variáveis nu- 
méricas ou alfanuméricas. Mais adiante, 
veremos algumas aplicações para funções 
de tratamento de cadeias alfanuméricas. 

Já que não são a mesma coisa, parâ- 
metros e variáveis podem ter os mesmos 
nomes, sem que isso implique em inter- 
ferências dos primeiros sobre as segun- 
das e vice-versa. 



















OS PARAMETROS? 


A declaração DEF FN nos micros das 
linhas Apple, TK-2000 e TRS-Color é 
menos versátil do que nos demais com- 
putadores, pois permite apenas um pa- 
râmetro. Todos os outros valores pre- 
sentes na expressão aritmética restante 
precisam ser constantes. 

Suponhamos que você queira multi- 
plicar um valor qualquer por 9.81, co- 
mo parte da função que está definindo. 
O valor a ser multiplicado poderá rece- 
ber o nome do único parâmetro dispo- 
nível, por exemplo, A; a expressão de 
definição da função será 9.81 x A. 

Os outros tipos de computador per- 
mitem o uso de quantos parâmetros fo- 
rem necessários, desde que a definição 
completa da função esteja contida em 
uma única linha. Quando a função for 
chamada, deve-se especificar um núme- 
ro igual de parâmetros, como foi esta- 
belecido na definição, mesmo que haja 
alguns parâmetros a mais que não fo- 
ram usados na expressão de definição. 

Agora, se você quiser verificar esse 
fato na prática, digite NEW e experi- 
mente colocar o programa a seguir (não 
há uma versão para os micros das linhas 
TRS-Color, Apple e TK-2000): 


ка пш! 


10 DEF FN a(a,b,c,d,e,f)*a*a* 
b 


20 PRINT "Introduza dois nume 
ros" 

30 INPUT a,b 

40 PRINT FN a(a,b) 


Quando vocé tentar executar o pro- 
grama acima, verificará que ele acusa 
um erro na linha 40. Experimente entáo 
substituí-la por: 


40 PRINT FNa (a,b,0,0,0,0) 


O programa passará entáo a funcio- 
nar, embora ele náo use nenhuma infor- 
mação adicional. 















POR QUE USAR UMA FUNCA 


A vantagem das funções em relação 
às expressões torna-se evidente quando 
é preciso utilizar uma mesma expressão 
em vários pontos de um programa. Nes- 
te caso, o emprego de funções pré- 
definidas economiza memória e tempo 
de digitação e de execução. 

A função definida pelo usuário tam- 
bém é útil quando a expressão é muito 
grande e passível de erros de digitação. 

A seguir, apresentamos um exemplo 
de função matemática que se pode usar 
repetidas vezes em um programa, Ela ar- 
redonda um número qualquer, forneci- 
do por meio de um INPUT, fixando o 
número desejado de casas decimais. Co- 
mo essa função requer dois parâmetros, 
deixamos de oferecer uma versão para 
o Apple, o TK-2000 e o TRS-Color: 


10 FOR 9=0 TO 1 STEP 0 

20 PRINT '''"Introduza o nume 
ro a arredondar e quantas cas 
as decimais voce deseja"''" 
(Pressione <ENTER> a cada vez 


30 INPUT numero,casas 


40 PRINT '''numero;" com ";ca 
3a8;" casas е’ ",FN R(numero, 
casas) 


50 PAUSE 100: NEXT q 
60 DEF FN R(a,b)=INT 
0.5)/10^b 


nu 


5 DEF FNR(A,B) = 
+ 0.5)/10"B 


(a*10"b+ 





INT (A * 10^B 


10 FOR G-0 TO 1 STEP O 
20 PRINT:PRINT:PRINT 
25 PRINT "INTRODUZA O NUMERO A 
ARREDONDAR E QUANTAS CASAS 
DECIMAIS VOCE DESEJA" 
30 INPUT N,CD 
40 PRINT:PRINT:PRINT N;" COM "; 
CD;" CASAS = ";FNR(N,CD) 
50 NEXT G 
A função FNR utiliza uma segunda 
função em sua definição: é a função 
INT, que obtém a parte inteira de qual- 
quer número. O exemplo mostra tam- 
bém outro aspecto interessante nas fun- 
ções predefinidas: elas podem abrigar 
em seu interior outras funções do BA- 
SIC, bem como funções definidas pelo 
usuário. A única limitação, evidente- 
mente, é que não se pode chamar a pró- 
pria função que está sendo definida. 


é ERA 


Embora o TRS-Color, o Apple II e 
o TK-2000 aceitem apenas funções de- 
finidas com um parámetro, nào é difí- 
cil fazer bom uso desse recurso mais li- 
mitado. Digite e execute o programa a 
seguir, que define e aplica uma equação 
para tragar uma elipse. (Ao ser execu- 
tado, o programa solicitará alguns va- 
lores iniciais, como as constantes A e B, 
e os dois raios da elipse.) 











10 DEF FNY(X)-SQR(B*R*R-B*X*X/A 


20 PMODE 3,1 

30 PCLS 

40 CLS:INPUT"INTRODUZA AS CONST 
ANTES A E B ";A,B 

50 INPUT "INTRODUZA OS DOIS RAI 
OS ";Rl,R2 

60 R=R1:Y1=FNY (0) :R=R2:Y2=FNY (0 
) 

70 IF Y2>Y1 THEN Y1=Y2 

80 IF Y1>95 THEN R1=R1*95/Y1:R2 
=R2*95/Y1 

90 SCREEN 1,0 

100 FOR K=-127 TO 128 

110 IF B*RI*RI<B*K*K/A THEN 130 





120 R=R1:PSET (K+127,95+FNY (K),2 
) :PSET(K+127,96-FNY (K) ,2) 

130 IF B*R2*R2<B*K*K/A THEN 150 
140 R=R2:PSET(K+127,95+FNY (K) ,3 
) :PSET(K+127,96-FNY (K) ,3) 

150 NEXT 

160 GOTO 160 


41%) 


10 DEF FNY(X)*SQR(B*R*R-B*X*X/ 
A) 

20 HGR 

40 HOME:INPUT "INTRODUZA AS CO 
NSTANTES A E B:";A,B 


50 INPUT "INTRODUZA OS DOIS RA 
I0S:";Rl,R2 
60 LET R-Rl Y1=FNY(0) : R=R2 


Y2=FNY (0) 

70 IF Y2>Y1 THEN Yl1=Y2 

80 IF Y1>95 THEN R1=R1*95/Y1 : 
R2=R2*95/Y2 

100 FOR K=-127 TO 128 

110 IF (B*RIYR1)<(B*K*K/A) 
130 

115 HCOLOR 3 


THEN 


120 R=R1 HPLOT K+127,95 + FNY 
(K) HPLOT K+127,96 - FNY 
(K) 

130 IF (B*R2*R2)<(B*K*K/A) THEN 
150 


135 HCOLOR 5 


140 R=R2 : HPLOT K+127,95 + FNY 
(K) HPLOT K+127,96 - FNY 
(K) 

150 NEXT 


O programa usa comandos gráficos 
para desenhar a elipse. A função defi- 
nida na linha 10 é usada para calcular 
as coordenadas de cada ponto da elip- 
se. Ela usa internamente uma função 
matemática predefinida do BASIC: a 
função de raiz quadrada (SQR). 


nau 


Caso vocé queira converter esse pro- 
grama para outros micros, eis aqui a 
equagáo das coordenadas da elipse: 
Ж.А БҮ 
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tical de cada ponto da elipse, R é o seu 
raio (na realidade o programa usa dois 
valores de raio, R1 e R2, para cada elip- 
se), e A e Bsáo constantes que definem 
o formato da figura. 





Alguns microcomputadores, como 
por exemplo o Spectrum, o MSX e o 
TRS-80, permitem ainda a utilização de 
variáveis alfanuméricas em funções de- 
finidas pelo usuário. 

Se, mesmo depois de tudo o que foi 
dito, você ainda tem dúvidas a respeito 
da utilidade de uma função que mani- 
pula cadeias alfanuméricas, digite e exe- 
cute. o seguinte programa: 


10 PRINT "Introduza seu nome” 


20 INPUT n$ 

30 IF CODE n$>90 THEN LET n$ 
=FN u$ (n$) 

40 PRINT ''"Ola,";n$;" - eun 


ао sou esperto ?" 
90 DEF FN uS(xS)=CHRS (CODE x 
$-32)*x$(2 TO ) 





5 DEF FNUS(X$) = CHRS (ASC(XS) 
- 32)%МІр5(Х5,2) 

10 INPUT "INTRODUZA SEU PRIMEI 
RO NOME” ,NS 

30 IF ASC(NS)>90 THEN NS = FNUS 
(NS) 

40 PRINT:PRINT "ОГА, 
NAO SOU ESPERTO ?" 


Observe que esse programa permite 
inicialmente que vocé entre um nome; 
em seguida, ele chama uma função de- 
finida pelo usuário; essa fungáo impri- 
mirá sucessivamente a primeira letra em 


";N$;", EU 


maiüscula e as restantes em caracteres 
minúsculos. 

Funções alfanuméricas como essa 
trabalham da mesma maneira que fun- 
ções puramente matemáticas. Seus no- 
mes, porém, são diferentes. 

Diversamente das funções matemáti- 
cas, esses nomes devem conter sempre 
uma letra seguida de um cifrão, exata- 
mente como acontece com os nomes de 
variáveis alfanuméricas. 

Como se pode perceber pelo exem- 
plo, a função pode ter parâmetros alfa- 
numéricos, que são usados da mesma 
forma que parâmetros numéricos. 

Um outro programa exemplifica me- 
lhor este ponto. Trata-se de uma rotina 
que emprega uma função alfanumérica 
para abrilhantar as cadeias entradas por 
meio de comandos INPUT: 


10 FOR f=0 TO 1 STEP O 

20 INPUT "Introduza o titulo 
”і5 

30 CLS 

35 PRINT FN t$(" "*1$) 

40 PAUSE 150 

50 NEXT f 

60 DEF FN t$(x$)-CHR$ 18+CHRS 
1%СНА5 16*CHRS 24"X**XX4Xx*** 
XOOOOOOOOUOOOOOOOOOOX HCHRS 
23+CHRS (16-LEN x5/2)+xS+CHRS 
23%СНВ5 31%"хжххххжжжжхххжжж 
ххххххжжжжжхххжжжж” 





5 DEF ҒМТ5(Х5) - 5ТВІКМС5(16-І.ЕМ 
(X$)/2) +XS+STRINGS (16-LEN (XS) 

/2) 

10 FOR F=0 TO 1 STEP 0 

20 INPUT "UEBTRODUSA O TITULO "; 
I$ 

30 CLS 

40 FOR I-1 TO 1000:NEXT I 


50 NEXT F 


Esse programa apresenta algumas 
particularidades que devem ser especial- 
mente consideradas. 

Note, por exemplo, o valor um pou- 
co estranho do comando STEP na linha 
10. Na verdade, o que ele faz é causar 
um laço de repetição infinita, informan- 
do diretamente ao computador que o in- 
cremento do comando FOR é 0; isso 
quer dizer que ele nunca irá alcançar o 
valor final 1. 

Embora neste caso seja mais fácil re- 
correr a um comando GOTO, é conve- 
niente que você saiba que programas 
melhor estruturados evitam o GOTO 
para trás, o que seria considerado má 
prática de programação. 


FUNCÓES RENDOSAS 


Eis aqui outro exemplo do comando 
DEF FN em agáo. Trata-se de um pro- 
grama relativamente simples, que pode 
ser empregado em tarefas como calcular 
os juros de sua caderneta de poupança. 

Ele define uma função que calcula ri- 
gorosamente o valor a ser atingido por 
um investimento após um dado perio- 
do de tempo, e levando em considera- 
ção os juros pagos por ano. 


10 DEF FN c(t)-INT (AM*((R/ 
100*1)^T)*100)/100 
20 INPUT "Quantos cruzados? " 


AM 
0 INPUT "Taxa de 3uros (1)? 








40 INPUT "No. de unidades de 
tempo? ";T 
50 PRINT AT 9,0;"Quantia tota 




















l apos a operacao- ";TAB 12; 
FN C(T) 
60 PRINT INVERSE 1;AT 20,.1;" 


Qualquer tecla para recomecar 


70 PAUSE 0: CLS : GOTO 20 





10 DEF FN C(T)-INT(AM* ( (1*R/100 
)*7T)*100)/100 

20 INPUT"QUANTOS CRUZADOS ";AM 
30 INPUT"TAXA DE JUROS ($) ";R 
40 INPUT"QUANTAS UNIDADES DE TE 
MPO ";T 

50 PRINT"QUANTIA TOTAL APOS APL 
ICACAO =", FNC(T) 

60 PRINT:PRINT"QUALQUER TECLA P 
ARA RECOMECAR” 

70 AS=INKEYS:IF AS="" THEN 70 
80 GOTO 20 


Para o programa funcionar no 
Apple e no TK-2000, substitua a 
linha 70 por: 


70 GET AS 


O programa funciona de forma 
muito simples. Definida a fungáo, 
os valores de entrada sáo coloca- 
dos por meio de uma série de co- 
mandos INPUT, de modo que o 
usuário possa fornecer ao compu- 
tador os detalhes da poupanga. 

As variáveis que o programa usa sáo: 
T, para o período de tempo em questáo; 
AM, para a quantia inicial em dinheiro 
a ser aplicada; e R, para a taxa de ju- 
ros, em % ao ano. 

O único parâmetro da função FNC 
é T. Isso pode ser percebido facilmente 
a partir da própria definição da função, 
na linha 10. Entretanto, a expressão ma- 
temática na mesma linha contém três уа- 
riáveis, que são AM, Re T — e apenas 
uma delas é o parâmetro. Esta é uma ca- 
racterística muito útil das funções defi- 
nidas pelo usuário. Ela permite que se 
misturem parâmetros e variáveis na mes- 
ma expressão, evitando que seja neces- 
sário definir todos os elementos como 
parâmetros. 

Esta é uma maneira de se contornar 
a limitação de um parâmetro por fun- 
ção nos microcomutadores das linhas 
TRS-Color, Apple e TK-2000. 

Já no MSX é possível até mesmo de- 
finit uma função inteiramente sem pa- 
râmetros (neste caso, não coloque pa- 
rênteses, nem em DEF FN, nem na cha- 
mada à função). 

Os usuários do Spectrum podem es- 
tranhar o fato de que a expressão na li- 
nha 10 usa variáveis ainda não defini- 
das, o que deveria provocar uma men- 
sagem de erro. Entretanto, como foi di- 
to linhas atrás, no Spectrum o processo 
funciona de modo diferente; neste ca- 














so, a linha 10 é procurada depois que as 
variáveis foram definidas pelos coman- 
dos INPUT do programa. 

Os juros calculados aqui são juros 
compostos — isso quer dizer que o va- 
lor ganho em um período é usado para 
calcular os juros do periodo seguinte 
(juros sobre juros). 


OPERAÇÕES ARITMÉTICAS 


Isso é levado em consideração auto- 
maticamente pela fórmula da função, 
simplificando o cálculo dos números 
procurados. Veja a seguir como se pro- 
cessa esse cálculo na prática. 

Se, por exemplo, a taxa de juros for 
10% após um período de tempo, o pro- 
grama calculará o valor original mais 
0.1 multiplicado por esse valor. Você 
pode ver isto na expressão contida na 
função, como R/100+1. Assim, no 
exemplo dos 10%, o resultado após um 
período de aplicação é de 1.1 vezes o va- 


lor original aplicado. Após dois perío- 
dos, será 1.1 vezes o novo valor, e as- 
sim por diante. Em T períodos, isso da- 
rá 1.1 elevado a T. Esta é a segunda par- 
te da fungáo, que toma a forma com- 
pleta vista no programa, ou seja, 
(R/100+1)T. A parte restante da ех- 
pressáo multiplica isto pelo valor do 
principal (AM) e arredonda o resultado 
final para duas casas decimais, multipli- 
cando por 100, tomando o seu INTei- 
ro, e dividindo por 100. 

Tudo se resume, portanto, a simples 
operações aritméticas. 

Você poderá também definir fun- 
ções trigonométricas que não existem na 
maioria dos interpretadores BASIC, co- 
mo arco seno e arco co-seno. 


ASN (X) =ATN (X/SQR (-X*X+1)) 
ACS (X) *-ATN (X/SQR (-X* 
X*1))*1.5708 


Agora, procure treinar, ““inventan- 
do” algumas funções novas para outras 
áreas da matemática. 
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TEXTOS (3) 


UM EDITOR DE 









A procura da palavra certa foi sempre 
um elemento estimulante para 

os grandes escritores. Esta ligáo 
ensina como fazer isso com a 
prosaica ajuda de um computador. 











As duas primeiras partes desta lição 
apresentaram as funções básicas de edi-. 
ção na tela, que permitem criar textos 
e armazená-los. A terceira e última parte 
fornece as rotinas de ordenação, procu- 
ra de palavras, impressão e uso de 
“máscara de texto”. 


ORDENACAO 


Baseada na rotina de troca retarda- 
da, a rotina de ordenagáo é usada para 
colocar linhas em ordem alfabética. Ela 
é de grande utilidade para ordenar no- 
mes ou outros dados. 


PROCURA DE PALAVRAS 


Essa rotina “'varre” o texto em bus- 
ca de uma determinada palavra ou frag- 
mento de palavra. Ela deve ser ativas 
dentro do modo editor. A procura co- 
meça no ponto onde o marcador está lo- 
calizado. Por isso, certifique-se de que 
ele está na posição mais adequada para 
dar início à busca. 

Há dois motivos básicos para que 
não se ache a palavra procurada: ou ela 
foi digitada de modo errado ou está di- 
vidida em duas linhas. 

Quando a palavra for encontrada, o 
programa continuará no modo editor e 
a linha poderá ser copiada imediatamen- 
te na área de trabalho. 


IMPRESSAO 


A rotina de impressáo possibilita o 
envio do texto gerado para a impresso- 
ra. Ela apresenta algumas característi- 
cas especiais, incluindo uma rotina pa- 
ra controlar o formato das cartas e ou- 
tra para uso do texto com “máscara”, 
permitindo que você adicione partes va- 
riáveis ao texto. 

Se a sua impressora trabalha com co- 
mandos não padronizados, pode ser ne- 
cessário algum ajuste no programa. 
Preste particular atenção aos caracteres 
que provocam avanço de linha (line- 
feed, ou LF) e retorno do carro (carria- 
ge return, ou CR). O programa usa o ca- 
ractere ASCII 13 para ambas as funções. 

































O 


Pouco adiantaria poder escrever e 
corrigir um texto se nào fosse possível 
imprimi-lo na forma desejada. Pode ser 
necessário, por exemplo, colocar o ca- 
becalho da página no centro de uma li- 
nha, seguida por outras linhas em bran- 
co. Isso se torna fácil quando se usam 
os comandos de formatação. Outro 
exemplo comum é quando se quer co- 
locar a data ou o endereço do remeten- 
te na margem direita e o endereço do 
destinatário à esquerda. 

Os símbolos empregados na rotina 
de formatação são os mesmos do pro- 
grama do artigo Escreva Cartas sem 
Esforço (página 17). Lembre-se de que 
eles devem aparecer sempre no início 
da linha. Esses símbolos são os seguin- 
tes: o sustenido (** »* "), que coloca a li- 
nha de texto na margem direita da pá- 
gina (se existir só uma linha com essa 
marca, ela será colocada com o ültimo 
caractere na última posição da linha; se 
houver mais linhas, o programa procu- 
rará a mais longa e alinhará as outr: 
com base nesta); o ampersand (“&”), 
que faz o texto que o segue ser impres- 
so no início da linha seguinte (por exem- 
plo, ele pode ser usado em cartas, para 
posicionar cada linha do endereço do 
destinatário); o cifrão (‘“‘$™), que, além 
de passar o texto para outra linha, pro- 
voca um recuo na primeira palavra da 
nova linha; o asterisco (***”), que co- 
loca o texto no centro da linha. Ao usar 
essa rotina, tenha cuidado com linhas 
de texto muito longas. Estas devem ter, 
no máximo, a mesma largura da linha 
de impressão. 


COMO USAR “MÁSCARA DE TEXTO” 


Além dos comandos de formatação, 
o programa dispõe de outro recurso 
(inexistente no do Spectrum) com o qual 
se pode criar uma carta padrão e deixar 
que algumas partes específicas sejam va- 
riáveis. Esse recurso é o “símbolo de 
máscara”. Ele opera do seguinte modo: 
quando vocé quiser inserir uma frase no 
texto, coloque um par de colchetes 
(**][>) na posigáo escolhida, No momen- 
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— ORDENACÁO 
A ARTE DE PROCURAR 
PALAVRAS 


IMPRESSÁO 


CARTA PADRÃO 


— FORMATAÇÃO 
CENTRAR O TEXTO 


é AJUSTAR À DIREITA 


AJUSTAR À ESQUERDA 
ESPACAMENTO 














to da impressáo, esse sinal será substi- 
tuído pelo bloco de texto apropriado. 
Dessa maneira, vocé pode comecar a 
carta com um *'*Caro ][" e só digitar o 
nome do destinatário quando Ihe convier. 

O “simbolo de máscara’ pode ser 
colocado em qualquer posição no tex- 
to, menos depois de um sustenido (#) 
É que o programa mede primeiro o ta- 
manho de cada linha que vai ser posi- 
cionada à direita, determinando a seguir 
onde deve começar a impressão dessas 
linhas. Como essa operação é feita an 
tes de se carregar os blocos variáveis, 
sempre surge algum problema 

O texto que substitui os colchetes é 
digitado diretamente do teclado na ho- 
ra da impressão, ou lido de um arquivo 
criado pelo próprio programa. 

O máximo de caracteres admitido por 
linha no TRS-Color é 32. No MSX, es- 
se número sobe para 39 e, no Apple, pa- 
ra 40. O texto será quebrado, assim, em 
unidades de 32 a 40 caracteres, depen- 
dendo da máquina. Cada par de colche- 
tes permite a entrada de, no máximo, 
250 caracteres 

Se os blocos variáveis de texto forem 
carregados de um arquivo, o computa- 
dor se encarregará de colocar os dados 
nos seus devidos lugares. Cuide apenas 
para que os dados estejam na ordem 
correta e para que haja informag: 
ra todos os pares de colchetes 





























4000 REM imprimir 

4010 LET tt=(p1-11)/2 

4020 LET d=0 

4025 FOR n=t+3 TO b-3 

4030 LET a$=t$ (n) 

4032 IF LEN a$=0 THEN NEXT n 

RETURN 

4034 IF aS(LEN a$-1)<>CHRS 32 T 

HEN GOTO 4037 

4035 IF a$(LEN a$)*CHRS 32 THEN 
LET a 3( TO LEN a$-1): GOTO 
4032 

4037 LET 1=LEN as 

4040 1 с=0 

4050 IF c-] THEN NEXT n: LPRIN 

T CHR$ 13: RETURN 

4060 LET cec*l: LET ded*l: IF c 
] THEN GOTO 4100 

4070 IF a$(c)-"4" THEN GOTO 45 


00 


4080 IF THEN GOTO 47 
10 
4085 1F 


4090 ІҒ а5(с) 
CHR$ 13;CHR$ 13; 
4900 
4100 LET nen*l: IF n»*b 
LET 1=LEN a$: GOTO 411 
1105 IF t$(n,1)* OR 
"4" OR ts(n,1)="*" OR L 
8” THEN GOTO 4110 
4106 LET a$-a$*t$(n) 
4107 TF aS(LEN a$-1) 
HEN GOTO 4100 
1108 IF a$(LEN a$)=CHR$ 3 
LET a$-aS( TO LEN a$-1) 
4109 GOTO 4107 
4110 LET n-n-1: 
4111 IF a$(c) 
1800 
1112 LPRINT (c): 
1115 1F d>11 THEN 
4120 GOTO 4050 
4500 LET nl=0 
e=0 
4510 LET le=LEN 
THEN PRINT FLASH 
ORMATO - ENDERECO 
SOUND 2,10: RETURN 
4520 IF le»be THEN 
4530 LET nlenl*1 
T aS-t$(n) 
4532 IF LEN 
RETURN 
4535 IF 
LET a$-a$( TO 
4532 
4538 IF 
10 
4540 
550 
0 nl 
$ 32; 
S=t$(n) 
4552 IF 
RETURN 
4555 IF aS(LEN 
LET a$-a$( TO 
4552 


4558 








THEN 


GOTO 48 








THEN LPRINT 
LET d=0: GOTO 


THEN 





CHRS 32 T 





1=LEN as 
THEN 


LET 


HRS 32 сот 





LET ta-11: LET b 
a$-1: IF le»ll 
1;"ERRO NO F 


MUITOLONGO" 


LET be=le 
LET n=n+1: LE 
a$-0 THEN NEXT n 
aS(LEN aS)=CHRS 32 
LEN a$-1): 


THEN 
GOTO 
а5(1) 


THEN GOTO 45 





LET n=3 
LET tr=tt+11-be 
FOR h=] TO tr 

NEXT h: LET 


FOR g=1 T 
LPRINT CHR 
n=n+1: LET a 





LEN a$*0 THEN NEXT n 
THEN 


GOTO 


aS)-CHR$ 32 
LEN a$-1) 


LPRINT 
4560 NEXT n 
4700 LET ta 
tt THEN LPRINT 

FLASH 1;"ERRO NO 


as(2 TO ) 
RETURN 

(11-1)/2*tt: IF ta 
CHR$ 13: PRINT 
FORMATO - IMP 


NEXT 9 





IVEL CENTRALIZAR": SOUND 
2,10: RETURN 
4710 LPRINT CHR$ 13;: FOR m=1 Т 
O ta: LPRINT CHRS 32;: NEXT m 
LPRINT a$(2 TO );: LET d-0: NEX 
T n: RETURN 
4800 LET sl-ll-d-l: LET cc-c*l 
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8660 NEXT 3: TF us THEN LET 
w$=t$(k): LET t$(k)=t$(i): LET 
t$(1)7v$ 

8670 NEXT i 


8900 FOR n-ss TO b: LET t$(n)st 

$(n+1): NEXT n 

8910 FOR n=se-1 TO b: LE! 
=t$(n+1): NEXT n: LET b= 
p>b-2 THEN LET p=p 

8915 PRINT #l;AT 0,0;в5;в5 

8930 GOSUB 1000 

8940 RETURN 

Para usar a rotina de ordenação, 
marque os pontos correspondentes ao 
início e ao fim da operação, colocan- 
do uma flecha (1) acima da primeira 
linha a ser ordenada e outra abaixo da 
última. Para iniciar o processo, tecle 
[CAPS SHIFT) e 4, As flechas serão eli- 
minadas durante a ordenação. 

Para fazer a opera: de busca, te- 
cle [CAPS SHIFT] e 2; a palavra a ser 
procurada deve ser digitada conforme 
requisitado. A busca começará imedia- 
tamente. Assim que o computador en- 
contrar a primeira ocorrência, o cur- 
sor aparecerá sob ela. Se quiser con- 
tinuar a procura mais adiante, pressio- 
ne [CAPS SHIFT] e 3. Para alterar a pa- 
lavra, tecle [CAPS SHIFT] e 2. 

Tecle 6 para entrar na rotina de im- 
pressáo da linha 4000. Isso fará o texto 
ser impresso de acordo com o que foi 
definido na rotina da linha 100, ou se- 
ja, 32 caracteres por linha e 32 linhas 
por página. Se quiser alterar esses valo- 
res, tecle 7 e náo 6. 

Na formatação do texto, coloque o 
sinal adequado, para que a linha seja 
impressa do modo desejado. O sinal 
#” indica que a linha deve ser posi- 








t$ (n) 
2: TF 


























Т х=] URN cionada junto á margem direita do tex- 
4810 1F THEN GOTO 4825 8500 REM ordenacao to. O “&” provoca uma mudança de li- 
4820 IF c)<>CHRS 32 THEN L 8505 PRINT &1;AT 0,0;8$;88 nha e inicia a impressáo na margem es- 
ET cc-cc*l: LET x-x*l: GOTO 481 8510 LET ss-4 querda. O 4%” faz com que haja um 








0 8520 IF tS(ss,1 THEN GOTO 


avanço de duas linhas e não de uma ape- 


















4825 IF x>=11 THEN LPRINT CHR 8550 б 
13: PRINT FLASH 1;"ERRO NO FO 8530 LET ss-ss*l: IF ss=b THEN nas. o centraliza o texto 
RMATO - PALAVRA MUITO GRANDE PRINT &1;AT 0,0; BRIGHT 1;"Lim 
SOUND 2,10 RETURN ites nao definidos” PAUSE 100 
4830 IF sl»-x THEN GOTO 4112 PRINT 41;AT 0,0;9S;9S: RETURN 
4850 LPRINT CHRS 13;: LET d=0 8540 GOTO 8520 3000 CLS:PRINT67,BL$;"IMPRESSAO 
4900 FOR m=1 TO tt: LPRINT CHR$ 8550 LET se-ss*l ";BLS 
32;: NEXT m: GOTO 4050 8560 ТЕ tS(se,1)=""" THEN GOTO 3010 IF TL<2 THEN 3050 
8000 REM procura 8600 3020 PRINT"DA (M)EMORIA OU DE ( 
8002 IF z$-"" THEN PRINT #1;АТ 8570 LET se-se*l: IF se=b THEN  A)RQUIVO 
E 3030 RS=INKEYS:IF А$<>"М" AND R 


0,0; BRIGHT 1;"Nao foi definid PRINT 41:;AT 0,0; BRIGHT 1 
a a palavra alvo”: PAUSE 100: P ente um limite foi definido 





$€»"A" THEN 3030 























RINT $1;AT 0,0;8$;8$: RETURN AUSE 100: PRINT %1;АТ 0,0:8 3040 IF RS="M” THEN 3060 

8005 PRINT %1;АТ 0,0;в5;85: IF RETURN 3050 GOSUB 4500 

p-b-2 THEN LET p=4 8580 GOTO 8560 3060 IF TL-1 THEN PRINT (nao ha 

8010 FOR n-1 TO 33-LEN z$ 8600 IF e-1 OR e-2 THEN  arquivo”:PYS="T2003EDCA" :GOTO 

8020 IF t$(p.n TO n*LEN z$-1)-z GOTO 8900 3570 

$ THEN LET n-33-LEN 25: NEXT n 8610 PRINT &1;AT 0,0; BRIGHT 1; 3070 KF=0:PRINT "QUER USAR MASC 
GOTO 8050 "Ordenando" ARA (S/N) ?" 

8030 NEXT n 8620 FOR TO se-1 3080 RS-INKEYS:IF R$X»"S" AND R 

8040 LET p-p*l: IF p-b-2 THEN 8630 LET S<>"N” THEN 3080 

LET p=p-1: GOTO 8050 8640 FOR j=1+1 TO se-1 3090 IF R$="N” THEN 3150 

8045 GOTO 8010 8650 IF 3)€t$(k) THEN LET k 3100 PRINT:PRINT"CARREGA BLOCOS 

8050 LET p-p*l: GOSUB 1000: ВЕТ =) VARIAVEIS (T)ECLADO OU 











(A) RQUIVO?” 


3110 RS=INKEYS:IF R$<>"T" AND R 
S<>"A” THEN 3110 

3120 KF=2:IF RS-"T" THEN KF=1:G 
OTO 3150 


3130 PRINT:LINEINPUT "INTRODUZA 
0 NOME DO ARQUIVO ”;УВ5 
3140 IF LEFTS(VBS,1)<"A” 
TS(VBS,1)>”Z” THEN 3130 
3150 CLS:PRINT "DESEJA REPROGRA 
MAR A IMPRESSORA (S/N) ?" 
3160 RS=INKEYS:IF RS<>"S” 
S<>"N” THEN 3160 

3170 IF R$-"S" GOSUB 5500 
3180 CLS 

3190 VB=0:PP=0:AZ=0:LC=1:PRINT 
"DESEJA IMPRIMIR NA TELA (S/N)? 
":PRINT"enter RETORNA AO MENU P 
RINCIPAL" 


OR LEF 


AND R 


3200 RS=INKEYS:IF R$<>"S” AND R 
S<>"N” AND R$<>CHRS(13) THEN 32 
00 


3210 IF R$=CHR$(13) THEN RETURN 
3220 IF KF=0 THEN 3240 

3230 IF DL=1 AND KF=2 THEN FREA 

D VBS,FROM 0;DV: FREAD VBS;DV E 
LSE IF K-2 THEN OPEN "I",$-1,UB 
$: INPUT4-1,DV,DV 

3240 P=0:GPS="":IF RS="N" THEN 
P=-2:GPS=STRINGS (GP, 32) 

3250 FOR K=1 TO TL-1:1F LEFTS(T 
XS(K),1)="4" AND LEN(TXS(K))-1> 
AZ THEN AZ=LEN(TXS (K)) 

3260 NEXT: IF AZ>TW THEN PRINT"e 
rro-endereco muito longo":PY$-" 
Т402АВ" :СОТО 3570 

3270 K=1:PRINT4P,LFS;GPS;:AS="" 
:IF AZ>0 THEN AZS=STRINGS (GP+TW 
-AZ, 32) 

3280 TTS=TXS(K) 

3290 IF TT$-"" THEN PRINT 4P,CH 
RS (13) ;GPS;:PP=0:LC=LC+1:GOSUB 
3590:GOTO 3520 

3300 BP=INSTR(TTS,"]["):IF BP=0 
OR KF=0 THEN 3390 

3310 IF KF=1 THEN 3370 

3320 IF DL=1 THEN 3360 

3330 IF EOF(-1) THEN 3350 

3340 INPUT$-1,RP$:GOTO 3380 
3350 PRINT"erro-falta de dados 
no arquivo":PY$*"L2005DL402D":G 
OTO 3570 

3360 IF EOF(VBS) THEN 3350 ELSE 
FLREAD VBS;RP$:GOTO 3380 

3370 BL=BL+1:PRINT:PRINT "INTRO 
DUZA BLOCO VARIAVEL";BL;"?";:LI 
NEINPUT RPS 

3380 TT$=LEFTS(TTS,BP-1) +RPS+MI 
DS(TTS,BP+2) :GOTO 3300 

3390 ON INSTR ("&$*4",LEFTS(TT$ 
»1)) GOTO 3460,3470,3490,3510 
3400 IF PP+LEN(TTS)<=TW THEN PR 
INTHP,TTS; : PP=PP+LEN(TTS) :GOTO 
3520 








3410 TAS=LEFTS(TTS,TW-PP) 

3420 IF INSTR(TTS,” ”)>TW THEN 
PRINT "erro-palavra muito grand 
5 na",TTS:PY$-"T1002CB":GOTO 35 
0 

3430 IF RIGHTS(TAS,1)=" 
3450 

3440 IF LEN(TAS)>0 THEN TAS=LEF 
TS(TAS,LEN(TAS)-1) :GOTO 3430 


” THEN 


3450 PRINT4P,TAS;CHRS (13) ¡GPS;: 
PP=0:LC=LC+1:GOSUB 3590:TTS=MID 
S(TTS,LEN(TAS)+1) :1F TTS<>”"” TH 
EN BP=1:GOTO 3400 ELSE 3520 
3460 PRINT4P,CHRS (13) ¡GPS;:PP=0 
:LC=LC+1:GOSUB 3590: TTS=MIDS (TT 
$,2):GOTO 3300 

3470 TTS=MIDS(TTS,2):PRINT4P,CH 
R$ (13) ;GP$; STRINGS (INT (TW/4) , 32 
);:PP=INT(TW/4) 

3480 LC=LC+1:GOSUB 3590:GOTO 33 
00 

3490 TTS-MIDS(TT$,2):IF LEN(TTS 
)>TW THEN PRINT"erro-impossivel 
centralizar";TT$:PY$-"TlO3C":G 
ото 3520 

3500 PRINT4P,CHRS (13) ;GPS;STRIN 
GS (INT((TW-LEN(TTS))/2),32);TTS 
;CHRS (13) ;GPS;:PP=0:LC=LC+1:GOS 
UB 3590:GOTO 3520 

3510 PRINT4P,CHRS (13) ;AZS;MIDS( 
TTS$,2);:PP=0:LC=LC+1:GOSUB 3590 
3520 K=K+1:IF P=0 THEN FOR Z=1 
TO 500:NEXT 

3530 IF K<TL THEN 3280 

3540 IF P=-2 THEN PRINT 4P,LFS; 
LFS ELSE PRINT:PRINT 

3550 IF K-1 THEN CLOSE 4-1 ELSE 
IF KF=2 THEN CLOSE 








3560 IF P=0 THEN 3190 ELSE RETU 
RN 

3570 FOR Z-1 TO 10:PLAY PYS:NEX 
T:IF KF-1 THEN CLOSE$-1 ELS IF 
KF=2 THEN CLOSE 

3580 RETURN 

3590 IF LC>TH THEN PRINT 4P,LFS 


¡LFS;GPS;:LC=1 

3600 RETURN 

5070 L=CP:PRINT €384," INTRODUZA 
PALAVRA PROCURADA” 

5080 LINEINPUT TG$:IF TG$-"" TH 
EN 5070 

5090 PRINT 6500,"procurando";BL 
$; 

5100 IF L=TL THEN CP=TL:CLS:GOS 
UB 2090:RETURN 

5110 IF INSTR(TXS(L),TGS)=0 THE 
N L=L+1:GOTO 5100 

5120 CP=L+1:CLS:GOSUB 2090:RETU 
RN 

5130 IF SS>SE THEN TT=SS: SS=SE 
: SE=TT 

5140 SE=SE-1 

5150 PRINT6500,"ordenando";BL$; 
5160 FOR I=SS TO SE-1 

5170 K=I 

5180 FOR J*I*1l TO SE 

5190 IF TXS(J)<TXS(K) THEN K=J 
5200 NEXT:IF I<>K THEN TTS=TXS( 
K) :TXS (K) =TXS (1) :TXS (1) =TTS 
5210 NEXT:CLS:GOSUB 2090:RETURN 


Para fazer funcionar a rotina de or- 
denagáo, entre no modo editor e leve o 
marcador “>” para um dos extremos 
do bloco a ser ordenado. Então, tecle 
“O”, Em seguida, mova o marcador, 
levando-o para o outro extremo, e tecle 
“@” novamente. Essa operação inicia 
automaticamente a ordenação. 

A função de procura de palavras é 
ativa, dentro do modo editor, quando 


se pressiona a tecla P. Você responde 
qual a palavra a ser procurada por in- 
termédio da mensagem mostrada na 
área de trabalho. Pressione a tecla [RE- 
TURN] para dar início à busca. Quan- 
do a palavra desejada for encontrada, 
o marcador será colocado logo abaixo 
da linha que a contém. 

Para imprimir um texto já editado, 
tecle I a partir do menu principal. Você 
terá então de responder a várias pergun- 
tas. A primeira delas indaga se o texto 
a ser impresso está na memória ou no 
arquivo. Caso você escolha imprimir o 
que está na memória e não haja nada 
aí, um sinal sonoro será ativado e uma 
mensagem mostrada na tela do compu- 
tador; o programa voltará então ao me- 
nu principal. 

Em seguida, será oferecida a opção 
de mudar os parâmetros da impressora, 
Responda com S ou N. Essa rotina tor- 
na possível a alteração dos valores pré- 
determinados, que são os seguintes: 80 
para a largura do formulário, 60 para 
a largura da linha de texto (deixando 
margens de dez colunas), 66 para o nú- 
mero de linhas total por formulário e 60 
para o número de linhas de texto (dei- 
xando três linhas de espaço no topo e 
no fim da página). 

Assumidos quando o programa é exe- 
cutado, os valores indicados acima se- 
ráo mantidos até que vocé os altere. 

A última pergunta diz respeito a uma 
cópia do texto na tela. Se vocé respon- 
der S, o texto será imediatamente colo- 
cado na tela; um N se encarrega de en- 
viá-lo para a impressora. 

Os sinais empregados para formata- 
ção do texto são os mesmos que apare- 
cem no programa do já citado artigo da 
página 17. O sustenido (**t”*) faz com 
que a linha seja levada para a margem 
direita, enquanto o cifráo (**$”*) provo- 
ca um avanco de uma linha e um recuo 
do texto subseqüente. 

O ampersand (**&'") determina um 
avanço de linha, fazendo com que o tex- 
to a seguir seja impresso no início da li- 
nha abaixo (sem recuo). O asterisco 
(“%”) centraliza a linha de texto. 

Para inserir blocos de texto variáveis 
dentro do texto principal, utilize um par 
de colchetes (**][”*) na posição desejada. 
Responda S quando perguntado se de- 
seja recorrer à “máscara de texto”. Os 
blocos podem ser lidos a partir do tecla- 
do ou de um arquivo. Se sua opção for 
pelo teclado você deve digitar cada blo- 
co quando o programa pedir. No caso 
de escolher o arquivo, essa operação se- 
rá feita automaticamente — o compu- 
tador lerá o texto de um arquivo previa- 
mente preparado para isso (use o pró- 
prio programa). 
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3000 CLS:BL$="Imprimir”:GOSUB 2 
20 

3010 IF TL<2 THEN 3050 

3020 PRINT:PRINT:PRINT"Imprime 





texto da [MJemória ou [F]ita 
3030 R$=INKEYS:IF R$<>"M” AND R 
$€»"F" THEN 3030 

3040 IF R$="M” THEN 3060 


3050 GOSUB 4500:CLS:BL$="Imprim 
1r”:GOSUB 220 
3060 IF TL=1 
+12:PRINT"Não 
1a!":FOR I=1 TO 
N 

3070 KF=0:PRINT:PRINT"Quer 
máscara? (S/N)"; 

3080 R$=INKEYS:IF RS<>"S” 
$<>"N" THEN 3080 

3090 IF R$-"N" T 


THEN BEEP:LOCATE B 
há texto na memór 
1000:NEXT:RETUR 


usar 


AND R 





EN 3150 





3100 PRINT:PRINT"Carrega os blo 
cos variáveis do [T]ecla 
do ou da [Flita?”; 

3110 R$=INKEYS:IF R$<>"T" AND R 











S<>"F” THEN 3110 
3120 K IF R$-"T" THEN KF-1:G 
ото 3150 

3130 PRINT:LINEINPUT"Nome do ar 
quivo ";VB$ 


3140 IF LEFTS(VB$,1)€"A" OR LEF 
TS(VB$,1)>"Z” THEN 3130 

3150 PRINT:PRINT"Altera a confi 
quração da imp 
ressora? (S/N)”; 





" AND R 





3160 RS-INKEYS:IF R$^»" 
$<>"N" THEN 3160 

3170 TF RK$="S" THEN GOSUB 5500 
3180 CLS:BL$-"Imprimir":GOSUB 2 
20 

3190 VB=0:PP=0:AS=0:LC=1:PRINT 
PRINT:PRINT"Quer uma demonstraç 
ão na tela? (S/N)":PRINT"Tecle 
<RETURN> para retornar ao menu” 








3200 R$=INKEYS: IF R$<>"S” AND R 
S<>"N” AND R$<>CHR$(13) THEN 32 
00 
3210 IF R$=CHR$(13) THEN RETURN 
3220 IF KF<>2 THEN 3240 

3230 OPEN VBS FOR INPUT AS 4 
NPUT41,DV,DV 

3240 P-0:GP$-"":IF R$- 
P=-1:GP$=STRINGS (GP, 32) 

3250 FOR K=1 TO TL-1:1F LEFTS(T 
XS(K),1)="4" AND LEN(TXS(K))-1> 
AS THEN AS=LEN(TXS(K)) 

3260 NEXT:IF AS>TW THEN PRINT:P 
RINTTAR(10);"Endereco muito lon 
90!":GOTO 3610 

3270 K=1:AS="":IFAS>0 
TRING$ (GP+TW-AS, 32) 
3280 IF NOT P THEN PRINT:PRINT 
PRINT;ELSE LPRINT LFS;GP$; 
3290 
3300 





I 





THEN 














THEN AS=S 








THEN 3320 ELSE 


IF TTS<>"" 
IF P THEN LPRINT LIS;GPS ELSE P 
RINT 

3310 PP=0:LC=LC+1:GOSUB 3630:G0 
TO 3560 


3320 BP-INSTR(TT$,"]["):IF BP-0 
OR KF=0 THEN 3390 

3330 IF KF-1 THEN 3370 

3340 IF EOF(1) THEN 3360 

3350 INPUT41,RP$:GOTO 3380 

3360 PRINT:PRINTTAB(3)"Fim de d 
ados para blocos variáveis!":GO 
TO 3610 
3370 BL=BL+1 
variável";BL;"?" 
3380 TTS-LEFT$(TTS,BP-1)*RPS*MI 
D$(TTS,BP*2):GOTO 3320 

3390 ON INSTR("&S*4",LEFTS(TTS, 
1)) GOTO 3470,3490,3510,3540 
3400 IF PP+LEN(TTS)<=TW THEN IF 
P THEN LPRINT TTS;CHRS(32);:PP 
=PP+LEN(TTS) :GOTO 3560 ELSE PRI 
NTTTS;CHRS (32) ;:PP=PP+LEN(TTS) 


PRINT:PRINT"Bloco 
LINEINPUT RP$ 














GOTO 3560 
3410 TAS=LEFTS(TTS,TW-PP) 
3420 IF INSTR(TTS,” ")>TW THEN 





PRINT:PRINT"Palavra muito longa 
em:":PRINTTT$:GOTO 3610 

3430 IF RIGHT$(TAS,1)*CHR$ (32) 
THEN 3450 

3440 IF LEN(TAS)>0 
TS(TAS,LEN(TAS)-1) 
3450 IF P THEN LPRINT 
P$; ELSE PRINTTAS 
3460 P :LC-LC*1:GOSUB 3630:TT 
=MIDS (TTS,LEN(TAS)+1) :1F TTS<> 
THEN BP=1:GOTO 3400 ELSE 356 


THEN TAS=LEF 
GOTO 3430 
TA$;L1$;G 











0 
3470 IF P 
ELSE PRINT 


THEN LPRINT LIS;GPS; 




















3480 PP=0:LC=LC=1:GOSUB 3630: TT 
$-MIDS(TT$,2):GOTO 3320 

3490 TTS=MIDS(TTS,2):IF P THEN 
LPRINT L15;GPS¡STRINGS (TW/4,32) 
; ELSE PRINT:LOCATE TW/4 

3500 PP=INT(TW/4) :LC=LC+] :GOSUB 
3630:GoTO 3320 

3510 TTS=MIDS(TTS,2):1F LEN(TTS 
)>TW THEN PRINT:PRINT"Linha mui 
to grande para centralizar:":PR 
INTTT$:GOTO 3610 

3520 SS=STRINGS (INT ((TW-LEN(TTS 
))/2),32):TF P THEN LPRINT LIS; 
GP$;S$;TT$;L1S;GPS; ELSE PRINT 
PRINTSS; TTS 

3530 PP=0:LC=LC+ 
TO 3560 

3540 IF P THEN LPRINT AS;MIDS(T 
715,2); ELSE PRINTAS;MIDS(TTS,2) 











GOSUB 3630:G0 





3550 PP=0:LC=LC+1:GOSUB 3630 

3560 K=K+1:IF P=0 THEN FOR Z=1 
TO 500:NEXT 
3570 ТЕ К<ТІ 
3580 IF P THEN 
LSE PRINT:PRINT 
3590 TF KF=2 THEN CLOSE41 

3600 IF NOT P THEN 3190 ELSE RE 
TURN 

3610 PLAY "O3L3CR64L3CR64L8CR64 
L3C":FOR I-1 TO 2500:NEXT:IF KF 
72 THEN CLOSE41 

3620 RETURN 

3630 IF LC>TH THEN IF P THEN LP 
RINT LFS;LFS;GPS ELSE PRINTLF$; 





THEN 3290 


LPRINT LFS;LFS E 
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LES; 

3640 LC=1:RETURN 

5000 L-CP:LOCATE 0,19:LINEINPUT 
"Procura por "¿TOS 

5010 IF TGS="" THEN 5050 

5020 PRINT"Procurand е 

5030 IF L=TL THEN CP=TL Gos 
UB 2080:RFTURN 

5040 IF INSTR(TXS(L) , TG$ THE 
N *1:G0TO 5030 





5050 CP-L*1:CLS:GOSUB 2080:RETU 
RN 

5060 IF SS>SE THEN SWAP SS,SE 
5070 SE=SE-1 

5080 LOCATE 0,20:PRINT"Ordenand 
Qi 

5090 FOR I*SS TO SE-1 

5100 K-I 

5110 FOR J=1+1 TO SE 

5120 TF TXS(J)<TXS(K) THEN K=J 
5130 NEXT:IF I<>K THEN SWAP TXS 
(K) , TXS (I) 


5140 NEXT:CLS:GOSUB 2080:RETURN 
A rotina de ordenação é acessada a 
partir do modo editor. Leve o marcador 
para um dos extremos das linhas a se- 
rem ordenadas e tecle CTRL-O. A se- 
guir, transfira o cursor para o outro ex 
tremo e tecle novamente CTRL-O. A or- 
denação se iniciará imediatamente. 

A rotina para a procura de palavr: 
também é ativada dentro do modo edi- 
tor. Leve o marcador para a posição a 
partir da qual quer iniciar a busca. Te- 
cle CTRL-P e digite a palavra que deve 
ser procurada. Tecle [RETURN] para 
iniciar a busca. Assim que a expressão 
for encontrada, o marcador será colo- 
cado abaixo da linha que a contém. Pa- 
ra continuar procurando outras ocor- 
rências da mesma palavra, tecle CRTL- 
P; digite [RETURN] apenas quando a 
palavra for solicitada. 

Para acessar a rotina de impressão, 
tecle I a partir do menu principal. Vá- 
rias perguntas serão feitas. A primeira 
refere-se à possibilidade do texto a ser 
impresso vir da memória ou de um ar- 
quivo em fita. 

A seguir, você deve responder se quer 
usar “máscara de texto” ou não. Essa 
rotina possibilita a inserção de partes 
variáveis no texto principal. Para isso, 
coloca-se pares de colchetes (““]["") nas 
posições desejadas. Desse modo, quan- 
do o programa encontrar esse sinal no 
texto, irá substituí-lo por um bloco que 
pode ser carregado do teclado ou de um 
arquivo. Se você optar por dar entrada 
pelo teclado, deve digitar o texto neces- 
sário toda vez que for solicitado. Caso 
contrário, a informação será lida de um 
arquivo em fita (este deverá ter sido pre- 
viamente preparado para isso). 

Antes de iniciar a impressão, é pos- 
sível também alterar a configuração da 
impressora. Os valores habituais são: 80 















para a largura do formulário, 60 para 
a largura da linha de texto, 66 para o 
número total de linhas por formulário 
e 60 para o número de linhas de texto 
por página. 

Os sinais para formatar o texto são 
nossos conhecidos: o asterisco (“**"") 
centraliza o texto que o segue; o amper- 
sand (“&”) provoca um avanço de li- 
nha, de maneira que o texto subsegiiente 
seja iniciado na primeira posição da li- 
nha seguinte; já o cifrão (**$''), além de 
fazer isso, provoca um recuo no texto; 
finalmente, o sustenido (** »* '") faz com 
que a linha seja impressa na margem di- 
reita da página. 

Quando uma palavra nào couber no 
trecho final de uma linha, deve-se evi- 
tar quebrá-la, para que ela nào fique di- 
vidida por um espaço. O procedimento 
correto, neste caso, é digitar a palavra 
inteira na linha seguinte. 


(4! 











3000 HOME :BLS = “IMPRIMIR”: G 
OSUB 250 

3010 IF TL < 2 THEN 3060 

3020 PRINT : PRINT : PRINT "IM 
PRIME TEXTO DA [MJEMORIA OU [D] 
ISCO? ": PRINT "TECLE <CR> PARA 
RETORNAR AO MENU "; 

3030 GET RS: IF RS CHRS (13 
) THEN RETURN 

3040 IF R$ « > "М" АМО В5 < 

> "D" THEN 3030 

3050 PRINT RS: IF R$ = THE 
N 3070 

3060 GOSUB 4500: HOME :BLS =” 
IMPRIMIR”: GOSUB 250 

3070 IF TL - 1 THEN PRINT СН 
RS (7);: UTAB 12: HTAB 8: PRINT 
"NAO HA TEXTO NA MEMORIA!”: FO 
R I = 1 TO 1000: NEXT : PRINT 
CHR$ (7);: RETURN 

3080 КЕ = 0: НТАВ 1: VTAB 9: PR 








INT "QUER USAR MASCARA? 

3090 GET RS: IF RS < > "5" АМ 
D R < > "М" ТНЕМ 3090 

3100 PRINT R$: IF R$ = "Nº THE 
N 3220 

3110 PRINT : INPUT "QUANTOS BL 
OCOS SERAO USADOS? (MAX 20) ";N 
B: IF NB « 0 OR NB > 20 THEN 31 
10 

3120 PRINT : PRINT "OS BLOCOS 
SERAO CARREGADOS DO": PRINT "[T 
JECLADO OU [D]ISCO? "; 

3130 GET RS: IF RS ^ "T" AN 
D RS > "D" THEN 3130 

3140 PRINT AS:BL = O:KF = 2: I 
F RS - "T" THEN KF * 1: GOTO 32 
10 

3150 PRINT : INPUT "NOME DO AR 
QUIVO MASCARA? ";UBS$ 

3160 IF ASC (VBS) 65 OR AS 
С (УВ5) > 90 THEN 3150 

3170 VB$ - UBS * ".TXT": PRINT 





PRINT DS;"OPEN 
D^ ;L2 


;VB$;",S";Ll 














3180 PRINT DS;"READ";VBS: INPU 
T DV,DV 

3190 IF DV < NB THEN PRINT D$ 
i"CLOSE":ER * 2: GOTO 3580 

3200 FOR I = 1 TO NB: INPUT RP 
$(I): NEXT PRINT D: CLOSE": 
GOTO 3220 

3210 PRINT : PRINT : FQR I = 1 
TO NB: PRINT "BLOCO VARIAVEL " 
;I;"-252";: INPUT RPS(I): NEXT 
3220 HOME : GOSUB 250: UTAB 5: 
PRINT "QUER MUDAR A CONFIGURAC 
AO DA IMPRESSORA? ”; 

3230 GET R$: IF R$ € > "5" АМ 
D R$ < > "М" ТНЕМ 3230 


3240 PRINT R$: IF R$ - "S" THE 
N GOSUB 5500: HOME :BL$ = "IMP 
RIMIR": GOSUB 250 

3250 VB = O:PP = O:AS = 





1: PRINT : PRINT : PRINT 

UMA DEMONSTRACAO NA TELA? "; 
3260 GET R$: IF R$ < > "S" AN 
D R$ < > "М" ТНЕМ 3260 

3270 PRINT R$:P * 0:Gl = 0: IF 
RS = "N” THEN P = 1:Gl = GP 
3280 FOR K = 1 TO TL - 1: IF 
LEFT$ (TX$(K),1) * "$" AND LEN 
(TXS(K)) - 1 > AS THEN AS = Г 
EN (TXS(K)) 

3290 NEXT : IF AS > TW THEN ER 
= 1: GOTO 3580 

3300 K = 1: PRINT : PRINT DS;"P 


R$";P: PRINT LF$; SPC( G1);:A$ 
- "": IF AS > O THEN А1 = СР + 
TW - AS 

3310 TTS = TXS(K) 

3320 IF TT$ - " " THEN PRINT 
CHRS (13); SPC( G1);:PP = 0:LC 
= LC * 1: GOSUB 3640: GOTO 354 
0 
3330 IF KF = 0 THEN 3380 

3340 FOR I = 1 TO LEN (TTS) - 
1: IF MIDS (TT$,1,2) < >" 
" THEN NEXT :BP = O: GOTO 3380 
3350 BP * I:BL * BL * 1 








3360 IF BP - 1 THEN TTS = RPS( 
BL) + MIDS (TTS,3):.GOTO 3380 

3370 TTS = LEFTS (TTS,BP - 1) 

+ RPS(BL) + MIDS (TTS.BP * 2): 
GOTO 3340 

3380 TT = ASC (TTS): IF TT = 3 
5 OR TT = 36 OR TT = 38 OR TT = 
42 THEN 3460 

3390 IF PP + LEN (TTS) < -Т 
W THEN PRINT TT$; CHR$ (32);:P 
р = PP + LEN (TTS) + 1: GOTO 3 
540 

3400 TAS - LEFTS (TTS,TW - PP) 
3410 IF RIGHTS (Tà$,1) - " " 

THEN 3440 

3420 IF LEN (TAS) > 1 THEN TA 
$ = LEFTS (TAS, LEN (TAS) - 1) 
: GOTO 3410 

3430 TAS - "" 

3440 PRINT TAS; CHRS (13); SPC 
( G1);:PP = O:LC = LC + 1: GOSU 
B 3640:TTS = MIDS (TTS, LEN (T 
AS) * 1): IF TTS - "" THEN 3540 


3450 GOTO 3390 

3460 FOR I - 1 TO 4: IF MIDS 
("&$*4",I1,1) « » LEFTS (TT$,1 
) THEN NEXT 

3470 ON I GOTO 3480,3490,3510, 





3530 
3480 PRINT CHR$ (13); SPC( Gl 
);:РР = 0:1С = LC * 1: GOSUB 36 






4 
30 
3490 TTS - 


TS = MIDS (TTS,2): GOTO 33 
MIDS (TTS,2): PRINT 
CHR$ (13); SPC( G1); SPC( IN 

T (TW / 4)) ::PP *. INT (TW / 4) 

3500 LC = LC + 1: GOSUB 3640: G 

ото 3330 

3510 TTS = MIDS (TT$,2): IF L 

EN (TTS) > TW THEN ER = 3: GOTO 
3580 

3520 





PRINT CHR$ (13); SPC( Gl 
): SPC( INT ((TW - LEN (TTS)) 
/ 2333775; СНВ8 (13); 8РС( G1) 
¡:PP = O:LC = LC + 1: GOSUB 364 
0: GOTO 3540 

3530 PRINT CHRS (13); SPC( Al 
): MIDS (TTS,2);:PP = O:LC = LC 
+ 1: GOSUB 3640: GOTO 3540 
3540 K = K + 1: IF P * 0 THEN 
FOR Z = 1 TO 1000: NEXT 

3550 IF K € TL THEN 3310 

3560 ІР Р = 1 THEN PRINT LFS; 
LF$: PRINT D$;"PR&0": RETURN 
3570 IF P * 0 THEN PRINT : PR 
INT : GOTO 3250 

3580 PRINT : PRINT D$;"PR40": 
PRINT CHR$ (7): 

3590 HOME : VTAB 12: HTAB 10: 
ON ER GOTO 3600,3610,3620 

3600 PRINT "ENDERECO MUITO LON 
Go!”: GOTO 3630 

3610 PRINT "NAO HA BLOCOS SUFI 
CIENTES”: PRINT TAB( 12)"NO AR 
QUIVO ESCOLHIDO!”: GOTO 3630 
3620 PRINT "IMPOSSIVEL CENTRAL 
IZAR!” 
3630 
PRINT CHR$ (7);: 


FOR 1 = 1 TO 2500: NEXT 
RETURN 


3640 IF LC > TH THEN PRINT LF 
$;LF$; SPC( G1)::LC = 1 

3650 RETURN 

5200 L * CP:TGS - "": VTAB 20: 
HTAB 1: PRINT "PROCURA POR: "; 
5210 GET TC$: IF TCS < > CHR 


$ (13) THEN TGS = TGS + TCS: PR 
ІМТ ТСҘ;: GOTO 5210 

5220 IF TGS = "” THEN 5270 
5230 HTAB l: PRINT "PROCURANDO 
„++”%1: CALL - 958 

5240 IF L = TL THEN CP = TL: G 
OTO 5270 
5250 FOR 
еды ДЕ 


ї = 1 TO LEN (TXS(L) 
MIDS (TXS(L),I, LEN 
(TG$)) < > TGS THEN NEXT :L = 
L + 1: GOTO 5240 

5260 CP = L + 1 

5270 HOME : GOSUB 2090: RETURN 
5300 IF.SS > SE THEN TT = SS:S 
S = SE:SE = TT 

5310 SE = SE - 1 


5320 HTAB 1: VTAB 20: PRINT "O 
RDENANDO..." 

5330 FOR I = SS TO SE - 1 

5340 K = I 


5350 FOR J = I + 1 TO SE 

5360 IF TXS(J) < TXS(K) THEN K 
=J 

5370 NEXT : IF I < 
TS = TXS (K) :TX$ (K) 
(I) = TTS 


> K THEN T 
= TXS(I):TXS 


5380 NEXT : 
RETURN 


HOME : GOSUB 2090: 


Para acessar as rotinas de ordenação 
e busca de palavras, você deve estar no 
modo editor. 

Se você quiser ordenar um bloco de 
dados, leve o marcador “> para um 
dos extremos do bloco e tecle CTRL-O. 
Em seguida, mova-o para o outro extre- 
mo e tecle novamente CTRL-O. A or- 
denação começará imediatamente. 

Quando for preciso procurar uma de- 
terminada palavra dentro do texto, le- 
ve o marcador ao ponto escolhido. A se- 
guir tecle CTRL-P e digite a palavra de- 
sejada, respondendo à solicitação. Te- 
cle [CR] e a busca terá início. Quando 
a palavra for encontrada, o marcador 
será posicionado logo abaixo da linha 
que a contém. Para continuar procuran- 
do novas ocorrências dessa palavra, re- 
pita toda a operação. 

Ao mesmo tempo, para imprimir o 
texto, tecle I a partir do menu principal. 
Em seguida, responda às perguntas que 
lhe são apresentadas. 

A opção usar “máscara de texto” 
permite acrescentar ao texto principal 
blocos variáveis, com os quais podem 
ser produzidas, por exemplo, cartas in- 
dividualizadas. Se você fizer essa opção, 
deixe nos locais apropriados do texto 
um sinal “)[”” para cada bloco. Esses si- 
nais serão substituídos pelo texto ade- 
quado no momento da impressão. 

O texto pode ser digitado a partir do 
teclado, ou lido de um arquivo em dis- 
co. No caso do teclado, o programa so- 
licitará que você digite a frase à medida 
que os sinais sejam encontrados no tex- 
to. Se os blocos forem carregados do 
disco, o computador lerá um arquivo se- 
quencial que você deverá ter criado com 
os dados necessários, usando o próprio 
programa (se você quiser aproveitar um 
arquivo já existente, deve acrescentar 
“TXT” ao nome dele). Cuide para que 
os dados estejam na ordem correta e pa- 
ra que sejam suficientes para todas as 
solicitações. 

O texto pode ser formatado com os 
sinais habituais. (Eles devem sempre ser 
colocados na primeira posição da linha.) 
O asterisco *) centraliza o conteú- 
do da linha; o ampersand (*£'*) provo- 
ca um avanço de linha da impressora, 
colocando o texto subseqüente a partir 
do início da próxima linha; o cifráo 
(“$”) tem a mesma função, com a di- 
ferenga de que provoca um recuo no co- 
meço do texto; o sustenido (** €'*) faz 
as linhas que o contém serem colocadas 
à margem direita do texto. 

Evite inserir blocos variáveis nas li- 
nhas em que aparece o sustenido. 






MSX:TECLAS 
PROGRAMÁVEIS 


O MSX oferece um recurso fantástico _ A maioria dos computadores profis- 

sionais, como os cobiçados micros da li- 

para dar aos programas um acabamento nha PC, de dezesseis bits, tem teclados 

profissional: as teclas programáveis. imensos, en m teclas ou mais. о 

A i não só sim o acesso a um grande 

Explorando-as bem, você conseguirá número de fun es embutidas no siste- 
menus de funções instantâneos na tela... ma, pela pressão a uma única tecla, 


E PROGRAMAÇÃO DAS TECLAS 
MONTAGEM DE UM MENU 
E COMO DETECTAR INTERRUPÇÕES 


E PROGRAMEA TECLA «STOP» 


mo permite que o usuário reprograme 
a função de parte das teclas, de acordo 
com suas necessidades. 

Em número de dez a doze, as teclas 
programáveis pelo usuário, também 
chamadas de teclas de função, em geral 
se situam num bloco isolado, na parte 












































superior ou lateral do teclado. Essa dis- 
posição facilita a correspondência entre 
as teclas e os rótulos a elas atribuídos, 
cujo posicionamento pode ser exibido 
na última linha do vídeo, também sob 
controle de programa. 

Os micros da linha MSX dispõem de 
cinco teclas programáveis, que estão lo- 
calizadas na parte superior do teclado. 
Na realidade, elas possibilitam o acesso 
a dez funções, pois, pressionando-se a 
tecla <SHIFT > simultaneamente com 
uma tecla programável, ativa-se uma se- 
gunda função que pode ser atribuída 
àquela tecla. 

Os recursos de programação dispo- 
níveis no interpretator BASIC do MSX 
são muito ricos. Aprendendo a explorá- 
los de maneira criativa, você se habili- 
tará a produzir programas com um de- 
sempenho altamente profissional. Nes- 
te artigo, apresentamos alguns truques 
interessantes, muitos dos quais não se 
encontram no Manual de BASIC que 
acompanha o computador. Você logo 
será capaz de aproveitá-los com suces- 
so em outros programas. 


TECLAS PROGRAMÁVEIS 


As teclas de função podem ser usa- 
das de dois modos em um programa: 
— para dar entrada a uma cadeia de 
caracteres no computador, pressionan- 
do-se uma única tecla; 

— para interromper automaticamen- 
te a execução de um programa e 
redirecioná-lo para executar uma ou 
mais sub-rotinas específicas, cada qual 
associada a uma tecla programável. 

Em ambos os casos, é possível (mas 
não obrigatório) exibir em uma linha re- 
servada (a última linha da tela) uma lis- 
ta de rótulos de identificação das teclas. 
Assim, o usuário não precisará recorrer 
sempre à memória para saber o que faz 
cada tecla programável. Essa linha, uma 
vez “ligada”, fica presente na tela, mes- 
mo quando seu conteúdo “rola”. 


JAND0S INSTANTÁNEOS 


O modo mais simples de utilização 
das teclas programáveis, que consiste em 
dar entrada a uma cadeia de caracteres, 
é exemplificado pela operação normal 
do próprio computador. 

Como você já deve ter observado, ao 
ligar a máquina (ou ao pressionar o bo- 
tão <RESET> de inicialização, exis- 
tente em alguns micros da linha MSX), 
aparece uma série de rótulos na linha in- 
ferior da tela. Eles correspondem a co- 


mandos ou instruções do BASIC, ou se- 
ja, COLOR, LIST, RUN, GOTO etc. 

Se você pressionar uma das teclas 
programáveis (identificadas na parte su- 
perior do teclado pelos rótulos Fl, F2 etc.), 
verá que a palavra a ela associada é en- 
trada por extenso no computador, apa- 
recendo na tela logo adiante do cursor. 

Caso pressione a tecla <SHIFT > o 
conteúdo da linha inferior da tela mu- 
dará para outros quatro rótulos adicio- 
nais, que correspondem às funções das 
teclas F6 a F10. Portanto, a pressão si- 
multânea das teclas FI e <SHIFT> 
provocará a entrada automática da ca- 
deia associada. 

O carregamento dos rótulos associa- 
dos a cada tecla é feito automaticamen- 
te, no momento de inicialização do in- 
terpretador BASIC. Para apagar a linha 
da tela, basta dar o comando: 


KEY OFF 


seja em modo direto, seja dentro de um 
programa. 

Tente fazer isso e, em seguida, pres- 
sione novamente uma das teclas de fun- 
ção. Você verá que ela continua funcio- 
nando — a cadeia de caracteres a que 
se associa aparece do mesmo jeito na te- 
la. A função do comando KEY OFF, 
portanto, resume-se ao desligamento da 
linha de exibição. 

O comando seguinte faz exatamente 
o contrário do anterior, ou seja, torna 
a exibir a linha de tela associada às te- 
clas programáveis: 


KEY ON 


Este comando também pode ser di- 
gitado em modo direto ou ser colocado 
dentro de um programa. 

No caso da programação BASIC, a 
vantagem de se associar os comandos 
mais comuns às teclas programáveis é 
evidente: em vez de digitar o comando 
por extenso, pressiona-se a tecla progra- 
mável uma vez. Com isso, evitamos er- 
ros de digitação e aceleramos conside- 
ravelmente o processo de entrada de um 
programa BASIC. 

Experimentando todas as teclas pro- 
gramáveis, você observará que algumas 
delas, ao serem pressionadas, simples- 
mente dão entrada à cadeia de caracte- 
res (por exemplo, LIST), e mais nada 
acontece. O cursor fica parado no fim 
da palavra entrada. Para que o coman- 
do seja executado, você deverá pressio- 
nar a tecla <ENTER>, que o envia pa- 
ra o processador. No exemplo dado, a 
execução resultaria na listagem de um 
programa inteiro na tela. 

Você pode, porém, digitar o número 
ou os números de linha sobre os quais 


o comando LIST vai atuar, e só depois 
pressionar <ENTER>. 

Algumas teclas programáveis, por 
outro lado, dão entrada à palavra asso- 
ciada, mas a executam imediatamente — 
é o caso de RUN. Como veremos adian- 
te, essa diferença de funcionamento po- 
de ser especificada facilmente pelo pro- 
gramador. Tudo depende da função que 
se quer associar a cada tecla. 

Para verificar na tela quais os rótu- 
los que se associam a cada uma das te- 
clas programáveis, digite o comando 
KEY LIST. As palavras que são envia- 
das imediatamente, sem a necessidade 
do <ENTER>, aparecem assinaladas 
por uma flechinha no final. Sabe-se, 
desse modo, que o caractere de contro- 
le equivalente ao < ENTER > foi agre- 
gado ao final da palavra. 
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É muito fácil atribuir uma cadeia de 
caracteres a uma tecla programável, e 
pode-se fazé-lo tanto em modo direto 
quanto dentro de um programa. A ins- 
trugáo em BASIC a ser utilizada é: 


KEY n,"cadeia" 


onde n é o número da tecla de função, 
e “cadeia”, o rótulo que deve ser asso- 
ciado à tecla. Experimente digitar, por 
exemplo: 


KEY 1,"CLS" 


O rótulo da tecla F1, que inicialmente 
era COLOR, passa a ser CLS, ao ser ini- 
cializado o computador. Confira, digi- 
tando KEY LIST. 

Agora, pressione a tecla F1. Vocé ve- 
rá entào que o comando CLS aparece 
instantaneamente na tela, logo após o 
cursor, mas náo é executado. Para que 
isso ocorra, vocé deverá pressionar a te- 
cla <ENTER>. 

Se quisermos que a execução do co- 
mando seja automática, precisaremos 
definir a tecla de outro modo: 


KEY 1,"CLS"+CHRS (13) 


Ao listar o conteúdo das teclas pro- 
gramáveis com KEY LIST, você cons- 
tatará que a marca de retorno foi acres- 
centada no fim da palavra CLS. 

O caractere ASCII 13, adicionado à 
cadeia de caracteres por meio da função 
CHRS, corresponde exatamente ao có- 
digo gerado internamente ao se pressio- 
nar a tecla <ENTER>. Ou seja, equi- 
vale a pressioná-la automaticamente, 
quando a tecla F1 é acionada. 

Cabem exatamente seis caracteres no 
espago alocado para o rótulo de cada te- 





cla, na linha de menu. Isto é o que cabe 
na tela, o que náo significa que vocé es- 
teja limitado a definir um rótulo de ape- 
nas seis caracteres. Experimente digitar: 


KEY 1,"DEFUSR1=31100"+CHRS (13) 


Apenas as seis primeiras letras (DE- 
FUSR) aparecerão na tela, mas a cadeia 
será enviada por extenso quando se pres- 
sionar a tecla F1. Portanto, se for ne- 
cessário “esconder” a marca de retor- 
no em um rótulo, basta digitar a seguin- 
te linha: 


KEY 1,"CLS  "+CHR$(13) 


Deixe três espaços entre o final da pa- 
lavra e o segundo sinal de aspas, nesse 
exemplo. 

Se a cadeia de caracteres a ser asso- 
ciada à tecla tiver que conter aspas em 
seu interior, não dará certo fazer algo 
como: 


KEY 1,"LOAD "" CODE" 


A função CHRS$, mais uma vez, re- 
solve o dilema: 


KEY 1,"LOAD "*CHR$(44)* 
CHR$(44)*" CODE" 


O código ASCII 44, evidentemente, 
corresponde ao caractere aspas. 


ITR0S US0S 


Nào é obrigatório atribuir às teclas 
programáveis apenas comandos ou ins- 
trucóes em BASIC. Na realidade, pode- 
se atribuir a elas qualquer cadeia de ca- 


racteres, o que possibilita muitas apli- 
cacóes interessantes. 

Suponhamos, por exemplo, que vo- 
cé vá passar uma longa mensagem ao 
computador usando um programa de 
processamento de textos. Se notar que 
certas palavras ou frases mais longas se- 
rão empregadas várias vezes (como mi- 
crocomputador, Secretaria Especial de 
Informática etc.), bastará carregar pre- 
viamente as teclas de fungáo com estas 
cadeias (náo seguidas do caractere AS- 
CII 13). Pelas seis primeiras letras da 
frase, vocë poderá identificar a tecla as- 
sociada a ela e, simplesmente, pressioná- 
la. Isso poupará muito tempo de di- 
gitação! 


ТЕСМІСА5 ОЕ РНООНАМАСАО ОЕ МЕМУ5 


Como já foi mencionado, as teclas 
programáveis sáo muito utilizadas para 
a programagáo rápida de menus, ofere- 
cendo duas vantagens: o menu fica sem- 
pre presente na linha reservada da tabe- 
la, e é muito mais fácil localizar as te- 
clas associadas às suas opções do que se 
estivéssemos utilizando teclas normais 
do teclado. 

Os programas que se seguem vão 
mostrar algumas das técnicas mais co- 
muns de programação de menus utili- 
zando as teclas de função. 

Suponhamos que você queira elabo- 
rar um programa de banco de dados, 
com as quatro funções clássicas: inserir 
registros, apagar registros, modificar re- 
gistros e listar o banco de dados. Além 
dessas funções precisaríamos de uma 





quinta opção: a de término da execução 
do programa. 

Já vimos como montar um menu des- 
se tipo de diversas maneiras — usando 
PRINT, INPUT, INKEYS etc. Para 
usar teclas programáveis, poderíamos 
fazer o seguinte: 


10 STS=STRINGS(38,"_") 
20 KEY OFF:CLS 

30 KEY 1,"Insere” 

40 KEY 2,"Apaga 
50 KEY 3,"Modif 
60 KEY 4,"Lista ” 
70 KEY 5,"FIM 
80 LOCATE 10,0 
90 PRINT "BANCO DE DADOS" 
100 LOCATE 0,1:PRINT ST$ 
110 LOCATE 0,21:PRINT STS 
120 KEY ON 


130 A$=INPUTS (6) 

140 LOCATE 0,10 

150 PRINT "FUNÇÃO: ";AS 

160 IF AS="FIM ” THEN CLS: END 
170 GOTO 130 


A linha 10 define uma variável, ST$, 
igual a uma cadeia de 38 tracinhos: é a 
linha de separação, usada para dar me- 
lhor aparência à tela de entrada. A li- 
nha 20 ‘“‘desliga” a linha de identifica- 
ção das teclas programáveis e limpa a te- 
la. As linhas 30 a 70 programam as te- 
clas de função F1 a F5. As linhas de 90 
a 110 compõem a tela e a 120 “liga” no- 
vamente a linha de exibição dos rótulos 
das teclas de função, desta vez com os 
rótulos que foram atribuídos no 
programa. 

Finalmente, as linhas 130 a 150 pro- 
cessam o resultado da pressão às teclas i 
de função. Observe que a instrução 



































INPUTS, própria do MSX, tem um fun- 
cionamento semelhante ao do INKEYS, 
só que inclui um determinado nümero 
de pressões às teclas, de cada vez. 
INPUTS(6) significa que o computador 
deve esperar que seis caracteres sejam 
digitados (náo os mostra na tela) para, 
entáo, prosseguir o programa. 

Note que colocamos seis caracteres 
em cada rótulo, preenchendo-os com es- 
paços em branco ao final, quando ne- 
cessário. Assim, qualquer pressão a uma 
tecla programável imediatamente aten- 
derá à condição da linha 130, armaze- 
nando o resultado na variável A$ e se- 
guindo para as linhas 140 a 160. 

Às linhas 140 e 150 cabe simplesmen- 
te escrever o resultado dessa atuação no 
meio da tela. A linha 160 exemplifica o 
que fazer a partir daí. Ela verifica se 
FIM foi pressionado e executa 
CLS:END, terminando o programa, se 
isto aconteceu. 

Diversos IF seriam utilizados para 

chamar (GOSUB) as rotinas de inserção, 
apagamento etc., no nosso banco de da- 
dos. A linha 170 faz tudo voltar ao me- 
nu. Pode ser interessante dar um KEY 
OFF antes de chamar as rotinas, para 
que o usuário não tenha a impressão de 
que o menu ainda continua disponível. 
Isso pode ser feito seletivamente, como 
veremos mais adiante. 
O programa seguinte, que é uma mo- 
dificação do anterior, testa o resultado 
da pressão a uma tecla de função com 
mais economia. 


10 STS=STRINGS (38,"_”) 

20 KEY OFF:CLS 

30 KEY 1,"Insere” 

40 KEY 2,"Apaga " 

50 KEY 3,"Modif " 

60 KEY 4,"Lista " 

70 KEY 5,"FIM Б. 

B0 LOCATE 10,0 

90 PRINT "BANCO DE DADOS" 
100 LOCATE 0,1:PRINT ST$ 
110 LOCATE 0,21:PRINT ST$ 
120 KEY ON 

130 AS-LEFTS (INPUTS (6),1) 
140 LOCATE 0,10 

150 ON INSTR("IAMLE",AS) GOSUB 
170,180,190,200,900 

155 GOTO 130 


170 PRINT "ROTINA DE INSERCAO 
175 RETURN 
180 PRINT "ROTINA DE APAGAMENTO 
185 RETURN 
190 PRINT "ROTINA DE MODIFICACA 
о" 
195 RETURN 

LISTAGEM 


200 PRINT "ROTINA DE 


205 RETURN 
900 REM FIM DO PROGRAMA 
905 CLS:END 


Observe que, agora, a linha 130 é 
usada para extrair e armazenar em A$ 
apenas o primeiro caractere do rótulo da 
tecla de fungáo acionada. Portanto, os 
rótulos precisam ter, como no exemplo, 
letras iniciais diferentes, para evitar con- 
fusões. 

Na linha 15 está a vantagem dessa 
técnica. Ela permite utilizar a forma 
bem mais compacta do ON...GOSUB, 
para dirigir o programa à rotina chama- 
da pelo menu. 

А função INSTR, que talvez você 
não conheça, significa, em inglês, in 
string, ou seja, dentro de um cordão. 
Ela verifica se um caractere ou cadeia 
de caracteres está presente dentro de 
uma outra cadeia. Em caso negativo, o 
valor zero é retornado. Em caso afirma- 
tivo, a posição do caractere (sua ordem 
no primeiro cordão) é retornada. Por 
exemplo: 


PRINT INSTR ("COMPUTADOR","P") 
retorna o valor 4, enquanto: 


LET AS-"X" 
PRINT INSTR ("COMPUTADOR" ,A$) 


retorna o valor zero. 

No programa, o cordão IAMLF es- 
pecificado corresponde às letras iniciais 
das cinco opções oferecidas pelo menu. 
Sendo pressionada uma das teclas pro- 
gramáveis, a letra inicial do rótulo é ar- 
mazenada em A$ (linha 130) e testada 
pela função INSTR, na linha 150. O 
número retornado serve para endere- 
çar a sub-rotina que será selecionada em 
ON...GOSUB. 

A listagem do programa anterior 
mostra apenas a primeira e a última li- 
nhas das rotinas. Se estiver interessado, 
complete-as você mesmo. 


INTERRUPÇÕES PROGRAMADAS 


Os programas vistos até aqui parecem 
não apresentar vantagens mais signifi- 
cativas em relação à programação con- 
vencional de menus que aprendemos an- 
teriormente. Na realidade, eles apenas 
acrescentam a possibilidade de utiliza- 
ção das teclas programáveis e da linha 
reservada de rotulação. 

Entretanto, as teclas de função do 
micro MSX oferecem um recurso bem 
mais poderoso de programação: a inter- 
rupção programada. 

Quando pressionamos uma das teclas 
de função F1 a F10, o comportamento 
do computador é diferente do observa- 
do em relação às teclas normais do te- 
clado. Em vez de simplesmente gerar um 
caractere ou cordão de caracteres, a 
pressão à tecla de função “avisa” o in- 





terpretador BASIC — qualquer que se- 
ja o ponto do programa que esteja sen- 
do executado — que tal pressão ocor- 
reu, gerando o que se denomina, em lin- 
guagem técnica, de interrupção do pro- 
cessador (UCP). 

Para entender como funciona uma 
interrupção pelo teclado, basta tomar 
como exemplo uma tecla que já é pré- 
programada para gerar um tipo especí- 
fico de interrupção: a tecla <STOP >. 

O sistema operacional e interpretador 
BASIC do MSX está sempre “atento” 
à tecla <STOP>, por meio de um dis- 
positivo especial de hardware, para de- 
tectar se ela foi pressionada. A verifica- 
ção é feita a cada poucos microssegun- 
dos e, não importa o que o computador 
esteja fazendo no momento da interrup- 
ção, imediatamente o processador pas- 
sa a executar uma rotina de serviço que, 
no caso, servirá para “'congelar” um 
programa em execução ou interrom- 
pê-lo, retornando ao modo de entrada 
(quando <CONTROL> e <STOP> 
sáo pressionadas simultaneamente). 

Pois bem, F1 a F10 sáo teclas de in- 
terrupção programáveis, ou seja, O pro- 
gramador pode especificar a rotina de 
servigo que deve ser acionada pelo sis- 
tema operacional correspondente a ca- 
da tecla. 

Existem diversas instruções do BA- 
SIC que permitem programar interrup- 
ções a partir das teclas F1 a F10. Uma 
delas consiste em: 


ON KEY GOSUB п1,п2... 


que verifica se alguma tecla de fungáo 
foi pressionada, ou seja, se ocorreu uma 
interrupção. Conforme a tecla pressio- 
nada, um número inteiro entre 1 e 10 é 
retornado. Ele chama a sub-rotina na 
ordem indicada, nas linhas ni, n2 etc. 


“ON KEY GOSUB 1000, 1100, por 


exemplo, provocará um salto para a 
sub-rotina que começa na linha 1000, se 
a tecla F1 for acionada, ou para a linha 
1100, se a tecla F2 for acionada, A ins- 
trucào ON KEY GOSUB deve ser colo- 
cada em um ponto da listagem que as- 
segure a sua execução pelo menos uma 
vez, antes das detecções de interrupção, 
que, como a rotulação das teclas, ocor- 
rem no começo do programa. 

Porém, precisamos de mais uma con- 
dição para montar a “armadilha” que 
detecta interrupções. A capacidade de 
gerar interrupções pode ser “ligada” ou 
“desligada” de cada tecla de função in- 
dividualmente, pelas instruções: 


KEY (n) ON 
KEY (n) OFF 


KEY (n) STOP 
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onde n é o número da tecla. Quando se 
liga o computador, todas as teclas estáo 
em modo OFF, ou seja, “desligadas” 
Ao ser detectada uma pressão à tecla de 
função, um KEY STOP é dado automa: 
ticamente, inibindo toda a interrupção 
subsequente, até que ocorra um RE- 
TURN da sub-rotina chamada pelo ON 
KEY GOSUB 

Embora o comando KEY (n) STOP 
iniba a interrupção do programa, ele 
continua sendo capaz de detectar uma 
pressão à tecla de função indicada. As 
sim, ao retornar da rotina de serviço de 
uma tecla de função, o programa pode 
rá imediatamente rumar para outra ro 
tina, se, enquanto isso, outra tecla de 
função tiver sido pressionada 

Se o programador quiser inibir tan 
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to a interrupção quanto a detecção, de- 
ve usar um comando KEY (n) OFF 

No programa seguinte você encontra- 
rá exemplos das técnicas mais elemen- 
tares de utilização das instruções ON 
KEY GOSUB e KEY ON. O objetivo é 
imitar uma máquina de somar simples, 
que apresenta o resultado quando a te- 
cla Fl é pressionada 


10 
20 
I" 
30 
40 
50 
60 


CLS 


PRINT TAB(10);"SOMADORA MSX 





SOSUB 200 





KEY 
KEY 





ALCA DE SOMA 


140 
150 
160 
170 
180 
190 
200 
210 


230 LOCATE 0,12 
240 PRINT 
250 RETURN 


LOCATE 6,10 
PRINT " 

LOCATE 0,10 
INPUT "VALOR ";V 
S=S+V:GOTO 150 


SUBROTINA PARA TECLA Fl 


"SOMA * ";S 
150 





A linha 30, logo no comego do pro- 
grama, prepara a armadilha para detec- 
tar interrupções pelas teclas de função 
e desviar o fluxo de processamento. A 
linha 40 zera a variável S, que é o acu- 
mulador de somas; a linha 50 “liga” a 
tecla Fl e rotula seu propósito na linha 











































reservada para exibição na tela. A linha 
60 “limpa” os rótulos das teclas progra- 
máveis que não serão usadas. 

As linhas 150 a 190 do programa rea- 
lizam a função de soma de valores. Elas 
formam uma alça sem fim, o que é típi- 
co de todo programa que utiliza as te- 
clas de função do contexto do ON KEY 
GOSUB. A alça sem fim faz o progra- 
ma esperar ou executar alguma coisa (no 
caso somar os números entrados pelo 
usuário), até que uma tecla de interrup- 
ção seja pressionada. 

Se se pressionar a tecla Fl enquanto 
o programa está esperando a entrada de 
um valor, nada acontece de imediato. 
Mas, assim que a tecla <ENTER> for 
pressionada, a rotina que comega na li- 
nha 200 será acionada, pois foi a espe- 
cificada na linha 30. Ela simplesmente 
mostra a soma acumulada até o último 
número entrado e retorna para a linha 
30, de modo a dar prosseguimento á 
soma. 

E o que acontece se alguma tecla pro- 
gramável náo desativada for acidental- 
mente pressionada? Náo acontece nada, 
pois o funcionamento do ON KEY GO- 
SUB é tal que o desvio se realiza apenas 
para as sub-rotinas indicadas. 


PROGRAMA MAIS FI 
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Embora náo apresente problemas de 
funcionamento, o programa anterior 
tem dois defeitos: náo oferece provisáo 
para interrupgáo ao final do processa- 
mento, nem a possibilidade de zerar o 
acumulador para permitir nova soma 
sem sair do programa. O seguinte, mais 
completo, faz tudo isso: 


10 CLS 

20 PRINT TAB(10);"SOMADORA MSX 
11° 

30 ON KEY GOSUB 200,300,400 

40 S-0 
50 KEY 
60 KEY 
70 KEY 
80 KE 
120 * 
130 ' 
140 ' 
150 LOCATE 6,10 

160 PRINT " n 
170 LOCATE 0,10 

180 INPUT "VALOR ";V 

190 S-S*V:GOTO 150 

200 ' 
210 * 
220 ' 
230 LOCATE 0,12 
240 PRINT "SOMA = 
250 RETURN 150 
300 * 
310 * 
320 > 


(1) ON:KEY 1,"SOMA ” 
(2) ON:KEY 2,"LIMPA " 
(3) ON:KEY 3,"FIM F 
AGO MIRRA A 


ALCA DE SOMA 


SUBROTINA PARA TECLA Fl 


"us 


SUBROTINA PARA TECLA F2 


330 
340 
350 
400 
410 ' 
420 ' 
430 CLS:END 


Agora, a linha 30 permite o desvio 
para trés rotinas: de soma (linha 200), 
de zeragem (linha 300) e de término (li- 
nha 400). Experimente pressionar outras 
teclas de fungáo enquanto uma rotina 
está sendo executada: se vocé conseguir 
fazé-lo a tempo, notará que nada 
acontece. 

Em um programa curto como este, à 
definigáo individual de cada KEY é mais 
do que satisfatória. Entretanto, se pre- 
cisar incluir muitas teclas, vocé poderá 
obter um programa mais compacto e 
elegante fazendo esta definigáo dentro 
de um lago de repetigáo. Para ter um 
exemplo, substitua estas linhas no pro- 
grama anterior: 


50 FOR I=1 TO 5 

60 READ C$:KEY (I) ON 

70 KEY I,CS:NEXT I 

BO DATA "SOMA ","LIMPA ","FIM 


LOCATE 0,12 
PRINT "SOMA = 0 
S-0:RETURN 150 


SUBROTINA PARA TECLA F3 


O laco que vai das linhas 50 a 70 faz 
um índice I variar de 1 a 5. A linha 60 
lé sucessivamente os rótulos das teclas, 
em DATA. Observe que os rótulos nào 
usados são definidos como um espaço 
em branco. 

As linhas 60 e 70 ainda se encarre- 
gam, respectivamente, de “ligar” a te- 
cla e atribuir-lhe o rótulo C$. Note que 
os comandos aceitam variáveis como ar- 
gumentos. 

Ao experimentar o programa, você 
deve ter reparado que as teclas progra- 
máveis não interrompem o programa 
enquanto ele está esperando entradas 
pelo usuário, em um comando INPUT. 
Como se trata de um inconveniente, re- 
correremos a um expediente que possi- 
bilitará a ocorrência de interrupção em 
qualquer momento. A condição para is- 
so é que o computador esteja dentro de 
um laço de repetição durante a entrada 
de um valor na linha 30. Tal condição 
pode ser atendida se “simularmos” um 
comando INPUT, por meio de vários 
INKEYS$ sucessivos. 

A rotina seguinte, que começa na li- 
nha 500, faz esse serviço, e retorna um 
valor númerico V. Substitua também a 
linha 30, como foi indicado: 


PRINT "VALOR ";:GOSUB 500 
у$="” 

510 С8=1МКЕҮ$:1Р С$-"" ТНЕМ 510 
520 IF ASC(CS)=13 THEN V=VAL ( 
V$) : RETURN 

530 РВІМТ С5:У5-У5%С5:60Т0 510 


180 
500 


Experimente o programa modificado 
e veja como ele é capaz de aceitar inter- 
rupcóes também dentro do ciclo de en- 
trada de dados. 


PROGRAMAÇÃO DA TE E 


Afirmamos um pouco antes que 
« STOP » é uma tecla de interrupção 
pré-programada, ou seja, que executa 
uma rotina fixa ao ser acionada. Bem, 
a afirmação é totalmente verdadeira! 

De fato, o usuário também pode pro- 
gramar a tecla < STOP >, definindo o 
que ela deve fazer quando for pressio- 
nada. Assim, <STOP > equivale às te- 
clas de função, só que não dispõe de es- 
paço próprio na linha reservada de ro- 
tulação, para dizer ao usuário o que ela 
faz. Mas podemos utilizar a própria de- 
finição da tecla e usá-la sempre para ter- 
minar um programa ou um sub- 
programa. Esta função de “escape” de 
um nível de programa para outro é a 
marca registrada dos superprogramas 
comerciais atualmente disponíveis para 
computadores pessoais. 

O comando que se segue desvia o 
processamento para a sub-rotina indica- 
da, quando as teclas <CTRL> e 
<STOP > são pressionadas simultanca- 
mente (nada acontece se se pressionar 
apenas a tecla <STOP>). 


ON STOP GOSUB 


Para que uma instrução ON STOP 
GOSUB funcione, é necessário ativar a 
armadilha interna, por meio de um co- 
mando STOP ON. A partir do momen- 
to em que este comando for encontra- 
do, o desvio será realizado para a 
sub-rotina indicada no ON STOP GO- 
SUB, sempre que se pressionar simulta- 
neamente as teclas <CTRL> e 
<STOP>. Como nas teclas de função, 
os comandos STOP OFF e STOP STOP 
“desligam”, respectivamente, a inter- 
rupção e a detecção, para as teclas men- 
cionadas. Experimente alterar o progra- 
ma, adicionando a opção de interrup- 
ção pelas teclas <CTRL> <STOP>: 


45 ON STOP GOSUB 400 
90 STOP ON 


A possibilidade de detectar o aciona- 
mento da tecla <STOP > tem uma ou- 
tra utilidade: muitas vezes, o programa- 
dor deseja impedir a interrupção aciden- 
tal ou intencional de seu programa por 
um outro usuário, seja para protegê-lo 
contra olhos curiosos, seja para evitar 
perdas de dados ou outras condições cri- 
ticas. O ON STOP GOSUB funciona 
muito bem para esta finalidade, no mi- 
cro MSX. 








UTILIZACAO DE CARACTERES 

GRÁFICOS EM PROGRAMAS 

AS FUNCÓES CHR$ E STRINGS 
TABELA DE REFERÊNCIA 















Os usuários do TRS-80 não precisam 
ficar frustrados por não disporem dos 
fabulosos sprites. Como verão aqui, é 
possível obter animações de excelente 
qualidade em suas máquinas. 


Se você já tentou produzir gráficos 
animados em um microcomputador da 
linha TRS-80 usando os comandos SET 
e RESET, com certeza chegou à conclu- 
são de que a tarefa é praticamente im- 
possível. Esses comandos servem para 
acender ou apagar pixels individuais na 
tabela de baixa resolução, permitindo 
compor, sem maiores dificuldades, figu- 
ras complexas, como um avião ou um 
foguete. Entretanto, se tentarmos ani- 
mar o desenho como um todo — 
deslocá-lo na tela, por exemplo —, ob- 
teremos efeitos ridículos, graças à len- 
tidão do interpretador BASIC. 

Vimos em artigos anteriores que, no 
que se refere aos micros pessoais mais 
modernos — como os das linhas Spec- 
trum, TRS-Color, MSX e Apple —, a 
solução para esse problema consiste em 
definir caracteres gráficos por softwa- 
re, armazená-los em uma porção da me- 
mória (área UDG no Spectrum, sprites 
autênticos no MSX e variáveis numéri- 
cas ou alfanuméricas nos demais com- 
putadores) e animá-los. 

Evidentemente, o TRS-80 não conta 
com recursos tão maravilhosos. Mas há 

im “jeitinho” que nos permite obter 
animações fantasticamente rápidas... 
em BASIC! Veremos como em uma sé- 
rie de artigos. Antes, porém, precisamos 
entender o funcionamento dos caracte- 
res gráficos pré-definidos do TRS-80. 


CARACTERES GRÁFICOS 


O que sáo caracteres gráficos? Como 
vocé já sabe, os caracteres que aparecem 
no vídeo tém códigos numéricos intei- 
ros que, teoricamente, podem variar en- 
tre 0 e 255 — cada caractere correspon- 
dendo, portanto, a um byte da memó- 
ria de vídeo. Parte dessa codificação é 
convencionada internacionalmente: 
trata-se do chamado código ASCII, que 








vai de 32 a 126. Os códigos O a 31 são 
normalmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos 127 a 255. Nesta faixa cada 
fabricante utiliza os códigos de uma ma- 
neira, geralmente para acomodar carac- 
teres gráficos. 

O TRS-80 possui 64 caracteres gráfi- 
cos de teclado, ocupando a faixa de có- 
digos que vai de 128 a 191. 

O caractere gráfico com o código 128 
é um espaço em branco, semelhante ao 
que recebe o código 32 no ASCII. En- 
tretanto, não deixa de ser útil, sobretu- 
do para efeito de certas manipulações 
nas telas gráficas. 

Um aspecto bastante interessante dos 
caracteres gráficos pré-definidos é que 
eles se comportam exatamente como 
qualquer outro caractere alfanumérico, 
para fins de impressão na tela. Assim, 
eles podem ser usados como argumen- 
to de comandos PRINT, o que nos per- 
mite obter boa velocidade na exibição 
de gráficos no micro TRS-80. 

Ao contrário dos caracteres gráficos 
pré-definidos do TK-2000, do MSX, do 
ZX-81 e do Spectrum, os do TRS-80 não 
podem ser entrados pelo teclado. Assim, 
para especificá-los dentro de um progra- 
ma, é necessário utilizar as funções 
CHRS e STRINGS. 

Para imprimir na tela um retángulo 
totalmente preenchido, escrevemos, por 
exemplo: 


PRINT CHR$(191) 


O programa abaixo mostra a tabela 
de correspondência entre códigos numé- 
ricos e gráficos na tela do TRS-80: 


10 CLS 

20 FOR J=129 TO 191 STEP 9 
30 FOR I=J TO J+8 

40 PRINT I;CHRS(I); 

50 NEXT I:PRINT:NEXT J 


O programa funciona da seguinte 
maneira: a linha 10 limpa a tela. O lago 
que vai da linha 20 à linha 50 (controla- 
do pela variável J) produz valores nu- 
méricos que variam entre 129 e 191 (a 
faixa de códigos gráficos, portanto), em 
incrementos de 9. Assim, o laco das li- 
nhas 30 a 50 (controlado pela variável 
I) pode incrementar de 1 em 1 os valo- 








res intermediários. Este é um artifício 
utilizado para produzir na tela uma ta- 
bela clara e bem-feita, com nove códi- 
gos por linha. 

A linha 40 do programa exibe o có- 
digo numérico (I) e o caractere gráfico 
correspondente (CHR$(I)). O PRINT 
entre os dois NEXT na linha 50 serve 
para mudar a linha de impressão. 

Se você pretende empregar caracte- 
res gráficos freqüentemente em um pro- 
grama, convém armazenar os seus có- 
digos em uma variável alfanumérica. 
Com esse procedimento, você não só 
poderá utilizá-los com mais facilidade 
como também não precisará consultar 
a toda hora a tabela de códigos gráfi- 
cos, ao desenvolver um programa. 

Da mesma maneira, se você quiser 
utilizar uma cadeia de caracteres gráfi- 
cos em vários pontos de um programa, 
armazene-a em uma variável alfanumé- 
rica. Para isso, recorra à função 
STRINGS. 

Execute o programa abaixo e veja co- 
mo ficam linhas compostas pelo mesmo 
caractere gráfico. 

10 CLS 

20 INPUT"CODIGO GRAFICO 
(129-191)";C 

30 INPUT"COMPRIMENTO (1-63)";N 
40 SS-STRINGS (N,C) 

50 PRINT € 256,88 

60 FOR I=1 TO 500:NEXT 

70 GOTO 10 


A função STRINGS tem várias utili- 
dades, quando empregada com códigos 
gráficos. Uma delas, por exemplo, é 
preencher instantaneamente a tela com 
um caractere gráfico. Lembre-se de que 
a tela de textos do TRS-80 tem 1024 ca- 
racteres (dezesseis linhas de 64 colunas 
cada). Se usarmos, por exemplo, uma 
linha de programa composta de quatro 
PRINT STRINGS(256,191), separados 
por ponto e vírgula, o resultado será um 
preenchimento total da tela com o ca- 
ractere gráfico 191, que corresponde a 
um bloco inteiramente preenchido (ve- 
ja a tabela constante do seu Manual de 
Programação). 

Substituindo o segundo argumento 
da função STRINGS por outro código 
qualquer, poderemos usar o mesmo re- 
curso para preencher a tela com blocos 
gráficos diversos. 









СРКОСК 





Na teoria, pelo menos, náo faz sen- 
tido falar na criação de um desenho tri- 
dimensional — uma caixa, por exemplo 
—, num plano bidimensional, seja ele 
um pedaço de papel ou uma tela de te- 
levisão. No entanto, podemos recorrer 
a técnicas de desenho que dão às figu- 
ras a impressáo de solidez. 


)METRII 





A pintura de uma paisagem, por 
exemplo, parece ter profundidade e dis- 


FICOS EM 3-D Q) 





táncia quando o pintor faz o desenho em 
perspectiva. Trata-se de um truque vi- 
sual baseado no fato de que os objetos 
parecem ficar menores à medida que se 
distanciam, e de que linhas paralelas pa- 
recem convergir à distáncia. 

A perspectiva nào é a ünica técnica 
usada nesse tipo de representacáo. Em 
desenho técnico é comum ouvirmos fa- 
lar de projeção isométrica. Como no de- 
senho em perspectiva, as linhas que o 
observador nào vé sào desenhadas num 
certo ángulo. Porém, elas nào conver- 





Até aqui, limitamos nossos wireframes 
a linhas e formas bidimensionais. 

Mas, com algumas alteracóes nas rotinas 
utilizadas anteriormente, poderemos 
estruturar imagens tridimensionais. 
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EM TRÉS DIMENSÓES 
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Ка ЕЕЕ 


gem e os objetos náo parecem D 
nores à distáncia. A vantagem da proje- 
ção isométrica que a diregáo da linha 
por isso, pode-se 
saber a medida exata de cada linha di- 
retamente do desenho. 

Embora possamos utilizar o compu- 
tador рага fazer um desenho em pers- 
респуа, é bem mais fácil representar a 
projeção isométrica. Esta baseia-se sim- 
ріеѕтепіе па criação де шп тегсеіго сі- 
xo, além do eixo X (horizontal) e do eixo 
Y (vertical) já existentes. Este terceiro 
eixo, o Z, está posicionado num certo 
ángulo com os outros dois. Qualquer li- 
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COMO UTILIZAR 0 
PROGRAMA PARA 
OBTER OUTRAS FORMAS 
UM LACO NA CAIXA 


nha desenhada nesse ângulo pode ser en- 
tendida como se afastando (ou se apro- 
ximando) do observador. O diagrama dos 
eixos na figura da página 630 ajudará a 
entender melhor o que dissemos até agora. 





Recorrendo à projeção isométrica, 
podemos produzir imagens tridimensio- 
nais tipo wireframe a partir de formas 
bidimensionais, utilizando as rotinas pa- 
ra grades e circulos apresentadas no pri- 
meiro artigo da série. Algumas dessas 








formas bidimensionais precisarão ser 
distorcidas, de modo que se tornem com- 
patíveis com o ângulo do eixo Z. Para 
isso procederemos a várias mudanças de 
coordenadas baseadas em principios ma- 
temáticos um tanto complicados. Mas não 
se preocupe, pois o computador os ma- 
nuseia com facilidade. 

Em primeiro lugar, transformaremos 
coordenadas 2-D (X, Y) em 3-D (X', Y', 
Z'), no plano desejado. Isto signific: 
que devemos especificar o quanto o pl 
no se estende ao longo do eixo Z. L 
pois transformaremos as coordenadas 
3-D (X’, Y’, Z’) num novo conjunto de 
coordenadas 3-D (Xe,Ye,Ze), baseado 
na direção e posição da qual olhamos o 
objeto. Finalmente, voltaremos a trans- 
formar (Xe, Ye,Ze) em coordenadas 2-D 
(Xp, Yp), para que o conjunto possa ser 
mostrado na tela. Acompanhe os 
gramas da página 631; eles most; 
modificação de uma forma de dese! 
nos seis lados de uma imagem. 

Durante a transformação, podemos 
levar em consideração a perspectiva, E] 


“ЖЕР w 











Posso modificar o programa para de- 
senhar imagens diferentes? 

A rotina-base de nosso programa é 
a que compõe a grade. A rotina que ela 
utiliza para traçar linhas poderia ser mo- 
dificada para desenhar outras formas. 
No caso de um triângulo, por exemplo, 
não haverá maiores problemas, mas, se 
tivermos que acessar a rotina várias ve- 
zes seguidas, tal como no desenho de 
um tetraedro (figura de quatro lados 
triangulares), precisaremos de um pou- 
co mais de atenção. No desenho da ba- 
se, os valores dados às variáveis de 
transformação serão iguais aos da cai- 
xa. Em compensação, a alteração das 
variáveis de transformação (linhas 270 
a 300) para obter o ângulo e posição 
correta dos outros lados constitui uma 
tarefa muito difícil. 

É mais fácil mudar o programa para 
que desenhe caixas de diferentes tama- 
nhos ou figuras que não se fecham. Fa- 
ça, por exemplo, com que o valor de 
L na linha 120 varie com o tempo, al- 
terando, assim, o tamanho da caixa; 
depois, mude o valor de N na mesma 
linha. Atribuindo valores maiores a N, 
a caixa parecerá sólida. Para evitar que 
as faces da frente e de trás sejam de- 
senhadas, apague a linha 311 (que faz 
um laço sobre a caixa) e digite: 


155 GOTO 220 


Depois, rode o programa. 











Em perspectiva, os cantos da caixa. 
são convergentes; em projeção 

isométrica, permanecem paralelos. 
As duas formas podem ser + 
representadas num sistema 
de trés coordenadas. 





mas isso complica bastante o programa. 
Vamos nos limitar, assim, ao desenho 
isométrico de uma caixa, deixando a 
perspectiva para um próximo artigo. 
Como o primeiro e o último conjuntos 
de coordenadas sáo bidimensionais, e 
todas as transformações são lineares (li- 
nhas retas ficam retas e linhas paralelas 
permanecem paralelas), precisaremos al- 
terar apenas as rotinas de inicialização 
e de desenho. 

Caso tenha armazenado em fita ou 
disco o programa dado no primeiro ar- 
tigo, carregue-o novamente e digite as 
linhas que vêm a seguir. É aconselhável 
gravar todas as listagens, pois, à medi- 
da que desenvolvermos o programa em 
artigos futuros, voltaremos a chamar al- 
gumas rotinas. Se você não tem o pro- 
grama gravado, digite as linhas 5000 a 
5130 do artigo anterior desta série. Elas 
compõem a rotina que desenha uma 
grade. 

Apague as linhas 150 e 155 antes de 
digitar as que se seguem, mas não rode 
o programa ainda. 


9000 LET YX=0: LET XY=0: LET YX 
=0: LET YY=1: LET X0=0: LET YO= 
0 

9010 BORDER 4: PAPER 7: INK 0: 


CLS 

9070 RETURN 

9100 REM MOVER 

9110 PLOT XSAXX+XYAYS+X0+127, YX 
*XS*YY*YS*YO*76 

9120 RETURN 

9200 REM DESENHA 

9210 DRAW XE*XX*XY*YE*XO*127-PE 
EK 23677 ,YX*XE+YY*YE+YO+76-PEEK 
23678 

9220 RETURN 

9500 REM LINHA 

9510 GOSUB 9100 








GOSUB 9200 
RETURN 


9520 
9550 


q 


9000 
9030 
9040 
9070 RETURN 

9500 LINE (XS*XX+XY*YS+X0+127,YX 
*XS4YY*YS-YO*95) - (XESXX*XY*YESX 
0*127,YX*XE*YY*YE*YO*95) ,15 
9550 RETURN 


(4! 


9000 
1:Х0 
9010 HGR 
9070 RETURN 
9100 ВЕМ МОУЕ 

9108 X1 = XS * XX + XY * YS * X 
о + 127 
9109 Yl 
0 * 76 
9110 


CLS 
хх-1 
YY=1 


ХХ = 1:ХҮ = 0:ҮХ = 0:ҮҮ = 
= 0:70 = O 


HCOLOR= 3 


= YX * X8 * YY * YS * Y 


HPLOT Xl,Yl 

9120 RETURN 

9200 REM DESENHA 

9208 Х2 = ХЕ * XX + XY * YE + X 
0 % 127 
9209 Y2 
0 * 76 
9210 
9220 
9500 
9510 
9520 
9550 


= YX * XE + YY * YE + Y 


HPLOT X1,Y1 TO X2,Y2 
RETURN 

REM LINHA 

GOSUB 9100 

GOSUB 9200 

RETURN 





9000 
9030 
9040 
9070 RETURN 

9500 LINE (XS*XX+XY*Y8+X0+127,YX 
AXS+YYAYS+YO+95)- (XE*XX+XY*YE+X 
0*127, YX*XE*YY* YE*YO*95) , PSET 
9550 RETURN 


PCLS 
XX-1 
YY-1 






































A rotina das linhas 9000 a 9070 ini- 
cializa as variáveis de transformagáo 
(XX,X Y, YX,XO,YO) em valores que 
fazem a rotina de desenho funcionar co- 
mo antes. No micro TRS-Color náo é 
necessário inicializar variáveis, mas fazê- 
lo facilita bastante a compreensão do 
programa. 

A rotina movimenta os eixos de ma- 
neira que a origem destes esteja no cen- 
tro da tela. A origem é deslocada porque 
fica mais fácil supor que o olho do ob- 
servador está diretamente acima dela no 
centro da tela. Isso ficará mais claro no 
próximo artigo, onde veremos como 
mudar o ponto de vista e acrescentar 
perspectiva. 

Para observar o efeito de cada variá- 
vel de transformação e ter uma idéia 
mais clara do que está acontecendo, mo- 
difique as linhas 100 a 180: 


100 GOSUB 9000 
120 сїз 






















130 LET XA=-40: LET YA=-20: 
LET LW=40: LET LH=40: LET NX=5 
: LET NY=5 

135 GOSUB 5000 

140 LET XA=0: LET YA=-20: LET 
LW=40: LET LH=40: LET NX=10: 
LET NY=10 


145 GOSUB 5000 

160 INPUT "INTRODUZA XX,XY,YX, 
YY,XO, YO" , XX, XY, YX, YY, XO, YO 
170 GOTO 120 

180 STOP 


q 


100 
105 
110 


SCREEN 2:COLOR 15,4,4 
PI=4*ATN (1) 

GOSUB 9000 

120 CLS:SCREEN 2 

130 XA=-40:YA=-20:LW=40:LH=40:N 
X=10:NY=10 

135 GOSUB 5000 

140 XA=0:YA=-20:LW=40:LH=40:NX= 
10:NY=10 

145 GOSUB 5000 

150 AS-INKEYS:IF AS-"" THEN 150 
ELSE SCREEN 0:CLS 

160 INPUT"ENTRE XX,XY,YX,YY,XO, 











Para representar uma imagem em 3-D num 
plano bidimensional, um quadrado na origem 
(1) é deslocado ao longo dos eixos X e Y 
e, com um novo deslocamento (2), forma as 
faces da frente e de trás do cubo. Para 
formar os lados, o quadrado é distorcido 
(3) na direção Y e depois deslocado (4 e 5) 
ao longo dos eixos. Da mesma maneira, 
as faces superior e inferior são obtidas 
pela distorção (6) na direção X e 
deslocamento (7 e 8) ao longo dos eixos. 








YO "¡XX,XY,YX,YY,XO,YO 
170 GOTO 120 


(4! 





100 GOSUB 9000 

120 HOME : HGR : УТАВ (24) 
130 ХА = - 40:YA = - 20:10» 
40:LH = 40:NX = 5:NY = 5 

135 GOSUB 5000 

140 XA 0: YA = — 20:10 = 40:1 
Н = 40:NX = 10:NY = 10 


145 GOSUB 5000 

160 INPUT "ENTRE XX,XY,YX,YY,X 
O,YO "¡XX,XY,YX,YY,XO,YO 

170 GOTO 120 

180 STOP 





100 PMODE 4:SCREEN 1,1 

105 PI-4*ATN(1) 

110 GOSUB 9000 

120 CL. 'CLS: SCREEN 1,1 

130 XA=-40:YA=-20:LW=40:LH=40:N 
X=5:NY=5 

135 GOSUB 5000 



















































140 XA=0:YA=-20:LW=40:LH=40:NX= 
10:NY=10 

145 GOSUB 5000 

150 AS-INKEYS:IF A$-"" THEN 150 
160 INPUT" INTRODUZA XX,XY,YX,YY 
,XO,YO ";XX,XY, YX, YY, XO, YO 

170 GOTO 120 


Ao rodar o programa, vocé verá um 
pequeno quadrado no centro da tela, 
com uma linha pedindo que fornega no- 
vos valores para XX,X Y, YX,YY,XO e 
YO (no MSX, deve-se apertar qualquer 
tecla para que a linha seja vista). Estas 
sáo as variáveis de transformagáo. 

XX e YY ajustam os fatores da esca- 
la nas direções horizontal e vertical, Se 
fornecermos valores negativos a essas 
variáveis, ocorrerá uma reflexão sobre 
o respectivo eixo. XO e YO ajustam a 
posição da grade na tela. XY e YX são 
responsáveis por rotações e distorções 
no desenho. As variáveis de transforma- 
ção têm valores iniciais XX = 1, XY =0, 
ҰХ-0, ҮҮ-1, ХО-0е ҮО-0. Рага 
modificar a imagem, precisaremos for- 
necer diferentes valores a essas variáveis; 
por isso, a linha 160 contém uma decla- 
ração INPUT. 

Aqui estão alguns conjuntos de valo- 
res que você pode experimentar no pro- 
grama. Forneça-os lado a lado, separa- 
dos por vírgula, exatamente na ordem 
em que são pedidos, e tecle <ENTER > 
ou <RETURN> (no Spectrum, tecle 
<ENTER> após cada um): 

— 1,0,0,1,0,0: causa uma reflexão em re- 
V a0 eixo vertical na área central da 
tela. 








FORA DA TELA 

Alguns computadores náo conse- 
guem desenhar pontos que estejam fo- 
ra da tela. Assim, se fornecermos a L 
um valor muito grande, o programa se- 
rá interrompido e obteremos uma men- 
sagem de erro. Náo é o caso dos micros 
da linha MSX, os quais desenham qual- 
quer seção de pontos, ignorando aque- 
les que estiverem fora da tela. 
Contanto que a imagem esteja inteira- 
mente na tela, os usuários de outros 
computadores não deverão ter nenhum 
tipo de problema. 

No próximo artigo, veremos como 
fazer uma checagem no programa, de 
modo a garantir que somente linhas 
possíveis sejam desenhadas. Elimina- 
remos, assim, as interrupções por men- 
sagens de erro. 






0.5,0,0,2,0,0: aumenta a imagem duas 
vezes na vertical e diminui pela metade 
na horizontal. 

1,0,0,1,100, — S0: move a imagem cem 
unidades para a direita e cingienta uni- 
dades para cima (ou para baixo no caso 
do Spectrum). Usuários do Spectrum 
podem tentar 1,0,0,1,50, — 40 para uma 
mudança mais significativa. 

0, — 1,1,0,0,0: faz a imagem rodar em 90 
graus. 

1,0.5,0,1,0,0: distorce a imagem na ho- 
rizontal. 

1,0.5,0.5,1,0,0: distorce a imagem na 
horizontal e na vertical. 

Para prever o efeito de cada conjun- 
to de valores é preciso algum conheci- 
mento sobre aritmética de matrizes. 
Portanto, embora saibamos como variar 
a forma do desenho, é um pouco mais 
difícil determinar a combinacào que 
produzirá uma forma em 3-D. O próxi- 
mo programa faz isso com as mesmas 
rotinas que temos usado. Apague as li- 
nhas 135, 145 e 175 do programa ante- 
rior antes de inserir esta segáo: 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


GOSUB 9000 
LET L=108: LET N=4 
LET DX=.45*L: LET DY=. 
LET XN*-(L*DX) /2 
LET YN*-(L*DY)/2 
LET XO=XN 
LET YO=YN 
GOSUB 500 
LET XO=XN+DX 
LET YO-YN*DY 
GOSUB 500 
LET XY=DX/L: 
LET YY-DY/L: 
GOSUB 500 
LET YO=YN+L 
GOSUB 500 
270 LET XX-DX/L: 
280 LET YX=DY/L: 
YO-YN 
290 GOSUB 500 
300 LET XO-XN*L 
310 GOSUB 500 
320 STOP 
500 LET XA=0: 
: LET LH=L: 


3*L 


LET XO=XN 
LET YO=YN 


LET XY=0 


LET YY=1: LET 


LET ҮА=0 
LET NX=N: 


LET LW 
LET NY 


GOSUB 5000 
RETURN 


520 


na 


110 
120 
130 
140 
150 
160 
170 
180 
190 


GOSUB 9000 
L=120:N=2 
DX-.45*L:DY-. 
XN=- (L+DX) /2 
YN-- (L*DY) /2 
XO=XN 

YO=YN 

GOSUB 500 
XO=XN+DX 


3*L 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
500 


510 
520 


[é] 


100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
500 
¿NX 
510 


520 


100 
110 
120 





160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 





YO=YN+DY 

GOSUB 500 
XY-DX/L:XO-XN 
YY-DY/L:YO-YN 
GOSUB 500 

YO=YN+L 

GOSUB 500 
XX=DX/L:XY=0 
YX=DY/L:YY=1:YO=YN 
GOSUB 500 

XO=XN+L 

GOSUB 500 

сото 320 
XA=0:YA=0: LW=L: LH=L:NX=N:NY 


GOSUB 5000 
RETURN 


GOSUB 9000 

L = 108:N = 4 

Dx 45 * L:DY = 
XN (L + DX) 
YN - (L + DY) 
xo XN 

YO = YN 

GOSUB 500 

XO = XN + DX 

YO = YN + DY 
GOSUB 500 

XY = DX / L:X0 = 
YY = DY / L:YO = 
GOSUB 500 

YO " YN * L 
GOSUB 500 

XX - DX / L:XY = 0 

YX = DY / L:YY = 1:Ү0 = ҮМ 
GOSUB 500 
XO = XN+ L 
GOSUB 500 
STOP 

XA = 0:YA = 
= N:NY = N 
GOSUB 5000 
RETURN 


3*L 
/ 2 
72 


XN 
YN 


O:LW = L:LH = L 





PMODE4:SCREEN 1,1 
GOSUB 9000 
L=120:N=5 

45* 
(L*DX)/2 
(L+DY)/2 

XO-XN 

YO-YN 

GOSUB 500 
XO=XN+DX 

YO=YN+DY 

GOSUB 500 

XY-DX/L : XO*XN 
YY=DY/L:YO=YN 
GOSUB 500 

YO=YN+L 

GOSUB 500 
XX=DX/L:XY=0 
YX=DY/L:YY=1:YO=YN 
GOSUB 500 

XO=XN+L 

GOSUB 500 

GOTO 320 





500 XA=0:YA=0:LW=L:LH=L:NX=N: NY 
-N 

510 GOSUB 5000 

520 RETURN 

Ao rodar o programa, um cubo apa- 
recerá no centro da tela. Seus lados sáo 
tragados pela mesma rotina que desenha 
grades. Esta, com as variáveis adequa- 
das, muda a imagem para a forma de- 
sejada. Duas outras variáveis devem ser 
ajustadas antes que o cubo seja traça- 
do: a variável L (que determina qual o 
tamanho do lado do cubo) e a variável 
N (que determina o número de quadra- 
dos na grade). 

A variável DX especifica o quanto, 
à direita ou à esquerda, a face de trás 
está da face da frente; DY define o 
quanto, acima ou abaixo, estas mesmas 
faces estão uma da outra. DX e DY fa- 
zem com que o cubo pareça ter largura 
ealtura iguais, não adquirindo a forma 
de um paralelepípedo. 

Um outro par de variáveis — XN na 
linha 140 e YN na linha 150 — especifi- 
са a posição inicial da face da frente do 
cubo. Esses valores sáo transferidos pa- 
ra XO na linha 160 e YO na linha 170. 
Em seguida, a linha 180 desenha a face 
de trás. Como ambas as faces sáo idén- 
ticas, para desenhar a face da frente pre- 
cisamos apenas de um incremento na 
direção X (linha 190) e outro na diregáo 
Y (linha 200). 

As linhas 220 e 230 transformam a 
grade (XY e YX) e redefinem os valo- 
res. Depois, a linha 240 desenha a face 
de cima. A linha 250 reposiciona verti- 
calmente esse desenho para fazer a face 
de baixo, que é igual à de cima. De mo- 
do similar, as linhas 270 a 310 transfor- 
mam a grade para obter os lados direito 
e esquerdo, 

Todos os quadrados da grade tém, 
em cada lado, o mesmo formato e o 
mesmo tamanho, e todas as linhas pa- 
ralelas permanecem paralelas, já que 
não fizemos nenhuma modificação pa- 
ra o desenho em perspectiva, nem adap- 
tamos o programa para mostrar outros 
ângulos do cubo. Estes serão nossos 
próximos passos no estudo das técnicas 
de elaboração de wireframes. 

Enquanto não chegamos lá, acrescen- 
teum laço ao nosso cubo, transforman- 
do-o num pacote de presente. Para isso, 
mude as linhas 120 e 130 e, depois, adi- 
cione as linhas que se seguem. Náo se 
esquega de gravar o programa! 


120 LET L-60: LET N-2 

130 LET DX-.3*L: LET DY-.4*L 
311 GOSUB 9920 

9920 FOR M-0 TO PI STEP .01 














9930 LET D-COS (6*M) 
9940 LET S-D*COS M: LET T-D*SIN 
M 
9950 LET S-S*20: LET T-ABS (T*2 100 PMODE4:SCREEN 1,1 
0) 110 GOSUB 9000 
9960 PLOT S+127,T+106 120 L=60:N=2 
9970 NEXT M 130 DX=.6*L:DY=.5*L 
9980 RETURN 140 XN=-(L+DX)/2 
150 YN--(L*DY)/2 
160 XO-XN 
қа 170 YO=YN 
180 GOSUB 500 
120 L=60:N=2 190 XO-XN*DX 
130 DX=.6*L:DY=.5*L 200 YO-YN*DY 
311 GOSUB 10000 210 GOSUB 500 
10000 REM fita 220 XY-DX/L:XO*XN 
10010 FOR M=0 TO PI STEP.02 230 YY=DY/L:YO=YN 
10020 D=COS(6*M) 240 GOSUB 500 
10030 S-D*COS (M) :T-D*S1N(M) 250 YO=YN+L 
10040 S-S*24:T*-ABS(T*20) 260 GOSUB 500 
10050 PSET(S*127,T*65),15 270 XX=DX/L:XY=0 
10060 NEXT 280 YX=DY/L:YY=1:YO=YN 
10130 RETURN 290 GOSUB 500 
300 XO-XN*L 
310 GOSUB 500 
[66] 311 GOSUB 10000 
320 GOTO 320 
120 L = 60:N = 2 500 XA=0:YA=0:LW=L:LH=L:NX=N:NY 
130 ОХ = .3 * L:DY = .4 * L =н 
311 GOSUB 9920 510 GOSUB 5000 
9920 FOR M = PI ТО 2 ^ PI STEP 520 RETURN 
.01 10000 DRAW"BM151,65" 
9930 D = COS (6 * M) 10010 FOR M=0 TO 4*ATN(1) STEP 
9940 S = D * COS (M):T = D * .02 
SIN (M) 10020 D-COS(6*M) 
9950 S - S * 20:T - - ABS (T 10030 S-D*COS (M) :T-D*SIN(M) 
* 20) 10040 S-S*24:T-ABS(T*20) 
9960 HPLOT S * 127,T * 46 10050 LINE-(S*127,65-T) , PSET 
9970 NEXT M 10060 NEXT 
9980 RETURN 10130 RETURN 









Já tratamos, em artigo anterior, da 
organizagáo de dados em gráficos. Ve- 
remos agora como usar gráficos de bar- 
ras (histogramas) ou de segmentos para 
mostrar dados numéricos numa forma 
náo linear. Esses dois tipos de gráfico, 
empregados com freqüência na apresen- 
tação de dados estatísticos e comerciais, 
podem ser coloridos, o que os torna 
muito mais atraentes. 

O gráfico de barras é especialmente 
indicado para a organização de dados 
que flutuam bastante. O de segmentos 
é útil sobretudo quando se quer demons- 
trar como diferentes valores estão rela- 
cionados como partes de um todo. As- 
sim, para fazer a escolha mais adequa- 
da, leve em conta o tipo específico de 
dados de que dispõe. 

Os programas que se seguem mos- 
tram como empregar o microcomputa- 
dor na elaboração dos dois tipos de grá- 
fico. Devido à falta de comandos gráfi- 
cos adequados no ZX-81 e no TRS-80, 
deixamos de apresentar programas pa- 
ra essas máquinas. 


MONTAGEM DO GRÁFICO DE BARRAS 


A rotina para montar o gráfico de 
barras é essencialmente a mesma de 
qualquer outro gráfico. Uma vez de pos- 
se dos dados, é necessário entrá-los no 
computador; em seguida é preciso defi- 
nir os eixos, desenhar as barras e acres- 
centar legendas. Como vimos no artigo 
da página 481, podemos desenhar as 
barras à medida que entramos os dados 
ou entrar todos os dados previamente e 
só depois traçar o gráfico. Uma tercei- 
ra opção consiste em ler os dados por 
meio das instruções READ/DATA, 
alterando-os sempre que se quiser um 
gráfico diferente. Seja qual for o méto- 
do escolhido, convém armazenar os da- 
dos numa matriz numérica, de modo 
que o micro possa identi 
denadas de cada barra. 


[uU d $ 


Digite as linhas seguintes para o com- 
putador ler os dados. Ao executá-las, 
nào verá nada na tela, mas é bom rodar 








cada parte do programa para evitar er- 
ros. (No Apple ou no TK-2000, para ter 
de volta a tela de texto, digite TEXT e 
tecle RETURN.) De qualquer forma, 
vocé pode verificar se aconteceu algo di- 
gitando PRINT A(3), por exemplo. No- 
te que os dados já foram armazenados 
na memória do micro. 


10 LET n-12 

20 DIM a(n) 

70 FOR t=1 TO n 

80 READ alt) 

90 NEXT t 
3010 DATA 3,6,5,9,6,3,6,8,3,5,9 





5 №12 

20 DIM A(N) 

60 PMODE 3,1:PCLS:SCREEN 1,0 
70 FOR T=1 TO N 

80 READ A(T) 

90 NEXT 

3010 БАТА 1,5.3,8,6,2,8,5,2,9,5 
‚10 


nau 


10 N*12 

20 DIM A(N) 

60 COLOR 10,5,5 
70 FOR T=1 ТОМ 
80 READ A(T) 

90 NEXT 
3010 DATA 
‚в 


[eL] 


10 N = 12 

20 DIM A(N) 

60 HOME : HGR 

70 FOR T =< 1 TON 
80 RFAD A(T) 
90 NEXT 
3010 DATA 
8,5,4 


SCREEN 2 


1,5,6,4,7,9,4,3,8,3,9 


2,5,3,8,6,2,0,9,7, 


Neste módulo, o programa seleciona 
o modo gráfico, determina o número de 
barras a serem tracadas — 12 (linha 10, 
ou 5, no TRS-Color) — e dimensiona a 
matriz para esse nümero (linha 20). 


Seja qual for a fonte de seus dados — 
orcamento doméstico, negócios e até 
hobbies —, organize-os em gráficos de 
barras ou de segmentos. Será mais 

fácil entender o que eles têm a dizer. 





Pode-se usar um número maior para 
traçar mais barras. Nesse caso, é neces- 
sário acrescentar dados à linha 3010, pa- 
ra que haja uma equivalência entre o nú- 
mero de barras e o de dados. É interes- 
sante ter um número maior de dados 
quando se está testando o programa, de 
modo que se possa aumentar ou dimi- 
nuir o número de barras sem risco de 
que ocorra um erro do tipo “falta de da- 
dos” ou end of data. 
































AAA 


M__COMO FAZER UM HISTOGRAMA 











E GRÁFICO DE BARRAS 
TRIDIMENSIONAL 

= PROGRAME UM GRÁFICO 
DE SEGMENTOS 











A ESCALA DOS El 


O computador conhece agora o va- 
lor absoluto de cada barra. Precisamos 
informá-lo sobre como fazer a escala 
dos dados, de maneira que cada conjun- 
to deles preencha a tela de forma ade- 
quada. Caso contrário, pode-se ter nú- 
meros tào pequenos que praticamente 
nào sejam vistos ou, no outro extremo, 
valores que caiam fora do intervalo pos- 
sível da tela. Para fazer a escala, digite 
as próximas linhas. Novamente nada vai 
aparecer na tela, mas execute o progra- 
ma como um teste. 


30 LET dx=239/n 
40 READ dy 
3000 DATA 18 


30 DX=164/N 
40 READ DY 
3000 DATA 1 


30 DX-164/N 
40 READ DY 
3000 LATA 1 


30 DX = INT (170 / N) 
40 READ DY 
3000 DATA 15 

Esta parte do programa calcula a es- 
cala do eixo X dividindo o comprimen- 
to disponível pelo nümero de barras (li- 
nha 30). O valor máximo de barras va- 
ria de micro para micro, mas, conhecen- 
do o tamanho de sua tela gráfica e mu- 
dando os valores de N, vocé identifica- 
rá facilmente o valor mais adequado pa- 
ra um gráfico legível. 

Os valores do eixo Y sào multiplica- 
dos por um fator para que tomem o ta- 
manho mais adequado. Esse valor nào 

















é encontrado automaticamente, mas li- 
do (linha 40) de uma declaração DATA 
(linha 3000 ). Para cada novo conjunto 
de valores, avalie qual o melhor fator a 
ser usado e coloque-o na linha 3000. 
Nesse ponto, você pode montar uma ro- 
tina para dar entrada a tal valor a par- 
tir da linha 40 (usando INPUT). Se pre- 
ferir agir assim, não se esqueça de apa- 
gar a linha 3000. 

O restante do programa é composto 
de duas rotinas: uma que traça os eixos 
e outra que desenha as barras. Digite 
mais estas linhas, mas não as execute, 
uma vez que as rotinas chamadas ainda 
não se encontram na memória e um er- 
ro será detectado. 


100 GOSUB 1000 
140 GOSUB 2000 
160 STOP 


As linhas 100 e 140 chamam sub- 
rotinas que traçam os eixos e barras. 


ДУ 


100 GOSUB 1000 

110 FOR T-1 TO N 

130 X-(T-1)*DX*18:Y-188-16*A(T) 
*DY 

140 GOSUB 2000 

150 NEXT 

160 GOTO 160 








A linha 100 desvia o programa para 
a linha que desenha os eixos. A 110 abre 
um laco que marca o nümero de barras 
a serem desenhadas. A cada volta, a li- 
nha 130 ajusta a coordenada de X — 
multiplicando-a por DX e somando 18 
para deixar uma margem à esquerda — 
е а coordenada de Y — subtraindo do 
total de linhas disponíveis o valor lido 
(A(T)) multiplicado pelo fator DY (da- 
do) e pela constante 16. A linha 140 des- 
via o programa para a rotina que dese- 
nha as barras e a 150 fecha o laço, cha- 
mando o próximo valor. 


(e) [d] 


100 GOSUB 1000 

110 FOR T = 1 TON 

130 X * (T - 1) * DX * 8 * A:Y 
* 150 - A(T) * DY 

140 GOSUB 2000:A = A + 3 

150 NEXT 

160 END 


A linha 100 chama a sub-rotina que 
traça os eixos. A linha 110 abre um la- 
ço que determina o número de barras a 
serem desenhadas. Em seguida, a linha 











130 determina a coordenada X para o 
ponto inicial do traçado da barra, mul- 
tiplicando T-1 por DX e somando 8 — 
para garantir uma margem à esquerda 
— e A (que provoca um avanço de uma 
barra em relação à outra — para evitar 
que as barras fiquem coladas umas às 
outras). A coordenada Y (altura da bar- 
ra) é calculada subtraindo-se do total de 
linhas disponíveis o valor lido (A(T)) pe- 
lo fator DY (que vocé determina). A li- 
nha 140 chama a sub-rotina que desenha 
as barras e a seguir incrementa o valor 
de A. A linha 150 fecha o laco, chaman- 
do o próximo valor a ser desenhado. 


0 DESENHO DAS BARRAS 


Agora, digite as rotinas que tracam 
os eixos e desenham as barras: 


1000 PLOT 16,0: DRAW 0,170 
1020 PLOT 16,0: DRAW 235,0 
1030 RETURN 

2000 FOR a=1 TO n 

2010 LET s-16*(a-1)*dx 

2020 FOR t-s TO s*dx-4 

2030 PLOT t,0: DRAW 0,a(a)*dy 
2040 NEXT t 

2100 NEXT a 

2110 RETURN 


As linhas 1000 e 1020 desenham os 
eixos, deixando uma margem de dezes- 
seis unidades á esquerda do eixo Y. Pa- 
ra desenhar as barras, a linha 2000 to- 
ma um valor de cada vez, a linha 2010 
coloca o valor na escala (*dx) e a linha 
2020 monta um lago para desenhar as 
linhas verticais que formaráo a barra. 
O **-4" no fim da linha provoca um pe- 
queno espacamento entre as barras. As 
linhas restantes desenham as linhas que 
completam a barra e fecham os respec- 
tivos lagos. 





1000 ГІМЕ (0,25) - (0,191) ,РЗЕТ 
1020 COLOR 3 

1030 LINE -(255,191),PSET 

1050 COLOR 2:FOR T=0 TO 10 
1060 ГІМЕ (0,191-Т*166/10) - (3,19 
1-T*166/10) ,PSET 

1070 NEXT 

1080 RETURN 

2000 COLOR 2 

2090 LINE(X,190) - (X*DX, Y) , PSET, 
BF 

2100 RETURN 


A primeira linha desta parte do pro- 
grama desenha o eixo Y, de cima até em- 


baixo, na tela. A linha 1030, por sua 
vez, se incumbe de tracar o eixo X, da 
esquerda para a direita. Observe que o 
sinal '*—"' faz com que seja traçada 
uma linha da última posigáo do cursor 
até a posição indicada entre parênteses. 
A linha 1050 muda a cor e abre um laço 
que executa a marcação de uma escala 
no eixo Y. 

A rotina seguinte (linhas 2000 a 2100) 
desenha um retângulo para cada barra 
e o preenche de amarelo. 
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ЇЙЇ ШЙ ЫШ! 


1000 LINE(8,25)-(8,191),6 

1030 LINE -(255,191),15 

1050 FOR T=0 TO 10 

1060 LINE(8,191-T*166/10)- (10,1 
91-T*166/10),15 

1070 'NEXT 

1080 RETURN 

2000 COLOR 10,5,5 

2090 LINE(X,190) - (X*DX,Y) , 2, BF 
2100 RETURN 


A linha 1000 traca o eixo Y, deixan- 
do uma margem de oito unidades. A li- 
nha 1030 traga o eixo X. O laco das li- 
nhas 1050 a 1070 marca uma escala no 
eixo dos Y para tornar mais fácil a lei- 
tura dos dados. 

A rotina das linhas 2000 a 2100 tem 
como tarefa mudar a cor de frente para 
amarelo e desenhar um retángulo colo- 
rido para cada valor. 


1000 HCOLOR= 3: HPLOT 5,155 ТО s 


5,5 

1010 HPLOT 5,150 TO 270,150 
1020 FOR T = 0 TO 10 

1030 HPLOT 2,150 - T * 145 / 1 
0 TO 5,150 - T * 145 / 10 

1040 NEXT 

1050 RETURN 

2000 HCOLOR- 5: FOR 8 * 1 TO D 


x 

2010 HPLOT X * S,150 TO X * S, 
x 

2020 NEXT 

2100 RETURN 


As linhas 1000 e 1010 tracam os ei- 
xos Y e X, respectivamente. As linhas 
1020 a 1040 formam um laco para mar- 
car uma escala no eixo Y. A rotina se- 
guinte muda a cor para azul e monta um 
laco que desenhará cada barra como 
uma seqüéncia de linhas verticais para 
o valor da barra. 


O gráfico de barras é bastante útil na 
apresentação de dados que flutuam muito num 
determinado período de tempo — por 
exemplo, os índices pluviométricos mensais 
no decorrer de um ano (ao lado). 

Já o gráfico de segmentos é especialmente 
indicado quando se quer mostrar como 
diferentes valores se relacionam enquanto 
partes de um todo. 


Ж ЫЕ ЕКИ ИШ 


Ao executar esse programa, vocé ve- 
rá que a aparéncia do gráfico de barras 
é muito menos académica e mais atraen- 
te que a dos gráficos lineares, embora 
os dois tipos sejam construídos com o 
mesmo número de dados. Mas pode-se 
melhorar ainda mais a apresentação dos 
dados com a adição de um efeito tridi- 
mensional às barras, o que dará ao de- 
senho um aspecto sólido e natural e um 
destaque especial ás cores. 

Antes de entrar o novo programa, 
grave o que vocé já tem na memória do 
computador (para uma posterior com- 
paração). Depois, sem digitar NEW, te- 
cle as alterações que se seguem. Se você 
quiser usar os comandos de edição do 
seu micro para reduzir o trabalho de di- 
gitação, fique atento para não deixar es- 
capar pequenas diferenças que possam 
existir entre as linhas. 


Acrescente ao seu programa apenas 
algumas linhas. Veja adiante. 


130 X=(T-1)*D2+18:Y=188-16*A(T) 
*DY 

1000 LINE (0,191)-(0,25),PSET:L 
INE- (DX*.6,26-DZ) ,PSET 

1020 PAINT (2,100),4:COLOR 3 
1030 LINE -(255-DX*.6,191) ,PSET 
:LINE-(255,191-DZ), PSET 

1060 LINE (0,191-T*166/10)-(DX* 
,6,191-T*166/10-DZ),PSET 

2000 COLOR 4 

2090 LINE(X,188)- (X*DX, Y) , PSET, 
BF 


50 DZ-50/(N*1) 

115 TF A(T)*0 THEN 160 

120 D2-DX*1.4:1FDX»40THEND2*DX* 
15 

130 X*(T-1) *D2*18:Y* 188- 16*A (T) 
*DY 

1000 ГІМЕ (8,191) - (8,25) ,6:1.1МЕ 
-(B+DX*.6,26-DZ) ,6 

1010 LINE -(8+DX*.6,191-DZ),6:L 
INE -(8,191),6 

1020 PAINT (9,180),6 

1030 LINE (8,191)-(255-DX*.6,19 
1),15:LINE -(255,191-D2),15 
1040 LINE -(8+DX*.6,191-DZ),15: 
LINE -(8,191),15:PAINT (100,190 
3,15 

1050 FOR T=0 TO 10 

1060 LINE(8,191-T*166/10) - (B*DX 
*.6,191-T*166/10-D7),15 
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50 DZ = 50 / (N + 1): IF D2» 5 
THEN DZ = 5 
1000 HCOLOR= 3: HPLOT 5,155 ТО 


5,5 TO DX * .7,5 - DZ TO DX * 
.7,150 - DZ TO 5,150 

1010 HPLOT 5,150 TO 270 - DX * 
.7,150 TO 270,150 - DZ TO DX * 
.7,150 - DZ 

Náo execute ainda o programa, pois, 
como ele náo está completo, vocé obte- 
rá apenas uma mensagem de erro, Di- 
gite mais estas linhas: 








1010 DRAW 4,4: DRAW 0,-170 
2050 PLOT 16+(a-1)*dx,a(a) *dy 
2060 DRAW 4,4 

2070 DRAW dx-4,0 

2075 DRAW -4,-4: DRAW 4,4 
2080 DRAW 0,-a(a)*dy 

2090 DRAW -4,-4 





50 DZ=50/(N+1) 

115 IF A(T)=0 THEN 160 

120 D2=DX*1.4:IF DX>40 THEN D2= 
DX+15 

1010 LINE -(DX*.6,191-DZ),PSET: 
LINE-(0,191),PSET 

1040 LINE -(DX*.6,191-DZ),PSET: 
LINE -(0,191),PSET:PAINT(127,18 
9,3 

2010 LINE (X+DX,188)-(X+DX*1.6, 
188-DZ) , PSET:LINE- (X+DX*1.6,Y-D 
Z),PSET 

2020 LINE -(X*DX,Y),PSET:LINE - 
(X*DX,188),PSET 

2030 PAINT (X*DX*2,185),4 

2040 COLOR 3 

2050 LINE (X,Y)-(X+DX*.6,Y-DZ), 
PSET:LINE-(X*DX*1.6,Y-DZ) , PSET 
2060 LINE -(X*DX,Y),PSET:LINE - 
(X,Y),PSET 

2070 PAINT (X*DX/2,Y-1),3 

2080 COLOR 2 


nu 


2000 COLOR12,5,5 

2010 LINE (X+DX,188)-(X+DX*1.6, 
188-DZ):LINE -(X*DX*1.6,Y-DZ) 
2020 LINE -(X*DX,Y):LINE -(X*DX 


2030 PAINT (X+DX+2,185) 

2050 LINE (X,Y)-(X+DX*.6,Y-DZ): 
LINE -(X+DX*1.6,Y-DZ) 

2060 LINE -(X*DX,Y):LINE -(X,Y) 
2070 PAINT (X+DX/2,Y-1) 

2090 LINE (X,188)-(X*DX,Y) , 3, BF 
2000 FOR S - 1 TO DX 

2010 HCOLOR- 3: HPLOT X * S + 


DX * 475% - DZ TO X + 8 + DX * ° 
.7,150 - DZ: HCOLOR- 6 

2020 HPLOT X * 8,150 TO X * S, 
y 

2030 HPLOT TOX + S * DX * ,7 
»Y - DZ: REM TO X + 1 + DX * 
7, Y - DZ TO X + 1,Y 

2040 NEXT 

2050 HPLOT TO X * S * DX * .7 
,150 - DZ 


Vocé tem agora uma belíssima ima- 
gem tridimensional na tela. Como exer- 
cício, modifique os valores dos coman- 
dos de cores para selecionar aquelas que 
mais Ihe agradam. Faca um registro das 
linhas que precisam ser mudadas para 
alterar a escala do gráfico, de modo que 
vocé tenha uma referéncia à máo quan- 
do for usar o programa mais tarde. Uma 
maneira simples de fazer esse registro 
consiste em utilizar linhas no programa 
com a declaração REM. Ela indica que 
seu conteúdo é exclusivamente informa- 
tivo, náo devendo, portanto, ser inter- 
pretado como instrugáo ou comando ao 
computador. 


GRÁFICO DE SEGMENT! 


Outra forma interessante de apresen- 
tacáo de dados é o gráfico de segmen- 
tos — um tipo de gráfico circular que 
requer apenas uma coordenada (coorde- 
nada polar) para cada informação, re- 
presentando por meio de um ângulo o 
tamanho de cada dado. 

Estruturalmente, o programa para 
desenhar um gráfico de segmentos é sim- 
ples. Para ver como funciona, entre e 
execute as linhas seguintes. 





10 DIM a(12): LET n=0 

20 CLS 

40 PRINT AT 5,14;"MENU" 

50 PRINT AT 8,10;"1- Introduz 
ir dados" 

60 PRINT AT 10,10;"2-Grafico" 
70 PRINT AT 12,10;"3- Saida" 
B0 LET aS-INKEYS: IF a$«"l" 
OR a$»"3" THEN GOTO 80 

90 GOSUB VAL a$*200 


100 GOTO 20 

200 CLS LET n=1 

210 PRINT "Item No. ";n,: 
INPUT LINE a$: PRINT a$: IF 


a$="" THEN RETURN 

220 LET a(n)=VAL a$: LET n=n+1 
230 IF n<13 THEN GOTO 210 

240 LET n=n-1: RETURN 

400 TF n=0 THEN RETURN 

410 CLS LET tt=0: FOR t=1 TO 
n: LET tt-tt*a(t): NEXT t 

420 LET f-(2*PI)/tt 

430 CIRCLE 127,86,60 


440 LET a=0: FOR k=1 TO n 

450 LET m=ata(k)*£ 

460 PLOT 127,86: DRAW 60*SIN m 
,60*COS m 

470 LET a=m 

480 NEXT k 

490 PAUSE 





RETURN 





10 DIM A(31),P(31) 
15 PMODE 3,1 


20 CLS 

40 PRINT €45,"MENU” 

50 PRINT €169,"1- INTRODUZIR DA 
DOS” 

60 PRINT €201,”2- GRAFICO” 

70 PRINT 6233,"3- SAIDA” 


80 AS=INKEYS:IF AS<"1" OR AS>"3 
” THEN 80 

90 ON VAL(A$) GOSUB 200,400,600 
100 GOTO 20 

200 CLS:N=0 

210 PRINT"ITEM NO. ";N*1;:INPUT 
AS:IF AS-"" THEN RETURN 

220 N=N+1:A(N)=VAL (AS) 

230 IF N<31 THEN 210 

240 RETURN 

400 IF N-0 THEN RETURN 

410 PCLS:SCREEN 1,0:TT-0:FOR T- 
1 TO N:TT=TT+A(T) :NEXT 

420 FOR T-1 TO N:P(T)-A(T)*810* 
ATN(1)/TT:NEXT 

430 J=0:P(0)=-1 

440 FOR T-1 TO N 

450 IF T-N AND N-3*INT(N/3)-1 T 
HEN COLOR 4 ELSE COLOR T-3*INT( 
T/3)*2 

460 FOR K-1 TO P(T) 

470 X=X+.01:Y=Y+.01 

480 LINE (127,95)-(127+60*SIN(X 
),95-60*COS(Y)) , PSET 

490 NEXT K,T 

500 IF INKEY$="" THEN 500 

510 RETURN 

600 CLS 


nau 


10 DIM A(31),P (31) 





20 CLS 

30 LOCATE 18:PRINT"MENU" 

40 LOCATE 10,8:PRINT"] - Entrar 
dad 

50 LOCATE 10,11:PRINT"2 - Ver q 
ráfico" 

60 LOCATE 10,14:PRINT"3 - Fim" 


80 AS-INKEYS:TF AS€"1" OR AS»"3 
" THEN 80 

90 ON VAL (AS) 
100 GOTO 20 
200 CLS:N=0 
210 PRINT"ftem n9 +15: INPUT 
A(N+1) :1F A(N+1)=0 THEN RETURN 


GOSUB 200,400,600 








220 N=N+1 

230 ТЕ N<31 THEN 210 

240 RETURN 

400 IF N-0 THEN RETURN 

410 COLOR 15,15,15:SCREEN 2:TT- 
0:FOR T=1 TO N:TT=TT+A(T) :NEXT 
420 FOR T=1 TO N:P(T)=A(T)*810% 















ATN (1) /TT:NEXT 

430 J=1:P(0)=-1 

440 FOR T-1 TO N 

450 IF T-NTHEN COLOR 13 ELSE J- 
J+1:COLOR J: IF J=12 THEN J=0 
460 FOR K=1 TO P(T) 

470 X=X+.01:Y=Y+.01 

480 LINE (127,95)-(127+60*SIN(X 
),95-60*C08 (Y)) 

490 NEXT:NEXT 

500 IF INKEYS-""THEN500 

510 RETURN 

600 CLS 

3000 DATA 8,9,10 


[Lc] 


10 DIM A(31),P(31) 








20 HOME 

40 НТАВ 18: PRINT "MENU" 

50 HTAB l0: VTAB 10: PRINT 71 
- ENTRAR DADOS" 

60 НТАВ 10: ЧТАВ 13: PRINT "2 
- VER GRAFICO" 

70 HTAB 10: VTAB 16: PRINT "3 
- FIM " 

80 GET A$: IF AS € "1" ОВ А$ > 
"3" THEN 80 

90 ON VAL (AS) GOSUB 200,400, 
600 

100 GOTO 20 

200 HOME 0 

210 PRINT "ITEM NO. ";N * l;: 
INPUT AS: IF AS - "" THEN  RETU 
RN 

220 М = N + 1:A(N) = VAL (AS) 
230 IF N < 3l THEN 210 

240 RETURN 

400 IF N - 0 THEN RETURN 

410 HGR :TT - 0: FOR T - ! TO 
N:TT = TT + A(T): NEXT 

420 FOR T = 1 TO N:P(T) = A(T) 
* 810 * ATN (1) / TT: NEXT 
430 J = 0:p(0) = - 1 

440 FOR T = l TON 

450 J = J + 1: IF J = 4 THEN J 
” 1 

455 HCOLOR= J: TF T = N THEN 
HCOLOR= 5 

460 FOR K = 1 TO PCT) 

470 X = X + 1:Y e Y 9. 02 
480 HPLOT 127,95 TO 127 * 60 * 
SIN (X),95 - 60 * COS (Y) 
490 NEXT : NEXT 

500 GET AS 
510 TEXT : RETURN 
600 HOME 


Ao executar o programa, um menu 
será apresentado na tela, oferecendo trés 
opções: entrar dados, ver o gráfico ou 
terminar o programa. A linha 80 faz 
com que o computador espere até que 
uma tecla seja pressionada. Vocé pode 
pressionar qualquer uma, mas, devido 
à condição imposta pela declaração 
IF... THEN da mesma linha, somente as 
teclas 1, 2 ou 3 serão aceitas. 

Uma condição parecida faz com que 
o programa volte ao menu, caso você te- 
cle 2 sem ter nenhum dado na memó- 





ria. A tecla 3, por sua vez, termina o 
programa. necessário o comando 
RUN para reiniciá-lo. 

No começo da execução, a escolha 
óbvia é a tecla 1, que Ihe possibilita en- 
trar alguns dados. A linha 90 indica pa- 
ra qual ponto do programa a execução 
será desviada; no caso, ela irá para a li- 
nha 200. Cabe a esta linha estabelecer 
uma variável (N) para o número de da- 
dos. A entrada de dados se dá na linha 
210. Eles permaneceráo armazenados 
numa matriz (A(.)), na linha 220. Esta 
matriz foi dimensionada anteriormente, 
na linha 10. 

Para entrar os dados, digite o núme- 
ro seguido de ENTER ou RETURN. A 
linha 230 verifica se o espago reservado 
para os dados já náo está preenchido. 
Se ainda há lugar, o programa volta à 
linha 210 para mais uma entrada. Náo 
é obrigatório ocupar todo o espago re- 
servado para dados. Quando vocé qui- 
ser encerrar a entrada de números, sim- 
plesmente tecle as instrucóes ENTER ou 
RETURN sem ter digitado nenhum nú- 
mero. O programa volta, então, a apre- 
sentar o menu principal, por ação da li- 
nha 210. Se, por outro lado, você preen- 
cheu todo o espaço disponível, a linha 
240 encerrará automaticamente a entra- 
da de dados. 


CONSTRUCA GRÁFICI 


Se, agora, vocé pressionar 2, o pro- 
grama será desviado para a linha 400, 
encarregada de iniciar a rotina que de- 
senha o gráfico. A linha 410 lé todos os 
valores armazenados e calcula o seu to- 
tal. O restante da rotina calcula uma es- 
cala para os dados e desenha os gráfi- 
cos. Como isso é feito de maneira um 
pouco diferente para cada computador, 
a descrição será individual. Para enten- 
der melhor o funcionamento das fun- 
ções circulares no computador, veja o 
artigo da página 334. 


A linha 420 divide o círculo comple- 
to (um ângulo de 360 graus ou 2 pi ra- 
dianos) pelo valor total dos dados para 
obter um fator de escala. A linha 430 
encarrega-se de desenhar o círculo (de 
raio 60). As linhas 440 e 450 passam por 
todos os valores, calculando um subto- 
tal para cada um e multiplicando este 
valor pelo fator de escala (f). O valor en- 
contrado (m) é o valor de pontos na cir- 
cunferência do círculo. Este é dividido 
por raios desenhados pela linha 460. 








APERFEICOE OS PROGRAMAS 

Agora que vocé já completou e tes- 
tou os programas deste artigo, que tal 
tentar melhorar a aparência dos gráfi- 
cos desenhados na tela? Aqui vão al- 
gumas sugestões. 

Um recurso que enriquece muito o 
aspecto final de um gráfico — e que au- 
menta a sua utilidade, sobretudo quan- 
do se trata de ilustrar apresentações ou 
artigos — é a titulação. Você pode 
acrescentá-la ao programa, por meio de li- 
nhas DATA ou INPUT, sob trés formas: 
* Rótulos para os eixos X e Y: identifi- 
cam o valor ou nome das divisóes dos 
eixos (exemplo: os nomes dos meses 
em um gráfico de barras). 

* Legendas: indicam o significado de 
cada barra ou “fatia” do gráfico de 
segmentos. No gráfico de barras, po- 
dem ser colocadas na parte de baixo ou 
no canto superior direito; no de seg- 
mentos, devem aparecer ao lado de ca- 
da “fatia”. 

* Títulos propriamente ditos: especifi- 
cam o assunto do gráfico — por exem- 
plo, VENDAS DA COMPANHIA XYZ. 
Resultados de 1985''. Costumam ter 
de uma a trés linhas, geralmente cen- 
tradas e posicionadas na parte superior 
ou inferior da tela. 

Também é interessante salientar 
uma barra ou segmento, deslocando- 
o ligeiramente de sua posicáo — como 
se uma fatia do gráfico de segmentos 
fosse retirada. Este recurso, conheci- 
do como explosáo, pode ser facilmen- 
te programado nos micros que pos- 
suem o comando CIRCLE. 
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А linha 410 totaliza os dados da me- 
mória. Em seguida, a linha 420 passa 
por todos os dados, calculando um sub- 
total para cada um e dividindo este sub- 
total pelo total. Esses valores, já em es- 
cala, sáo armazenados na matriz P(.), 
que foi dimensionada na linha 10. A li 
nha 430 define variáveis que seráo utili- 
zadas na seqüéncia de cores. O laco 
FOR...NEXT iniciado na linha 440 es- 
colhe a cor para cada um dos segmen- 
tos do círculo, e o que comega na linha 
460 traça os raios que preencherão os 
segmentos com a cor predeterminada. A 
linha 500 faz com que o gráfico fique 
visível até que alguma tecla seja pressio- 
nada, momento em que o menu nova- 
mente é apresentado. 








































Os computadores da linha ZX Spectrum 
dispóem de caracteres gráficos 

que podem ser usados dentro de um 
programa ou entrados diretamente pelo 
teclado. Aprenda a utilizá-los. 


Os micros da linha Spectrum (como 
o TK-90X) sáo muito versáteis do pon- 
to de vista da programação gráfica. Em 
artigos anteriores, vimos como a tela 
gráfica pode ser programada por meio 
de instruções extremamente poderosas, 
em alta resolução, tais como LINE, 
CIRCLE, PAINT etc. 

Entretanto, o Spectrum tem um re- 
curso gráfico adicional que é pouco ex- 
plorado: os caracteres gráficos de bai- 
xa resolução. Estes podem tanto ser en- 
trados diretamente pelo teclado quanto 
inseridos por intermédio da função 
CHRS, do BASIC. 

O que sáo caracteres gráficos? Como 
vocé já sabe, os caracteres que aparecem 
no vídeo tém códigos numéricos intei- 
ros, que, teoricamente, podem variar 
entre 0 e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação é conven- 
cionada internacionalmente pelo chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de O a 31 são normalmente 
utilizados para funções de controle do 
vídeo, e dependem do tipo de computa- 
dor. O mesmo ocorre com os códigos de 
127 a 255. Nesta faixa, cada fabricante 
utilizou os códigos de uma maneira, ge- 
ralmente para acomodar caracteres 
gráficos. 

O Spectrum possui apenas dezesseis 
caracteres gráficos de teclado, os quais 
podem ser descritos como combinações 
dos quatro quadradinhos que formam 
um caractere (pixels maiores dos que os 
utilizados na programação gráfica de al- 
ta resolução). A matriz básica de um ca- 
ractere gráfico é: 


ЕН 


“Colorindo” individualmente os 
quadradinhos, em todas as combinações 





GRÁFICOS DA ROM 
NO SPECTRUM (1) 


possíveis, obtemos os diferentes gráfi- 
cos. Por exemplo: 


и" 


O caractere gráfico com o código 128 
é um espaco em branco, o que nào o tor- 
na menos necessário. Como os demais 
caracteres, ele pode ser invertido e co- 
lorido com INK e PAPER. 


GRÁFICOS DA ROM 


Os caracteres gráficos sáo também 
conhecidos como gráficos da ROM, pois 
já vém pré-programados. No Spectrum, 
eles ocupam a faixa da tabela de carac- 
teres que vai de 128 a 143 e, em geral, 
são utilizados para a elaboração de de- 
senhos em baixa resolução ou para a 
composição de bordas e outros tipos de 
linhas retas. Na formatação de tabelas 
ou formulários de entrada — seu empre- 
go mais fregiente — apresentam a van- 
tagem de não complicar a programação, 
misturando tela gráfica com texto. Pos- 
sibilitam, dessa maneira, o uso de co- 
mandos bem mais simples, como 
PRINT AT e TAB. 

Outra vantagem dos caracteres grá- 
ficos pré-programados é que eles se 
comportam exatamente como qualquer 
caractere alfanumérico, para fins de im- 
pressáo na tela. Assim, valem para eles 
os comandos . INVERSE e PA- 
PER, quando se quer mudar as cores de 
frente e fundo. É divertido tentar com- 
por desenhos de baixa resolugáo, usan- 
do os trés comandos acima menciona- 
dos e os caracteres gráficos. E, náo ha- 
vendo necessidade de alta resolugáo, se- 
rá sempre mais fácil desenhar com eles 
do que com os comandos gráficos. 


ENTRADA PELO TECLADO 


Da mesma forma que os caracteres 
convencionais do ASCII, os caracteres 
gráficos podem ser digitados pelo tecla- 
do. Para isso, pressione simultaneamen- 
te as teclas <CAPS LOCK> e <9> 
(a tecla 9 é identificada pelo rótulo 
GRAPH, na parte de cima). Desse mo- 





п “O QUE SÃO CARACTERES 
GRÁFICOS PRÉ-PROGRAMADOS 

TE COMO ENTRAR CARACTERES 
— GRÁFICOS PELO TECLADO 

DO MICRO 


«do, coloca-se o teclado em modo gráfi- 
co, o que é indicado na tela pelo apare- 
cimento do cursor com a letra G, Em se- 
guida, pressione simultaneamente a te- 
cla <SHIFT > e uma das teclas numé- 
ricas (de 1 a 8). Você obterá, então, um 
dos símbolos gráficos marcados nas res- 
pectivas telas. Se nào acionarmos o 
<SHIFT>, apareceráo os símbolos 
gráficos complementares, ou invertidos, 
em relagáo aos marcados nas teclas. 
Com isso, teremos acesso aos caracte- 
res desejados, que apareceráo direta- 
mente na tela — por exemplo, dentro de 
uma cadeia alfanumérica. 

Quando terminar de digitar os carac- 
teres gráficos em uma linha, pressione 
novamente <CAPS LOCK> e <9>, 
para sair do modo gráfico. 

O programa seguinte desenha uma 
tabela simples, usando blocos gráficos. 
Depois, coloca os nomes digitados pelo 
usuário nas linhas da tabela. 


200 CLS 


210 PRINT ” P 

230 PRINT " E 

240 FOR i-1 TO 10 

250 PRINT " Ë 

260 NEXT i ' ' І 

270 PRINT ” wl 

280 FOR i=1 TO 10 

285 PRINT AT 19,0; 

290 INPUT n$ 

300 PRINT AT i*3,4;i 
PRINT AT 1+3,10;n$ 

NEXT à 


"МОМЕ: 





310 
320 


Nas linhas 220 e 250, os espagos em 
branco e as letras podem ser digitados 
normalmente, sem ser necessário sair do 
modo gráfico. Nesse caso, as letras apa- 
receráo apenas em maiúsculo. Para apa- 
recerem em minúsculo, será preciso 
*““desligar”” o modo gráfico. 

Existem duas desvantagens na entra- 
da de caracteres gráficos pelo teclado: 
primeiro, nem todos os símbolos dispo- 
níveis estáo marcados nas teclas, o que 
torna o processo mais trabalhoso e su- 
jeito a erros; segundo, o programa náo 
pode ser listado em uma impressora náo 
gráfica, ou que náo seja própria para o 
Spectrum. 

No próximo artigo desta série, vere- 
mos como utilizar caracteres gráficos 
dentro de programas. 
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As leis da perspectiva foram 
formuladas no decorrer do Renascimento 
por artistas como Alberti e 

Leonardo. Aqui, você poderá aplicá-las, 
acionando apenas algumas teclas. u 


Embora nos permitisse desenhar um 
cubo em três dimensões e variar o seu 
tamanho, o programa apresentado nos n 
dois últimos artigos desta série tinha - ” д " 
uma limitação: com ele era possível vi- - 4 
sualizar o desenho apenas de frente. As- 
sim, era impossível observá-lo de cima, 7 
de lado ou de qualquer outro ângulo que "d 
desejássemos. Este artigo oferece roti- - < 
nas extras que nos permitiráo especifi- 
car a posição dos nossos olhos, de mo- ” f 
do a poder observar o cubo de qualquer E d 
posicáo. -— 

Essa flexibilidade é muito útil, sobre- 
tudo para desenhos de objetos mais 
complicados, pois a o que obtemos 
nas diferentes posições pode nos reve- 
lar traços escondidos ou obscuros. AO 
especificarmos uma sucessão de coorde- 
as diferentes para a posição dos nos- 
sos olhos, teremos a impressão de estar 
"sobrevoando"' o objeto. 

No entanto, embora usemos os mes- 
mos princípios, a sequência de desenhos 
que pode ser gerada em um computador 
ER RON 
inferior ao dos desenhos tipo wireframe 
dos comerciais de televisão. Nestes últi- 
mos, temos a impressáo de que o obser- 
vador aproxima-se de um objeto (car- 
ro, nave espacial etc.) e o contorna a 
uma alta velocidade. 
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O EFEITO DO PONTO DE OBSERVACA! 


Já mostramos como é possível repre- 
sentar um objeto tridimensional em uma 
tela de duas dimensóes, usando conven- 
ções visuais que serão interpretadas pe- 
los olhos e pelo cérebro do observador. 
Os programas anteriores fizeram isso 
por intermédio de uma projeção isomé- 
trica, na qual linhas oblíquas são vistas 
no contexto do desenho entrando ou 
saindo da tela. 

A forma mais comum de convenção 
visual é o desenho em perspectiva, em 
que as linhas que se afastam do obser- 
vador (ou seja, “entram” na tela) con- 
vergem para um ponto distante, conhe- 
cido como Ponto de Fuga, e têm dimi- 
nuídas as suas dimensões, à medida que 
se afastam do primeiro plano. Na reali- 
dade há três pontos de fuga na perspec- 
tiva em 3-D; um para cada linha orto- 
gonal desenhada ao longo dos eixos. A 
posição dos três pontos é fixada com ba- 
se na relação entre as posições do ob- 
servador e as do objeto a ser represen- 
tado (na convenção visual, esses pontos 
são imaginários). 

Assim, a primeira coisa que precisa- 
remos saber é a relação entre as posições 
do observador e as do objeto. Para de- 
terminarmos essa relação, devemos in- 
dicar o ponto de vista para os eixos X, 
Y e Z que foram especificados na tela. 
Os programas a seguir fazem exatamen- 
te isto, executando depois as transfor- 
mações necessárias. 


ANTES DE COMECARMOS 


Para rodar esses novos segmentos de 
programa listados abaixo, recorremos á 
Rotina da Grade apresentada no artigo 
Programação de Gráficos em 3-D (1) à 
página 581. Essa rotina deve ser carre- 
gada no computador. Uma boa idéia é 
carregar também a Rotina do Desenho 
do Círculo que se encontra no mesmo 








Um ponto de observação distante cria 
apenas um leve efeito de perspectiva, 
enquanto um ponto muito próximo 

tende a distorcer a imagem (à direita). 











artigo. Embora esta última não seja ne- 
cessária por enquanto, convém termos 
todas as rotinas juntas, prontas para o 
programa global de desenhos que sairá 
no próximo artigo. Desse modo, as li- 
nhas que precisaremos agora são as que 
váo de 5000 a 6160; todas as outras po- 
dem ser apagadas. 

Como anteriormente, teremos que 
entrar várias porções de programa an- 
tes de podermos rodar qualquer coisa, 
pois a posição dos olhos, da mesma ma- 
neira que as transformações para rota- 
ção e perspectiva, devem ser implemen- 
tadas em primeiro lugar. 

































DEFINII 





DO PONTO DE OBSERV: 


A primeira parte do programa calcula 
as variáveis necessárias para se determi- 
nar a posição do olho do observador no 
espaço tridimensional: 


na 


8000 
8010 
8020 
8030 
8035 
8040 
8050 
8060 
8070 
8080 
8090 
H 

8100 
8110 
8120 
8130 
8140 
8150 
8160 


XV=X:YV=Y : ZV=Z 
WV=YV*YV+ZV*ZV 

PV=SQR (XV*XV+WV) 

IF PU-0 THEN RETURN 
WV=SQR (WV) 

XU=XV/PV 

YU-YU/PV 

ZU=ZV/PV 

WU=WU/PU 

REM ORIENTAÇÃO DO OLHO 
A=XV*YV:B=ZV:GOSUB 8450:G= 


A=YV:B=XV:GOSUB 8450:G=G+H 
SG=SIN (G) 

CG=C08 (G) 

REM MATRIZ DE ROTAÇAO 
R1=WU*CG 





Para representar uma figura em perspectiva, 
é preciso transformar as coordenadas 

dos eixos tridimensionais (X1, Y1, Z1) em 
pontos referidos aos eixos da tela (X, Y). 






























































8170 
8180 
8190 
8200 
8210 
чу 

8220 
8230 
8240 
8250 
8260 
8270 
8280 
8330 
8340 


R4=-YU 

R5--ZU 
R6-XU*XU*YU*YU*ZU*ZU 

IF WU-0 THEN 8340 
XT-XV*WU- (YUV*YU*ZU*ZU) *XU/ 


YT-* (YU*ZU-ZU*YU) /WU 

R7* (ZU*SG-XU*YU*CG) /WU 
R8* (-YU*SG-XU*ZU*CG) /WU 
R9-CG*XT*SG*YT 
S1*(ZU*CG*XU*YU*SG) /WU 
82= (-YUXCG+XU*ZU*SG) /WU 
83=-SG*XT+CG*YT 

RETURN 

REM CASO ESPECIAL NO EIXO 


x 

8350 
8360 
8370 
8380 
8390 
8400 
8410 
B450 


R7=-1 

R8=0 

R9=0 

81=0 

82=1 

83=0 

RETURN 

IF B<>0 THEN H=ATN(A/B) :RE 


TURN 
8460 H=PI/2:RETURN 


ШС) 


8000 ХУ = X:YV = Ү:20 = Z 
8010 WV = YV х үу + 20 ж 20 


8020 PV = SQR (XV * XV + WV) 
8030 IF PV = O THEN RETURN 
8035 WV = SQR (WV) 

8040 XU = XV / PV 

8050 YU = YV / PV 

8060 20 = 20 / Ру 

8070 WU = WU / PV 

8080 REM ORIENTACAO DO OLHO 


8090 A = XV * YV:B = 20: GOSUB 
8450:0 = H 
8100 A = YV:B = XV: GOSUB 8450: 
G=G+H 


8110 SG = SIN (G) 

8120 CG = COS (G) 

8130 REM MATRIZ ROTACAO 
8140 Rl = WU * CG 

8150 R2 = - WU * SG 

8160 R3 = - XU 

8170 R4 = - YU 

8180'R5 = - ZU 

8190 R6 = XV * XU + YV * YU + Z 
v * zU 

8200 IF WU = O THEN 8340 


8210 XT = XV * WU - 
ZV * ZU) * XU / WU 


Qua YU + 


8220 YT = (YV * ZU - ZV * YU) / 
Wu 

8230 R7 = (ZU * SG - XU * YU * 
са) / WU 

8240 R8 = ( - YU * SG - XU * ZU 
* CG) / WU 


8250 R9 = CG * XT + SG * YT 


8260 S1 - (ZU * CG * XU * YU * 
SG) / WU 

8270 82 = ( - YU * CG + XU * ZU 
ж 86) / WU 

B280 83 - - SG * XT * CG * YT 
8330 RETURN 


8340 REM CASO ESPECIAL NO EIX 


m 
8360 А8 = 0 





8450 


(А / В): 


8460 


8000 
=2 

8010 
8020 
8030 
8035 
8040 
8050 
8060 
8070 
8080 
8090 


UB 8450: 


8100 


8450: 


8110 
8120 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 





т 
- 
EN 
roo 


83-0 

RETURN 

IF B< >0THEN H = 
RETURN 

H = PI / 2: RETURN 


ATN 


LET XV=X: LET YU-Y: LET ZV 
LET WU=YUXYU+ZU*ZV 

LET PV-SQR (XU*XU*WU) 

IF PV=0 THEN RETURN 

LET WV-SQR WV 
LET XU=XV/PV 
LET YU=YV/PV 
LET ZU=ZV/PV 
LET WU=WV/PV 
REM ORTENTACAO 
LET A=XV*YV: LET 
LET G=H 
A=YV: LET B=XV: GOSUB 
G=G+H 

SG=SIN G 

CG=C0S G 

R1=WU*CG 

R2=-WUXSG 

R3=-XU 

R4=-YU 

LET R5=-ZU 

LET R6-XU*XU*YU*YU*ZU*ZU 
IF WU-0 THEN GOTO 8340 
LET XT-XU*WU- (YU*YU*ZUX*ZU) 


B=ZV: GOS 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


*XU/WU 


8220 
8230 


LET YT-(YU*ZU-ZU*YU) /WU 
LET R7*(ZU*SG-XU*YU*CG) /WU 


8240 
U 


8250 
8260 
8270 


8280 
8330 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8450 
/B): 
8460 





8000 
8010 
8020 
8030 
8035 
8040 
8050 
8060 
8070 
8080 
8090 


8100 
8110 
8120 
8130 
8140 


Na perspectiva aérea, os trés pontos 
de fuga são fixados sobre os 

eixos X, Y e Z. A figura da ilustração 
parece deformada devido 

à proximidade dos pontos de fuga. 


LET R8-(-YU*SG-XU*ZU*CG) /W 
LET 
LET 
LET 


R9-CG*XT*SG*YT 
$817 (ZU*CG*XU*YU*SG) /WU 
82-9 (-YU*CG*XU*ZU*SG) /W 


LET S$3--SG*XT*CG*YT 
RETURN 

LET R7=-1 
LET R8=0 

LET R9=0 

LET 81-0 

LET 52-1 

LET 53-0 
RETURN 

IF B<>0 THEN 
RETURN 

LET H=PI/2: 


LET H=ATN (A 


RETURN 


XV-X:YV-Y:ZU-Z 
WU-YU*YV*ZU*ZV 
PU=SQR (XU*XUV+WV) 

IF PV=0 THEN RETURN 
WU=SQR (WV) 

XU=XV/PV 

YU=YV/PV 

ZU=ZV/PU 

WU=WV/PV 

REM ORIENTACAO 
A=XVAYV:B=ZV:GOSUB 8450:G= 


A=YV:B=XV:GOSUB 8450:G=G+H 
8G-SIN(G) 

€G-cos (G) 

REM ROTACAO DA MATRIZ 
R1-WU*CG 
R2--WU*SG 














8160 

8170 

8180 

8190 R6=XVAXU+YVAYU+ZVAZU 

8200 IF WU=0 THEN 8340 

8210 XT-XU*WU- (YU*YU*ZV*ZU) *XU/ 
WU 

8220 YT= (YVAZU-ZVAYU) /WU 

8230 R7-(ZU*SG-XU*YU*CG) /WU 
8240 R8= (-YU*SG-XU*ZU*CG) /WU 
8250 R9-CGAXT*SG*YT 

8260 Sl-(ZU*CG*XU*YU*SG) /WU 
8270 82«(-YUXCG*XU*ZU*SG) /WU 
8280 S3--SG*XT4CG*YT 

8330 RETURN 

8340 REM CASO ESPECIAL NO EIXO 
x 

8350 R7=-1 

8360 R8=0 

8370 R9=0 

8380 81-0 

8390 52-1 

8400 83-0 

8410 RETURN 

8450 IF B<>0 THEN H=ATN(A/B) EL 
SE H-PI/2 


8460 RETURN 


Para entendermos o que está aconte- 
cendo, devemos nos lembrar que o eixo 
Z é aquele que sai do centro da tela e 
vem na direção do observador; o eixo 
Y aponta para cima da tela e o eixo X, 
para os lados. 
posição dos olhos está em (XV, 
A variável WV nos dá a dis- 
ia nas direções Y e Z combinadas. 
Definimos a origem em (0, 0, 0) para a 
posição do objeto que observamos no 
espaço. Para simplificar, situamos essa 
posição no centro da tela. A linha 8030 
interromperá a rotina, caso a posição 
dos olhos seja definida na origem. As 
variáveis XU, YU, ZU são as distâncias, 
na direção dos respectivos eixos (X, Y, 
X) de uma linha de comprimento uni- 
tário entre a origem e a posição dos 
olhos. WU é a distância nas direções Y 
e Z combinadas. 

Se movermos o objeto da esquerda 
para a direita, nosso ângulo de visão so- 
frerá alterações. Esse ângulo é medido 
a partir do eixo X e definido nas linhas 
8090 e 8100. Um teste é feito nas linhas 
8450 e 8460 para evitar divisões por ze- 
ro, queinterromperiam o programa, ge- 
rando uma mensagem de erro. 

Quando olhamos diretamente ao lon- 
go do eixo X, temos uma visão comum 
do objeto, mas, se rodarmos nosso pon- 
to de observação, o objeto também ro- 
dará, proporcionando ângulos mais in- 
teressantes. As linhas 8140 a 8280 ini- 
cializam as variáveis que definem a 
orientação da posição do olho no espa- 
ço. Essa posição é tal que o seu eixo Z 
encontra-se ao longo da linha que vai do 
lho até a origem da tela. 

O resto da rotina inicializa variáveis 
























para casos especiais; por exemplo, quan- 
do a posição do olho estiver exatamen- 
te sobre o eixo X. 


AS TRANSFORMAÇÕES 


A próxima seção transforma as coor- 
denadas X, Y e Z do cubo nas coorde- 
nadas finais da tela. Essa transforma- 
ção leva em conta a posição do olho e 
o efeito da perspectiva. 


8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8575 
8580 
8590 
8600 


X1=T1*X+T4*Y+T7 
Y1=T2*X+T5*Y+T8 
ZI-T3*X*T6*Y*T9 

REM 2-D PARA 3-D 
X29R1*X1*R7*Y1*R8*Z]*R9 
Y2-R2*X1*81*Y1482*21483 
22-8В3%Х1%84%Ү1%Ң5%21%86 
REM OBJETO PARA OLHO 

IF Z2<ZN THEN RETURN 
X3-D*X2/22 

Y3-D*Y2/22 

RETURN 


Y + 17 
Y + TB 
Y + T9 


8500 X1 = 
8510 Y1 = 
8520 21 = 
8530 REM 2-р 
8540 X2 = R] * 
8 * Zl + R9 

8550 Y2 = R2 * 


T. 
T2 * 
T3 * 
X] * R7 * Y1 * R 
X1 + 81 * Y] + 8 


Xl * R4 * Y1 *& R 
5 * Z1 * R6 









8575 IF Z2 < ZN THEN RETURN 
8580 X3 = D * X2 / Z2 

8590 Y3 - ~- D * Y2 / 22 

8600 RETURN 

8500 LET X1=T1*X+T4*Y+T7 

8510 LET YleT2*X*T5*Y4TB 

8520 LET Zl-T3*X*T6*Y*T9 

8540 LET X2=R1%X1+R7*Y1+R8*Z1+R 
9 

8550 LET Y2-R2*Xl*S1*Y1*82*Z14S 
3 

8560 LET Z2-R3*Xl*R4*Yl*R5*Zl4R 
6 

8575 IF Z2<2N THEN RETURN 
8580 

8590 

8600 RETURN 


Essa rotina usa uma matriz aritméti- 
ca complicada para transformar as coor- 
denadas (X, Y), que sáo basicamente os 
passos de transformação descritos no ar- 
tigo anterior desta série — Programa- 
ção de Gráficos em 3-D (2). As linhas 
8500 a 8520 transformam o plano car- 
tesiano (X, Y) de duas dimensões (2-D) 
no espaço de três dimensões (3-D) (X1, 
Y1, Z1). As linhas 8540 a 8560 transfor- 





mam as coodernadas espaciais (X1, Y1, 
Z1), de modo a posicioná-las de acordo 
com a localização do olho e a direção 
(X2, Y2, Z2). 

A linha 8575 testa se a nova posicáo 
a ser encontrada está excessivamente 
próxima do olho (ou seja, se Z2 está en- 
tre 0 e ZN) ou se está situada atrás dos 
olhos. Em ambos os casos, a posição é 
ignorada, pois seria impossível visuali- 
zarmos o objeto. Se a posição estiver 
muito distante de ZN (a partir da posi- 
ção em frente ao olho), então a locali- 
zação das coodernadas da tela (X3, Y3) 
será calculada somente no fim da roti- 
na. O parâmetro D/Z2 nessas linhas 
acrescenta perspectiva à figura, proje- 
tando o objeto em uma tela plana a uma 
distância definida D. Se estabelecermos 
um valor pequeno para D, o efeito ob- 
tido será uma perspectiva mais nítida 

















(como se a tela estivesse mais próxima 
do usuário); se D for grande, a tela pa- 
recerá estar a uma grande distáncia do 
observador, de modo que o efeito de 
perspectiva será pequeno e a imagem 
aparecerá distorcida, mesmo quando 
vista obliquamente, de qualquer 
direção. 


COMO INICIALIZAR AS VARIÁVEIS 


O próximc 
Rotinas de Inicialização e Desenho pa- 
ra podermos usar as novas rotinas de 
transformação. 


4 


9000 СІ.5 
9020 XM-256:YM-192 


passo será reescrever as 


9030 XD=XM/2:YD=YM/2 

9040 ZN=1 

9042 CLS:INPUT"Distáncia do pla 
no de projeção: ";D 

9045 IF DX0 THEN D*1000*ZN 
9050 Tl=1:T2=0:T3=0 

9060 T4-0:T5-1:T6-0 

9070 T7=0:T8=0:T9=0 

9085 CLS 

9090 RETURN 
9500 X=XS:Y=YS: 
<ZN THEN 9520 
9510 1Х=128+Х3: 
9520 X-XE:Y-YE: 
<ZN THEN 9550 
9530 LINE(127*X3,95-Y3) - (IX, IY) 
‚15 

9550 RETURN 


[d 5] 


9000 HOME 
9020 XM = 


GOSUB 8500:IF Z2 


1Y=97-Y3 
GOSUB 8500:IF Z2 


280:YM = 192 


9030 XD = XM / 2:YD = YM / 2 
9040 ZN = 1 

9042 INPUT “DISTANCIA AO PLANO 
DE PROJECAO ";D 

9045 IF D < 0 THEN D = 
ZN 

9050 T1 = 1:T2 = 0:T3 = 0 

9060 T4 = 0:Т5 = 1:Т6 = 0 

9070 Т7 = 0:78 = 0:79 = 0 

9090 HOME : RETURN 

9500 X = XS:Y = YS: GOSUB 8500: 
IF Z2 < ZN THEN 9520 

9505 IF X3 € - 139 ОВ ҮЗ < - 
95 OR X3 > 140 OR Y3 > 96 THEN 
9550 
9510 Ix = 


1000 * 


139 + X3:1Y = 95+ ҮЗ 


9520 X = XE:Y = YE: GOSUB 8500 
IF Z2 < ZN THEN 9550 

9525 IF X3« - 139 OR Y3 € > 
95 OR X3 > 140 OR Y3 > 96 THEN 
9550 


9530 HPLOT 139 + X3,95 + Y3 TO 











IX,IY 
9550 


9000 
9020 
9030 


RETURN 


CLS 

ТЕТ ХМ=256: 
LET XD-XM/2: 
9040 LET ZN=1 
9042 INPUT "IMTRODUZA DISTANCIA 
AO PLANO DE PROJECAO",D 


LET YM-176 
LET YD-YM/2 


9045 IF D<=0 THEN LET D=1000*Z 
N 

9050 LET Tl=1: LET T2=0: LET T3 
"0 

9060 LET T4=0: LET T5-1: LET T6 
=0 

9070 LET T7-0: LET T8-0: LET T9 
-0 

9090 CLS RETURN 

9500 LET X=XS: LET Y=YS: GOSUB 
8500: IF Z2<ZN THEN GOTO 9520 
9505 IF X3<-127 OR Y3<-87 OR X3 
>128 OR Y3>88 THEN GOTO 9550 
9510 PLOT 127+X3,87+Y3 

9520 LET X=XE: LET Y=YE: GOSUB 
8500: IF Z2<ZN THEN GOTO 9550 


9525 IF X3<-127 OR Y3<-87 OR X3 
>128 OR Y3>88 THEN GOTO 9550 
9530 DRAW 127+X3-PEEK 23677,87+ 
Y3-PEEK 23678 

9550 RETURN 





9000 PCLS 

9020 ХМ-256:ҮМ-192 

9030 XD-XM/2:YD-YM/2 

9040 ZN-1 

9042 CLS:INPUT " INTRODUZA A DI 
STANCIA AO PLANO DE PROJECAO ” 


IF D<=0 THEN D=1000*ZN 
Т1-1:72-0: 





0 
Т7-0:78-0:79-0 
сіз 
9090 RETURN 
9500 X=XS:Y=YS:GOSUB 8500:1F 22 
<ZN THEN 9520 
9505 IF X3<-127 OR Y3<-96 OR X3 
>128 OR Y3>95 THEN 9550 
9510 DRAW"BM"+STR$ (INT (127+X3)) 
*","*8TR$ (INT(95-Y3)) 

9520 X-XE:Y-YE:GOSUB 8500:IF Z2 
<ZN THEN 9550 

9525 IF X3<-127 OR Y3<-96 OR X3 
>128 OR Y3>95 THEN 9550 

9530 LINE -(127*X3,95-Y3),PSET 
9550 RETURN 


A linha 9020 atribui às variáveis XM 
e YM as dimensões máximas da tela nas 
direções X e Y, respectivamente. A li- 
nha 9030 calcula o ponto médio; a 9040 
calcula a posição mais próxima permi- 
tida nos pontos a serem desenhados, 
conforme a posição do olho. 

A variável D nos dá a distância atual 
da posição do olho até o plano de pro- 
jeção (a tela) e determina a perspectiva. 
Os valores de D sáo inseridos quando 


rodamos o programa, de modo que po- 
demos variar o grau da perspectiva. Se 
nenhum valor for especificado e pressio- 
narmos ENTER ou RETURN a linha 
9045 adotará o valor 1000. As linhas 
9050 a 9070 atribuem valores para as 
constantes de transformagáo, especifi- 
cando o plano no qual será desenhada 
a imagem em perspectiva. 

Esse trecho do programa continua 
com a Rotina de Desenho revisada. Na 
linha 9500, sáo inicializadas as variáveis 
para as constantes de transformação; 
nas linhas 9505 e 9525 é feito um teste 
para determinar se o novo ponto a ser 
desenhado (linhas 9510 e 9530) está den- 
tro dos limites da tela. O MSX não pre- 
cisa desse teste, pois ele ignora os pon- 
tos fora da tela. Nos outros micros, O 
teste serve para prevenir contra mensa- 
gens de erro. 





Precisaremos agora da rotina para 
desenhar a grade fornecida no primeiro 
artigo da série. Caso vocé náo a tenha 
gravado, digite-a antes de inserir esta 
parte final do programa. 


Чч 


100 
110 
120 
125 
130 
140 
170 
150 
160 
170 
180 
500 
505 
510 
(X,Y,Z): 


PI=4*ATN(1) 

GOSUB 9000 

L=20:N=5 

GOSUB 505:GOTO 140 

GOSUB 500 

IF X-0 AND Y=0 AND Z=0 THEN 


GOSUB 1000 

GOTO 130 

сіз 

END 

IF INKEYS-"" THEN 500 

CLS 

INPUT"Posicáo do observador 
"XS 


520 GOSUB 8000 
530 CLS:SCREEN 2 
540 RETURN 
P-L/2 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1170 
1200 
Y-N 

1210 





9--Р 
GOSUB 1200 'BAIXO 
T7=-P:T8=-P:T9=P 
GOSUB 1200 'CIMA 
T4=0:T5=0:T6=-1 
GOSUB 1200 'ESQUERDA 
T7=-P:T8=P:T9=P 
GOSUB 1200 'DIREITA 
T1=0:T2=-1:T3=0 
GOSUB 1200 'TRAS 
T7=P:T8=P:T9=P 
GOSUB 1200 'FRENTE 
RETURN 
XA=0:YA=0:LW=L:LH=L:NX=N:N 


GOSUB 5000 


1220 RETURN 


(41%) 


100 РІ = 4 * ATN (1) 

110 GOSUB 9000 

120 L = 20:N = 5 

125 GOSUB 505: GOTO 140 

130 GOSUB 500 

140 IF X * 0 AND Y * 0 AND Z * 
0 THEN 170 

150 GOSUB 1000 

160 GOTO 130 

170 HOME 

180 TEXT : END 

500 GET T$: IF TS - "" THEN 50 





0 


505 TEXT : HOME 

510 INPUT "POSICAO DO OBSERVAD 
OR (X,Y,2) ";X,Y,2 

520 GOSUB 8000 

530 HGR2 : HCOLOR= 3 

540 RETURN 

100 P = L / 2 

1010 Ті - 1:72 = 0:T3 = 0 

1020 T6 = O 

1030 = P:%9 = 
ыр 
1040 
1050 





REM 
=" pP:T8. 2 


BAIXO 
= P:T9 = 9 


GOSUB 1200: 


T? = 


1060 
1070 
1080 


GOSUB 1200: 
T4 = 0:T5 = 
GOSUB 1200: 





REM ESQUERDA 


= P:T9 = P 
REM DIREITA 


1090 
1100 
1110 
1120 
1130 
1140 
1170 
1200 
L:NX 
1210 
1220 


47€ = PEG 
GOSUB 1200: 
Т1 =0:172» - 1:73 = 0 
GOSUB 1200: REM TRAS 
T7 = P:T8 = P:T9 - P 
GOSUB 1200 REM FRENTE 
RETURN 

XA = O:YA = O:LW = L:LH = 
= N:NY = N 

GOSUB 5000 

RETURN 





110 
120 
125 


GOSUB 9000 

LET L=20: 

GOSUB 505: 
130 GOSUB 500 
140 IF X=0 AND Y=0 AND Z=0 
THEN GOTO 170 
150 GOSUB 1000 
160 GOTO 130 

170 CLS 

180 STOP 

500 IF INKEYS="" 
500 

505 CLS 

510 INPUT "INTRODUZA POSICAO D 
O OBSERVADOR (X,Y,Z)”,X,Y,Z 
520 GOSUB 8000 
530 RETURN 

1000 LET P=L/2 

1010 LET Tl=1: 


LET N=3 
сото 140 


ТНЕМ сото 


LET T2=0: ГЕТ Т3 


LET T4-0: LET T5-1: LET T6 


LET T7--P: LET T8--P: LET 





1040 
1050 
T9-P 
1060 
1070 
=-1 
1080 
1090 
9=Р 
1100 
1110 
3=0 
1120 
1130 
=Р 
1140 
1170 
1200 
SN 
N 
1210 GOSUB 5000 
1220 RETURN 


GOSUB 1200: 
LET T7=-P: 


REM BAIXO 
LET T8=-P: LET 
GOSUB 1200: REM CIMA 
LET T4-0: LET T5-0: LET T6 
GOSUB 1200: 
LET T7=-P: 


REM ESQUERDA 
LET T8-P: LET T 


GOSUB 1200: REM DIREITA 
LET T1-0: LET T2--1: LET T 





GOSUB 1200: REM TRAS 
LET T7-P: LET T8-P: LET T9 
GOSUB REM FRENTE 
RETURN 

LET XA=0 


LET LH=L 


1200: 


LET YA=0: 
LET NX=N: 


LET LW 
LET NY= 


100 PI=4*ATN(1):PMODE 4,1 

110 GOSUB 9000 

120 L=20:N=5 

125 GOSUB 505:GOTO 140 

130 GOSUB 500 

140 IF X=0 AND Y=0 AND Z=0 THEN 
170 

150 GOSUB 1000 

160 GOTO 130 





170 СІЗ 

180 ЕМО 

500 IF INKEYS="" THEN 500 

505 CLS 

510 INPUT” INTRODUZA A POSICAO 
DO OBSERVA- DOR (X,Y,Z) ";X,Y,Z 
520 GOSUB 8000 

530 PCLS:SCREEN 1,1 

540 RETURN 

1000 P-L/2 

1010 Т1-1:72-0:73-0 

1020 T4=0:T5=1:T6=0 

1030 T7=-P:T8=-P:T9=-P 

1040 GOSUB 1200 'BAIXO 

1050 T7=-P:T8=-P:T9=P 

1060 GOSUB 1200 'CIMA 

1070 T4-0:T5-0:T6--1 

1080 GOSUB 1200 'ESQUERDA 

1090 T7=-P:T8=P:T9=P 

1100 GOSUB 1200 'DIREITA 


1110 T1-0:T2--1:T3-0 

1120 GOSUB 1200 'ATRAS 

1130 T7=P:T8=P:T9=P 

1140 GOSUB 1200 ' FRENTE 

1170 RETURN 

1200 XA=0:YA=0:LW=L:LH=L:NX=N:N 
Y=N 

1210 GOSUB 5000 

1220 RETURN 


Agora, rode o programa. Se ele esti- 
ver funcionando corretamente, o com- 
putador acessará a rotina de inicializa- 
ção que começa na linha 110. Essa roti- 
na inicializa algumas variáveis e impri- 
me uma mensagem que pede um valor 
para D, a distância do plano de proje- 
ção. A perspectiva nesse programa é fei- 





ta de tal maneira que, quanto maior a 
distância, mais afastado aparecerá o ob- 
jeto. Devemos entrar com o valor 1000 
para começar. O programa retorna pa- 
ra a linha 120, que especifica o compri- 
mento (L) de cada lado do cubo, e o nú- 
mero de grades quadradas (N) ao longo 
de cada lado. As linhas 130 a 160 léem 
as coordenadas da posição do olho (li- 
nha 510), e desenham o cubo a partir 
dessa posição. Assim que obtivermos a 
primeira imagem do objeto desenhado, 
podemos digitar um novo conjunto de 
coordenadas e ver o cubo por um outro 
ângulo. Quando entramos os valores 0, 
0 e0, o programa termina, A rotina das 
linhas 500 a 530 chama a rotina de po- 
sição (linha 120) para inicializar as cons- 
tantes de transformação. A rotina do 
Cubo (linhas 1000 a 1170) posiciona e 
desenha cada um dos seis lados. A roti- 
na Lado (linhas 1200 a 1220) desenha ca- 
da lado como uma grade, usando a Ro- 
tina da Grade. 

Tente valores diferentes para a posição 
do olho e estude os efeitos decorrentes. 
O valor 1000 para D e 250, 0 e 0 para X, 
Y e Z são bons para começar. Depois, 
adote 100 para D e 25,0 e 0 para X, Y e 


Z. O cubo deverá aparecer do mesmo ta- 
manho, mas a perspectiva será muito 
mais pronunciada. Para digitar novos 
valores para X, Y e Z devemos pressio- 
nar qualquer tecla e a mensagem apare- 
cerá. Para atribuir novos valores a D, 
interrompa o programa com <BREAK> 
ou <RESET> e rode-o novamente. 
Uma mensagem aparecerá para D, se- 
guida de outra para X, Y e Z. 

Como o programa ignora eventuais 
erros ocasionados por pontos fora da te- 
la, os resultados podem ser bastante es- 
tranhos (neste caso, uma linha inteira é 
omitida, mesmo quando apenas uma de 
suas extremidades excede o ponto má- 
ximo permitido). Para pontos mais pró- 
ximos do que uma certa distáncia míni- 
ma e pontos localizados atrás do olho, 
ZN será ignorado. Dessa maneira, se a 
posição do olho estiver muito próxima, 
ou mesmo dentro do cubo, poderão 
ocorrer falsos resultados. 

Finalmente, é aconselhável guardar 
uma cópia da listagem completa em fi- 
ta ou disco, de modo a usar as mesmas 
rotinas para desenhar formas duplica- 
das e produzir gráficos circulares em fu- 
turos programas. 

















Ao contrário das máquinas de escrever, 
sempre prontas para serem 

operadas, as impressoras só podem ser 
usadas com um computador depois 
que certas condições são satisfeitas. 


Se você leu Como Escolher uma Im- 
pressora (pågina 521), já sabe como agir 
para adquirir um desses periféricos. 

Dependendo da marca e do modelo 
do micro, além da impressora, você pre- 
cisará provavelmente de uma interface 
que a compatibilize com ele. 

Mas adquirir uma impressora e sua 
respectiva interface pode não resolver 
todos os problemas. Com efeito, mui- 
tos usuários descobrem, após a compra, 
que ainda precisam de um bom tempo 
para ligar o novo periférico e fazê-lo 
funcionar de modo fluente. É que isso 
exige informações complementares so- 
bre quais são os códigos de controle ade- 
quados, como enviá-los á impressora e 
como trabalhar com todas aquelas fun- 
ções especiais, que pareciam prometer 
tanto e que o fizeram sair de casa e ad- 
quirir a impressora. 

Neste artigo, tentaremos esclarecer 
alguns dos pontos ainda obscuros e 
orientá-lo no sentido de resolver as di- 
ficuldades mais comuns que surgem pa- 
ra aqueles que desejam se equipar com 
uma dessas máquinas. 








Suponhamos que você já 
adquiriu uma impressora, 
que a conectou à tomada, 

e que está agora no pon- 

to em que não sabe co- 
mo fazer para colo- 
car tudo aquilo em 
funcionamento... 

O primeiro 
conselho é: nào li- 
gue ainda o peri- 
férico. Existem 
uma ou duas coi- 
sas que você de- 
ve fazer primei- 
ro; para muitas 
impressoras, o mais 
importante de tudo é 
a remoção do parafu- 
so de fixação para 
transporte (usado para imobilizar a má- 
quina quando ela é levada de um lugar 
para outro). 

Algumas impressoras não têm meca- 
nismo de proteção para transporte; por- 
tanto, verifique com bastante atenção o 
manual de instruções do fabricante. Ge- 
ralmente, existem dois ou três parafu- 











sos, que podem ser auxiliados por elás- 
ticos ou fitas adesivas. Estes devem ser 
removidos cuidadosamente, pois as úl- 
timas coisas de que você vai necessitar 
quando estiver imprimindo serão elás- 
ticos e fitas adesivas. Quanto aos para- 
fusos, mantenha-os à mão; você talvez 
precise reutilizá-los em caso de transpor- 
te da impressora. 








cé pode ligá-lo. O bo 
mente está em N 


pequena luz, vermelha o 
nada a avisar se a fonte está 
ainda que ela não seja pro! 
você provavelme 

по то) nt pres 
são para ajustar-se. Certos m 
delos avisam quando o 


Se a impressora não funcionar na pri- 

meira tentativa, não se desespere: pode 

ima coisa tão simples como um 

lto. Se, ao contrário, ela funcio 

nar (o que é, aliás, muito mais prová- 

vel), desligue-a novamente e coloque o 

papel (e a fita impressora, caso isto se- 
ja necessário). 


O PAPEL 


Há dois tipos básicos de impressora 
quanto ao tipo de papel usado: as que 
empregam formulários contínuos (papel 
dobrado em z, com perfurações nas 
margens) e as que utilizam folhas soltas 
ou papel alimentado por bobinas. As 
máquinas mais versáteis — como as 
compatíveis com a linha Epson — acei- 
tam os dois tipos de papel. Impressoras 


asiado t, 
eto pode provocar Ir 
:l ou levá-lo a en 


mmm 


No caso de sua impressora dis] 
recursos para um autoteste, 
te acioná-los assim que ela estiv 
para trabalhar. Esse tipo de verificação 


FITAS DE IMPRESSÁO 


A última e mais importante etapa 
dessa seqüéncia é a ligacáo da impres- 
sora ao computador. Em muitos casos 


consiste em imprimir ininterruptamen= isso é tão simples quanto inserir о cabo 


te um conjunto completo de caracte 

Ele serve para dois propósitos: primei- 
ro, mostrar que a impressora está fun- 
cionando independentemente do com- 
putador; segundo, para exibir o conjun- 
to de caracteres disponíveis no peri- 
férico. 

Nàs impressoras de tipo mais co- 
mum, o autoteste é acionado quando se 
pressiona o botão de avanço de linha ou 
de formulário. 

Para parar o autoteste, basta desligar 
a impressora. (Algumas máquinas d 
põem de um botão especial para acio- 
nar o autoteste.) 


“de conexão no soquete correto: essa é a. 
forma de ligação das impressoras 
usam o padrão Centronics (par: ). 
Freqüentemente, como acontece o 
TK-2000 e com o MSX, existe um co- 
nector claramente reservado para a im- 
pressora. Nos computadores da linha 
Sinclair (ZX-81 e Spectrum), é necessá- 
rio uma interface especial, que é conec- 
tada no mesmo ponto destinado a ligar 
outros tipos de expansão (memória, sin- 
tetizadores de voz etc.). Nesse caso, é 
preciso, quase sempre, desligar uma e» 
pansão já existente, para poder colocar 
da impressora, a não ser que 









vocé tenha comprado uma interface com 
um conector adicional de expansão. Es- 
se sistema é conhecido como “*encadea- 
mento em margarida” e deve ser feito 
com certa precaução. 

Se você vai adquirir uma impressora 
que não é específica para o seu compu- 
tador, deve tomar alguns cuidados. Se 
o seu micro é um MSX, ou um TK-2000, 
por exemplo, a impressora deve ser, 
obrigatoriamente, do tipo paralelo, pa- 
dráo Centronics (a maioria das impres- 
soras mais populares, como a Mónica, 
a Grafix e outras compatíveis com os 
modelos Epson e Seikosha tem esse pa- 
dráo). Os micros da linha Apple podem 
trabalhar tanto com impressoras para- 
lelas como com as seriais, que usam O 
padráo RS-232C, dependendo da inter- 
face que se vai utilizar. Já os micros 
compatíveis com o TRS-Color usam 
apenas impressoras seriais. 

Ao conectar o cabo, vocé notará que 
a maioria das impressoras tem soquetes 
que impedem uma ligagáo em posigáo 
invertida. Isso náo ocorre com a impres- 
sora para os micros da linha TRS-80 
(por exemplo, o CP-500), que aceitam 
o soquete em qualquer posição. 

Se você quiser conectar uma impres- 
sora de fabricante independente nos mi- 
cros da linha Sinclair (Spectrum e 
ZX-81), precisará adquirir uma interface 
especial. As interfaces para tais micros 
existentes no mercado nacional devem 
ser ligadas a impressoras paralelas com 
o padrão Centronics. 

Em alguns casos, a interface só fun- 
ciona quando o computador é carrega- 
do com um programa específico para is- 
so. Entretanto, uma vez que você tenha 
uma, poderá ligar praticamente qual- 
quer impressora ao seu computador. As 
melhores interfaces são oferecidas pelos 
próprios fabricantes de micros, mas 
mesmo assim é bom fazê-las funcionar 
antes de adquiri-las. 


COMANDOS DE CONTI 


Qualquer coisa a ser impressa tem 
que ser enviada primeiro pelo compu- 
tador à impressora, através do cabo de 
conexáo. Os comandos usados para 
controlar a impressora variam de com- 
putador para computador, e em geral 
consistem de algumas instruções 
simples. 


O Spectrum e o ZX-81 se comunicam 
com a impressora por comandos simples 
em BASIC, de fácil manipulação. O co- 
mando LPRINT tem um efeito similar 


ao PRINT; com ele, porém, a saída vai 
para a impressora e não para a tela. No 
ZX-81, todas as regras do PRINT va- 
lem também para o LPRINT. No Spec- 
trum, entretanto, não se tem a mesma 
liberdade de especificar o tipo de im- 
pressão, como se faz com o comando 
PRINT. Por exemplo, não é possível 
utilizar os comandos PAPER, INK, 
OVER, FLASH e BRIGHT. O INVER- 
SE só funciona em certos tipos de im- 
pressoras gráficas. O mesmo acontece 
com os caracteres gráficos que podem 
ser colocados dentro de um PRINT, 
tanto no ZX-81 quanto no Spectrum (as 
impressoras náo específicas para tais mi- 
cros náo dispóem desses caracteres no 
seu conjunto de impressão). O PRINT 
AT também não funciona na im- 
pressora. 

Assim como o comando PRINT é 
substituído por LPRINT, o LIST dá lu- 
gar a LLIST, que lista o programa da 
memória na impressora. Quando a lis- 
tagem ocupar mais de uma tela, LLIST 
gerará uma impressão continua, inde- 
pendentemente do tamanho do 
programa. 

О terceiro comando BASIC usado 
para acionar a impressora é o COPY. 
Ele copia o que estiver na tela por um 
processo denominado descarregamento 
de tela. Quando a impressora é utiliza- 
da para produzir pontos em vez de le- 
tras é chamada de impressora gráfica. 
Você pode trabalhar com o COPY pa- 
ra fazer uma cópia da tela contendo os 
resultados de um texto ou de uma lista- 
gem de programa em qualquer tipo de 
impressora. A cópia de telas gráficas 
funcionará apenas se a impressora for 
especifica para o seu computador (uma 
impressora gráfica, portanto). 

O TK-90X emprega uma interface 
paralela, própria para acionar uma im- 
pressora e que exige o carregamento pré- 
vio de um programa de controle (dri- 
ver). Esse programa é vendido em con- 
junto com a interface, com um cabo de 
conexão e com um manual de instru- 
ções. O software só precisa ser carrega- 
do uma vez ao se ligar o computador. 
Mas, sempre que este for desligado, se- 
rá preciso carregá-lo novamente. O soft- 
ware permite a utilização dos comandos 
LPRINT, LLIST e COPY. 

Já os micros da linha ZX-81, como 
o TK-85, requerem também uma inter- 
face paralela; mas não é preciso carre- 
gar um software de controle para usar 
diretamente os comandos citados. 


[é] 


Os micros da linha Apple podem ser 
conectados tanto a impressoras seriais 


como a impressoras paralelas. Para is- 
so, é necessário adquirir separadamen- 
te a interface adequada de controle; esta 
deve ser encaixada em um dos soquetes 
internos do console do computador. De 
forma geral, costuma-se dar preferência 
à interface paralela, uma vez que é 
maior o número de impressoras que se- 
guem esse padrão. 

A impressora é tratada, pelo BASIC 
e pelo sistema operacional, como um 
dispositivo de saída que recebe o núme- 
ro lógico correspondente ao soquete no 
qual foi inserida a placa de controle. As- 
sim, se encaixarmos a placa no soquete 
1 (a localização mais comum) e quiser- 
mos ativar a impressora, é necessário di- 
gitar o comando em BASIC: 


PR41 


A partir desse momento, todo 
PRINT ou LIST que for digitado em 
modo direto, ou encontrado dentro de 
um programa, terá sua saída direciona- 
da tanto para a tela quanto para a im- 
pressora (modo eco). Portanto, o PR 
pode ser colocado em pontos seleciona- 
dos de um programa, para “ligar” e 
“desligar” o eco na impressora. 

Os micros da linha Apple não dis- 
põem, como os de outras linhas, de co- 
mandos específicos para a impressora, 
como LLIST, LPRINT etc. Por moti- 
vos óbvios, os comandos de posiciona- 
mento do cursor, como HTAB e VTAB 
não funcionam com a impressora. 


nau 


A interface de comunicação adequa- 
da aos micros da linha MSX é do tipo 
paralela padrão Centronics. Tanto ela 
quanto o conector para o cabo de liga- 
ção já estão incluídos na configuração 
básica da máquina. 

Existem três protocolos de impressão 
(conjuntos de caracteres de impressão 
diferentes) para micros da linha MSX, 
O primeiro padrão é o MSX Internacio- 
nal, que segue a tabela de caracteres AS- 
CII especiais e gráficos do padrão MSX 
original. Esse padrão é seguido por mais 
de trinta fabricantes de todo o mundo. 
O segundo é o ABICOMP (Associação 
Brasileira de Indústrias de Computado- 
res): ele segue normas nacionais, que in- 
cluem os caracteres acentuados da lín- 
gua portuguesa. Finalmente, temos um 
terceiro protocolo, criado no Brasil pe- 
la Gradiente para os primeiros modelos 
do Expert MSX. Ao se adquirir uma im- 
pressora, é necessário especificar qual o 
padráo seguido pelo micro; caso contrá- 
rio, aimpressora náo funcionará corre- 
tamente. 

Os comandos usados com o BASIC 








para o controle da impressora sáo tam- 
bém bastante simples e diretos. 

O comando LPRINT tem um efeito 
similar ao PRINT; com ele, porém, a 
saída vai para a impressora e náo para 
a tela. Todas as regras de sintaxe que va- 
lem para o PRINT servem para o 
LPRINT, inclusive quando se trata do 
emprego de TAB e USING. Entretan- 
to, os comandos de especificação de co- 
res (como o COLOR) e os de localiza- 
ção bidimensional do cursor (como o 
LOCATE) não funcionam na impresso- 
ra, O mesmo acontece com os caracte- 
res gráficos e especiais que podem ser 
colocados dentro de um PRINT, uma 
vez que impressoras não específicas pa- 
ra esse micro não dispõem desses carac- 
teres no seu conjunto de impressão. 

Assim como o comando PRINT é 
substituído por LPRINT, o comando 
LIST é substituído por LLIST, que lis- 
ta o programa da memória na impres- 
sora. Quando a listagem tomar mais de 
uma tela, LLIST gerará uma impressão 
contínua independentemente do tama- 
nho do programa. As regras de utiliza- 
ção do LIST valem para o LLIST. Ou- 
tra função útil, de uso exclusivo da im- 
pressora, é a LPOS, que informa ao 
programa a posição lógica da cabeça de 
impressão, em número de colunas a par- 
tir da margem esquerda de uma linha. 





Também nos micros da linha TRS-80 
a interface de comunicação é do tipo pa- 
ralela padrão Centronics, e ela e o co- 
nector para o cabo de ligação incluem- 
sena configuração básica das máquinas 
mais completas, como o CP-500. 

Os comandos usados com o BASIC 
para o controle da impressora sáo sim- 
ples e diretos. O LPRINT tem um efei- 
to similar ao PRINT, embora direcione 
a saída para a impressora e nào para a 
tela. Todas as regras de sintaxe do 
PRINT valem para o LPRINT ( o que 
inclui as expressóes TAB e USING). 
Entretanto, os comandos de locali- 
zagáo bidimensional do cursor 
como PRINTO náo funcionam 
com a impressora. O mesmo se 
dá com os caracteres gráficos e 
especiais que podem ser coloca- 
dos dentro de um PRINT, já 
que impressoras náo específicas 
para o TRS-80 náo tém esses si- 
nais no seu conjunto de im- 
pressáo. 

Assim como o comando PRINT dá 
lugar a LPRINT, o LIST é substituido 
por LLIST, que lista o programa da me- 
mória na impressora. Se a listagem to- 
mar mais de uma tela, LLIST gerará 
uma impressão contínua independente- 


mente do tamanho do programa. As re- 
gras do LIST valem para o LLIST. 
Outra função útil, de uso exclusivo 
da impressora, é a LPOS, que informa 
o programa a respeito da posição lógi- 
ca da cabeça de impressão, em número 
de colunas a partir da margem esquerda. 


Os micros da linha TRS-Color dis- 
põem só de uma porta serial para comu- 
nicação com periféricos, que é a usada 
para conexão com a impressora. Mes- 
mo assim, o controle da impressão (fei- 
ta por alguns comandos do BASIC) nes- 
ses micros também é simples. Para lis- 
tar um programa digite LLIST (segui- 
do por <ENTER>). Todas as regras 
do LIST valem para o LLIST, só que 
a saída vai para a impressora, e não pa- 
ra a tela. Para usar PRINT com a im- 
pressora, é preciso digitar a expressão: 


PRINT4-2," TEXTO” 
Ela determina ao computador que 









































envie sua saída (aqui a palavra TEXTO) 


ao periférico -2, que é o número de iden- 
tificação para a impressora (mais exa- 
tamente, para a interface serial). Repa- 
re que há uma vírgula após o -2 no co- 
mando acima. Ela informa ao compu- 
tador que a seguir vem um texto para 
ser impresso. Além disso, se usado com 
impressoras capazes de imprimir letras 
minúsculas, o texto que está em vídeo 
inverso na tela aparecerá em minúscu- 
las na impressora (é necessário pressio- 
nar «SHIFT» «0» antes). 

Assim, o comando PRINT s -2 tem 
um efeito similar ao PRINT (com uma 
diferença: ele determina que a saída vá 
para a impressora, e não para a tela). 
As regras de sintaxe do PRINT valem 
para o PRINT s -2, inclusive quando 
aparecem as expressóes TAB e USING. 
Porém, os comandos de especificagáo de 
cores, e de localização bidimensional do 
cursor, como PRINT, não funcionam 
com a impressora. O mesmo se dá com 
os caracteres gráficos e especiais que po- 
dem ser colocados dentro de um 














PRINT, pois as impressoras náo espe- 
cíficas para o TRS-Color não têm esses 
sinais em seu conjunto de impressão. 

Outra função de uso exclusivo da im- 
pressora é a POST(-2): informa a posi- 
ção lógica da cabeça de impressão, em 
número de colunas a partir da margem 
esquerda de uma linha. 


PR 





GRAMAC 





MI sre 





Quem deseja dominar os segredos do 
trabalho com impressoras precisa co- 
nhecer primeiro como se faz sua progra- 
magáo interna e externa. A programa- 
gáo interna é feita normalmente por 
meio de microinterruptores (os DIP) e 
fios removíveis de conexáo (os estrapes), 
situados na placa interna da máquina. 
Já a externa é realizada através de se- 
qüéncias de caracteres de controle ( deno- 
minados seqüéncias de escape por come- 
garem com o código ASCII 27, corres- 
pondendo ao caractere de controle cha- 
mado ESCAPE). 

Dentro das impressoras e de outros 
equipamentos eletrónicos, vocé encon- 
trará um conjunto de pequenas chaves: 
as chaves DIP. Elas podem ser usadas 
para alterar o estado da impressora, 
quando ela for ligada (o estado default, 
ou predefinido). Sào comumente inicia- 
lizados por chave o comprimento da li- 
nha, o espacejamento, o retorno do car- 
ro e o comprimento da página. As im- 
pressoras de tecnologia japonesa permi- 
tem ainda que vocé selecione o conjun- 
to de caracteres internacionais de que 
precisa (exemplo: o sinal da libra ester- 
lina, ou acentos para certos caracteres, 
empregados em idiomas como francés, 
sueco e portugués). 

Para encontrar os interruptores de 
programação interna, consulte o manual 
da impressora: em geral, eles estào lo- 
calizados sob a tampa da impressora (es- 
ta, porém, só deve ser removida quan- 
do a impressora estiver desconectada da 
corrente elétrica). 

Uma vez localizadas as chaves DIP, 
você pode trocá-las de posição 
empurrando-as delicadamente com os 
dedos ou com uma chave de fenda, O 
manual de instruções deve ter um dia- 
grama do DIP e de suas posições, de 
modo a mostrar para que elas estão se- 
lecionadas. Faça um teste você mesmo. 

Outras características de uma impres- 
sora (como, por exemplo, o fato de to- 
do caractere de alimentação de linha ser 
seguido automaticamente de um retor- 
no de carro) podem ser alteradas 
removendo-se ou inserindo-se um estra- 
pe (pequeno fio em forma de U, com co- 
nectores em ambas as pontas) em pon- 


tos apropriados da placa eletrônica da 
máquina. Antes de fazer isso, porém, é 
conveniente consultar o manual especi- 
fico da sua impressora. 


CÓDIGOS DE ESCAPE 


Algumas impressoras (como a Móni- 
ca, por exemplo) admitem o envio de có- 
digos de controle, da mesma forma que 
se enviam os dados a serem impressos. 
Esses códigos são frequentemente cha- 
mados de segiiências de escape. Assim, 
muitas impressoras esperam que você 
coloque o código para o escape, CHR$ 
(27), antes do código de controle. Isso 
permite à impressora saber que o que es- 
tá chegando no momento é uma men- 
sagem de programação externa, e não 
um caractere a ser impresso. 

Cada impressora tem as suas segiuên- 
cias de escape próprias, embora os ca- 
racteres usados nas máquinas compatí- 
veis com a Epson estejam se tornando 
rapidamente um padráo para impresso- 
ras que oferecem facilidades similares. 
Nas máquinas mais versáteis há um 
enorme conjunto de seqüéncias de esca- 
pe. Estas podem ser enviadas por um co- 
mando LPRINT normal. 

Em uma Epson, o exemplo a seguir 
imprime a palavra COMPUTADOR em 
modo enfatizado, desde que tenham si- 
do enviados os comandos corretos. 


== 0 


LPRINT CHR$ (27) ;' E' ; ' COMPUTADOR 


[é] 


PRL 
PRINT CHR$(27); 








* COMPUTADOR * 





PRINT4-2,CHR$(27) ; ' E' ;' COMPUTAD 
ов" 


Mas náo se esquega de voltar ao mo- 
do normal. Para isso, use os seguintes 
comandos: 


EX n 


LPRINT CHR$(27);'F* 


PR41 
PRINT CHNS(27);'F* 








PRINT4-2,CHRS(27);'F* 


Lembre-se, porém, de que esses có- 
digos são exclusivamente para as im- 
pressoras Epson e as que sáo compatí- 


veis com ela. Para outras impressoras, 
os códigos seráo diferentes. 


Os efeitos mais comuns obtidos com 
os códigos de escape do tipo Epson sáo 
os seguintes: impressáo em itálico, im- 
pressáo grifada, impressáo em negrito, 
subscritos e sobrescritos. Certas opera- 
ções variam de máquina para máquina. 
As que apresentamos a seguir funcio- 
nam na maioria das impressoras com- 
patíveis com a Epson: 

ESC 4 ativa um conjunto alternativo de 
caracteres (geralmente o itálico). 

ESC 5 retorna ao conjunto padrão. 
ESC - ativa e desativa o grifo. Deve ser 
seguido por CHR$(1) ou por CHR$(49); 
para a alteração, é desativado рог 
CHRS(0) ou CHR$(48), conforme tenha 
sido ativado por CHR$(1) ou por 
CHRS(49). 

ESC G ativa o modo dupla impressáo. 
ESC H desativa o modo dupla im- 
pressão. 

ESC S, quando é seguido de CHR$(0), 
ativa o modo de sobrescrição; quando 
é seguido de CHRS$(1), ativa o modo de 
subscrição. 

ESC T retorna a impressora ao modo 
normal depois de ativado o modo de 
subscrição ou sobrescrição. 

ESC @ inicia a impressora e volta to- 
dos comandos aos valores originais. 

Você pode usar as segiiências de es- 
cape em praticamente todas as impres- 
soras conhecidas, colocando-as depois 
do comando que o seu computador usa 
para enviar uma saída à impressora 
(LPRINT, PRINT 4-2, ou qualquer ou- 
tro) e separando-as por pontos e vírgu- 
las, assim como se faria com qualquer 
outro comando CHRS. 

Algumas impressoras exigem que se 
coloque um caractere ASCII para o ES- 
CAPE entre todos os códigos de contro- 
le. O manual de instruções deve dizer se 
você vai ou não precisar disso. 


'AS TENDENCIAS 


As seqüëncias de escape teráo um pa- 
pel mais importante na medida em que 
as impressoras se tornarem mais bara- 
tas e sofisticadas. Já existem impresso- 
ras com matrizes de ponto cuja quali- 
dade é quase a mesma das impressoras 
*““margarida””; algumas delas têm carac- 
terísticas próprias usualmente associa- 
das com fotocomposição profissional, 
tais como: espacejamento proporcional 
e justificação automática à direita ou à 
esquerda. 


FELIZ 





ATERRISSAGEM 


Agora que vocé já é um (relativo) ás 

da aviacáo, desligue o piloto 

automático e, com apenas trés funcóes, 
faca o aparelho aterrissar. 

Mas tenha cuidado com os urubus. 


Ultima parte de nosso programa si- 
mulador de vóo, este artigo fará com 
que vocé possa finalmente assumir o 
controle direto do aviáo. Trés pares de 
teclas permitiráo aumentar e diminuir a 
rotação do motor, virar o aparelho pa- 
ra os lados, subir ou descer. 

Nossa viagem começou a 20.000 me- 





tros do centro da pista e a 2.000 metros 
de altura. 

Pilotar pode ser uma tarefa difícil.. 
sobretudo se você nada sabe do assun- 
to. Não espere bons resultados nos pri- 
meiros vôos: como em tudo na vida, a 
habilidade só vem com o tempo. 

Relativamente lentos por estarem em 
BASIC, programas como esse parecem 
ainda mais morosos pelo fato de não 
permitirem mudanças bruscas de curso. 
Com paciência e perseverança, porém, 
você conseguirá controlar o aparelho e 
melhorar seus pousos. O programa o 
manterá informado a respeito de cada 
aterrissagem ou acidente. Essas mensa- 
gens são importantes: será por meio de- 








= UMA ROTINA DE CONTROLE 
DO AVIÁO PELO TECLADO 
A ATERRISSAGEM 
ACIDENTES AÉREOS 
-PERDAS E DANOS 





las que vocé saberá nào só o que está 
acontecendo em cada momento como 
também onde se encontram suas prin- 
cipais deficiéncias. 










3000 POW=0 LET KS=INKEYS 
IF RETURN 

3010 THEN LET POW=-1 
1020 IF THEN LET POW-1 
3030 IF THEN LET PT=PT+ 
1 

3040 IF KS="A" THEN LET PT=PT- 
1 

3050 IF K$-"O" AND RI 30 THEN 
LET RL=RL-1 

3060 IF K$ " AND RL«30 THEN 








A неее 


3070 RETURN 

5020 CLS : INPUT "VELOCTDADE DO 
VENTO (1-50 M/S)",X0 
5025 IF X0>50 ОЯ Х0<1 
0 5020 

5030 INPUT "DIRECAO DO VENTO (0 
-359 GRAUS)"”.X1 

5035 IF X1>359 OR XI<0 THEN GO 
TO 5030 

5040 LET X0=X0/3 

5050 PRINT '"VELOCIDADE DO VENT 


THEN GOT 


O- ";3*X0;" M/S": PRINT "DIRECA 
O= ";X1;” GRAUS” 

5055 PAUSE 100: CLS 

5060 LET WY=-X0*COS (Xl*C) 

5070 LET WX=-X0*SIN (X1*C) 

5500 GOSUB 3000: GOSUB 1000 


5510 TF PZ<=0 THEN GOTO 6000 
5520 GOSUB 2000 

5530 GOTO 5500 

6000 IF ABS RL>RT OR PT>TP OR P 


Т<0 ОН УУ>80 ТНЕМ GOTO 6030 








6010 IF ABS PX>Wk OR ABS PY>100 
0 THEN GOTO 6060 

6020 CLS : PRINT " PARABENS 
PRINT "ATERRISSAGEM BEM SUCEDID 
A.": GOTO 6100 

6030 FOR N=0 TO 20 STEP .5: PLO 
T 127,130: DRAW 120-INT (RND*24 
0),45-INT (RND*90): SOUND .005, 
20-N: NEXT N 

6040 PAUSE 50 

6050 CLS : PRINT "LAMENTAMOS IN 


FORMAR QUE O VOO PJ-26 SOFREU 
UM GRAVE ACIDENTE. NAO HA SOBR 
EVIVENTES.”: GOTO 6100 

6060 CLS : PRINT "VOCE POUSOU F 
ORA DA PISTA” 

6070 IF VU<40 THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA QUA 
SE NADA ACONTECEU.": GOTO 6100 
6080 IF UUX80 THEN PRINT "ENTR 
E MORTOS E FERIDOS SAL 
VARAM-SE TODOS.": GOTO 6100 
6090 PRINT “NINGUEM SOBREVIVE A 
UM POUSO NESSA VELOCIDADE!” 
6100 PRINT '"VALORES RELATIVOS 
AO POUSO” 

6110 PRINT '"VELOCIDADE DO AR= 
"¡INT VV;" M/S": PRINT "DISTANC 
IA- ";INT (SQR (PY*PY*PX*PX)): 
PRINT "INCLINACAO FRONTAL= ";PT 
6120 PRINT "INCLINACAO LATERAL= 
";RL: PRINT "ROTACAO DO MOTOR- 
";INT (10*TC)/10;" X 1000" 
6130 PRINT "DESVIO DO EIXO DA P 
ISTA- ";INT ABS PX;" METROS": P 
RINT "DIRECAO- ";AD;" GRAUS" 
6140 PRINT '"QUER VOAR NOVAMENT 
E (S/N) ?" 

6150 LET AS=INKEYS: IF AS<>"S” 
AND AS<>"N” THEN СОТО 6150 
6160 IF AS="N” THEN CLS 
6170 RUN 


A sub-rotina que vai de 3000 a 3070 
nos dará o controle do aparelho. 

Usando o comando INKEYS para 
detectar teclas, podemos modificar a ro- 
tagáo do motor, virar o aparelho, subir 
ou descer. Uma nova variável — POW 











STOP 


nu... aparece nas linhas 3010 e 3020; ela 
s 


erve para alterar a rotação. Um valor 


zero é atribuído a POW na linha 3000 
cada vez que a sub-rotina é chamada. A 
tecla S determina a velocidade, enquan- 
to F acelera o motor. 

Q e A são usadas para provocar a as- 
censão e a descida do avião, somando 
ou subtraindo 1 à variável PT nas linhas 
3030 e 3040. Finalmente, podemos usar 
O ou P para virar o aparelho — as li- 
nhas 3050 e 3060 cuidam disto, alteran- 
do o valor de RL. 

As linhas 5020 a 5070 permitem va- 
riar o nível de dificuldade do jogo, es- 
colhendo a força e a direção do vento. 
A opção mais fácil é a de um vento de 
um metro por segundo em uma direção 
de zero grau. A partir da nossa opção, 
a linha 5060 calcula a velocidade do ven- 
to na direção frontal do aparelho, e a 
linha 5070 calcula a componente lateral 
dessa velocidade. SIN e COS servem pa- 
ra calcular as componentes em cada di- 
reção. WX e WY são usadas para alte- 
rar a posição do aparelho — GX e GY 
na linha 5080. 

A “alma” do programa é constituí- 
da pelas linhas 5500 a 5530, que cha- 
mam todas as grandes sub-rotinas em se- 
qúéncia; desse modo, a posigáo é mo- 
dificada continuamente. 

A linha 5510 verifica, por intermédio 
do valor de PZ, se o aviáo aterrissou. 
O programa vai entáo para o segmento 
que verifica se a aterrissagem foi satis- 
fatória ou desastrosa. 

A linha 6000 verifica se as inclinações 
lateral e frontal do avião estão fora de 
limites aceitáveis, ou se a velocidade é 
maior que oitenta metros por segundo. 
Se houver uma dessas condições, ocor- 
rerá um acidente. O motivo pode ser 
uma asa muito baixa, excesso de velo- 
cidade ou simplesmente uma tentativa 
de aterrissagem fora da pista. O progra- 
ma prosseguirá na linha 6030, que cui- 
da dos acidentes. Ela traça várias linhas 
irradiando do centro do pára-brisa. А 
medida que essas rachaduras são dese- 
nhadas, o computador emite um som. 
Após o acidente, a linha 6040 provoca 
uma pausa antes que o piloto seja infor- 
mado das más notícias pela linha 6050, 
que fornece também os detalhes do 
acidente. 

Se o avião pousar corretamente, a li- 
nha 6010 verificará a posição da aterris- 
sagem. Se pousar fora da pista, a linha 
6060 informará sobre o fato. Se a velo- 
cidade era inferior a cinquenta metros 
por segundo, a linha 6070 dirá ao pilo- 
to que houve um pouso bem-sucedido. 
As linhas 6080 e 6090 informarão se o 
acidente foi pequeno, apenas com feri- 
dos leves, ou se foi um desastre mais 
grave; neste caso, o jeito é procurar a 
caixa-preta. 


o FREE 


Apague a linha 5505. Note que algu- 
mas linhas deste programa sào modifi- 
cações de linhas já existentes. 


2 DEF USRl-&H41:DEFUSR2-&H44 

5 GOTO 5000 

10 SCREEN 2,2:KEY OFF:COLOR 15, 
4,2 

15 A=USRI (0) 

50 ON KEY GOSUB 3100,3200 

60 KEY(1) STOP:KEY(2) STOP 

110 RETURN 

3000 A-STICK(0) 

3010 KEY(1) ON:KEY(2) ON 

3030 IF A=1 THEN PT=PT+3:GOTO 3 
070 

3040 IF A=5 THEN PT=PT-3:GOTO 3 
070 

3050 IF A=7 AND RL>-30 THEN RL= 
RL-3:GOTO 3070 

3060 IF A=3 AND RL<30 THEN RL=R 


L+3 

3070 KEY(1) STOP:KEY(2) STOP:RE 
TURN 

3100 T2=TC:IF TC>.2 THEN TC*TC- 
« 2: RETURN 


3200 T2-TC:IF TCX8.8 THEN TC-TC 
*.2:RETURN 

3900 LINE(X,Y) - (X*50, Y*8) , 2, BF 
5020 SCREEN 0:KEY OFF:INPUT"Vel 
ocidade do vento (1-50 m/s) 
0 

5025 IF X0>50 OR X0<0 THEN 5020 
5030 INPUT"Diregáo do vento (0- 





359 graus) ";Xl 
5035 IF X1>359 OR X1<0 THEN 503 
0 


5040 X0-X0/3 

5050 PRINT:PRINT "Velocidade do 
vento: ";INT(3*X0 m/8":PRINT 
"Direcáo do vento Xl;" graus 






5060 WY-X0*COS (X1*C) : WX*-XO*SIN 
(X1*C) 

5070 FOR I=1 TO 1000:NEXT:GOSUB 
10 

5400 A=USR2 (0) 

5500 GOSUB 3000:GOSUB 1000 
5510 IF PZ<=0 THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 

6000 IF ABS(RL)>RT OR PT>TP OR 
PTX0 OR VV>80 THEN 6100 

6010 IF ABS(PX)>WR OR ABS(PY)>1 
000 THEN 6200 

6020 COLOR 15,4,4:SCREEN O 
6030 PRINT "Parabéns !":PRINT " 
Aterrissagem bem sucedida.":GOT 
О 6500 

6100 LINE (0,0)-(RND(1)*128+64, 
RND (1) *96*49) , 15: LINE- (255,191) 
+15:LINE (255,0)- (RND(1)*128*64 
,RND(1)*96*49) , 15:LINE- (0,191), 
15 

6110 FOR K=1 TO 1000:NEXT 

6120 COLOR 15,4,4:SCREEN 0:PRIN 

T "Lamentamos informar, que o v 

6o PJ26" 

6130 PRINT "sofreu um grave aci 

dente." 


m= '“ 


6140 PRINT "Náo há sobrevivente 
s.":GOTO 6500 

6200 COLOR 15,4,4:SCREEN 0 

6210 PRINT "Você pousou fora da 
pista.” 

6220 IF УУ<40 THEN PRINT "Como 
Bua velocodade era baixa,":PRIN 
T "quase nada aconteceu.":GOTO 
6500 

6230 IF УУ<80 THEN PRINT 
mortos e feridos,":PRINT 
aram-se todos.":GOTO 6500 
6240 PRINT "Ninguém sobrevive a 
um pouso:"PRINT "nesta velocid 
ade.” 

6500 LOCATE 5,10:PRINT 
RELATIVOS AO POUSO" 
6510 PRINT:PRINT "Velocidade do 
аг = ";INT(VV) ;"m/8":PRINT "Di 
stáncia * ";INT(SQR(PY*PY*PX*PX 
) m”:PRINT "Inclinacáo front 
CO 

6520 PRINT "Inclinação lateral 
= ";RL:PRINT "Rotação do motor 
* ";INT(TC*1000); "r.p.m." 

6530 PRINT "Desvio do eixo da p 
ista * ";INT(PX);"m":PRINT "Dir 
ecüo - ";AD;"graus" 

6540 PRINT:PRINT "Quer voar nov 
amente (S/N) ?" 

6550 AS=INKEYS:IF AS<>"S" 
$4»"N" THEN 6550 

6560 IF AS="N" THEN CLS:END 
6570 RUN 


"Entre 
"salv 


"VALORES 








AND A 


O laço principal do programa fica nas 
linhas 5500 a 5530. A primeira coisa que 
ele faz é chamar uma sub-rotina na li- 
nha 3000 que permitirá o controle do 
avião. Essa sub-rotina usa o comando 
STICK, por meio do qual podemos pi- 
lotar com o teclado — ou com o joys- 
tick, se usarmos STICK (1). 

As linhas 3030 e 3040 controlam os 
movimentos de subida e descida, en- 
quanto as linhas 3050 e 3060 determi- 
nam os movimentos laterais. 

É necessário ainda que existam for- 
mas de acelerar e diminuir a rotação do 
motor, Isso é feito por intermédio das 
teclas de função do MSX. Nessa rotina 
serão utilizadas as duas primeiras teclas 
de função. Para tanto, foi incluida a li- 
nha 50 no início do programa; ela infor- 
ma ao computador o que fazer quando 
uma das teclas de função for pressiona- 
da. A função responsável por isto é ON 
KEY GOSUB, que difere da função ON 
“variável” GOSUB em diversos aspec- 
tos. O programa não será desviado ao 
encontrar a linha 50; ele apenas ficará 
sabendo para onde ir no momento opor- 
tuno, guardando os endereços na 
memória. 

Só quando o programa chegar à li- 
nha 3010 é que as teclas de função se- 
rão ativadas pelo comando KEY (N) 
ON, onde N é o número da tecla. A par- 
tir daí, se pressionarmos a tecla de fun- 


ção 1, o programa executará a sub- 
rotina da linha 3100, que desacelera o 
motor. Se a tecla de função pressiona- 
da for a 2, o motor será acelerado pela 
sub-rotina da linha 3200. 

Observe que o computador interrom- 
perá o que estiver fazendo para acele- 
rar ou desacelerar o motor, voltando em 
seguida para a tarefa anterior. Contu- 
do, se o programa estiver fazendo os cál- 
culos no momento em que pressionar- 
mos uma das teclas de função, coisas es- 
tranhas podem acontecer. E que a pri- 
meira parte dos cálculos terá sido feita 
com o valor antigo da rotação do mo- 
tor, e a segunda, com o valor novo. 

A solução não está em desligar as te- 
clas de função durante a execução dos 
cálculos, pois, neste caso, o programa 
só aceitaria mudanças na rotação do 
motor em determinados momentos. 

O problema, contudo, pode ser resol- 
vido. Para isso, é necessário que se di- 
gite o comando KEY (N) STOP nas li- 
nhas 60 e 3070. Depois de um comando 
desse tipo, o computador será capaz de 
detectar a tecla de função corresponden- 
te, mas o desvio não ocorrerá até que 
um comando do tipo KEY (N) ON seja 
encontrado. Dessa maneira, o progra- 

a “'sabe"* que uma tecla de função foi 
pressionada, e se lembrará de tal fato no 
momento adequado. 

Algumas linhas iniciais também fo- 
ram modificadas. A linha 2 define o en- 
dereço de duas rotinas em linguagem de 
máquina, que ficam na ROM. A primei- 
ra “desliga” temporariamente a tela, 
quando chamada pela linha 15, impe- 
dindo que o jogador veja o desenho que 
está sendo feito na tela. A segunda “li- 
ga” a tela novamente, quando chama- 
da pela linha 5400, de forma que a ca- 
bine apareça instantaneamente. 

A linha 5 desvia o programa para que 
o jogador informe a velocidade e a di- 
reção do vento, nas linhas que vão de 
5020 a 5070. Isso é feito antes que o de- 
senho da cabine de comando seja feito 
pela sub-rotina 10. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como as da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Um pouso fora da pista não signifi- 
ca necessariamente uma tragédia. Se a 
velocidade do avião for inferior a 40 
m/s, a linha 6210 dirá que os danos fo- 
ram pequenos. Se ela estiver entre 40 e 
80 m/s, a linha 6220 dará conta de que 
as perdas materiais foram pequenas, 





mas que há alguns feridos. Se a veloci- 
dade for maior que 80 m/s só nos res- 
tará procurar a caixa-preta: o desastre 
terá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
do pouso. Estudando bem esses núme- 
ros, você aprenderá a fazer aterrissagens 
cada vez melhores. 

Finalmente, as linhas 6540 a 6570 nos 
dão a opção de jogar novamente. 


(4 (2) НЕЕ 


Antes de mais nada, apague a linha 
5505. O programa a seguir completa a 
simulagáo de vóo. Use as teclas Z, X, 
P e L para jogar. 


3000 K = РЕЕК ( - 16384): POKE 
- 16368,0 

3010 IF K * 193 AND TC > .2 TH 

EN TC = TC - .2: GOTO 3070 

3020 IF K = 209 AND TC < 8.8 Т 

HEN TC = TC + .2: GOTO 3070 

3030 ІР К = 208 THEN PT = PT + 
3: GOTO 3070 

3040 IF K = 204 THEN PT = PT - 
3: GOTO 3070 

3050 IF K = 218 AND RL > - .0 

05 THEN RL = RL - .001: GOTO 30 

70 

3060 IF K = 216 AND RL < .005 

THEN RL = RL + .001: GOTO 3070 

3070 RETURN 

5020 HOME : TEXT : INPUT "VELO 


CIDADE DO VENTO (1-50) M/S ";XO 


5025 IF X0 > 50 OR Х0 < 1 THEN 
5020 
5030 INPUT "DIRECAO DO VENTO 


(0-359) GRAUS ";X1 


5035 IF X1 > 359 OR X1 < 0 THE 

N 5030 

5040 X0 = X0 / 3 7 
5060 WY = x0 * СОЗ (Х1 * С) 
5070 WX = - X0 * SIN (X1 * C) 

5500 GOSUB 3000: GOSUB 1000 
5510 IF PZ < = O THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 

5570 GOTO 6550 

6000 IF ( ABS (RL) > RT) OR PT 
> TP OR PT < 0 OR AS > 80 THEN 
6100 

6010 IF ABS (PX) > WR OR ABS 
(PY) > 1000 THEN 6200 

6020 TEXT : HOME : PRINT “PARA 

BENS !”: PRINT "ATERRISSAGEM BE 

M SUCEDIDA": GOTO 6500 

6100 HCOLOR= 3: HPLOT 0,0 TO 
RND (1) * 140 + 71, RND (1) * 9 

6 + 49 TO 279,191: HPLOT 279,0 


TO RND (1) * 140 * 71, 
* 96 * 49 TO 0,191 
6110 FOR K = 1 TO 2000: NEXT 
6120 TEXT : HOME : PRINT "LAME 
NTAMOS INFORMAR QUE O VOO PJ25” 


амр (1) 






: PRINT "SOFREU UM GRAVE ACIDEN 
TE.”: PRINT "NAO HA SOBREVIVENT 
ES.”: GOTO 6500 


6200 TEXT : HOME : PRINT "VOCE 
POUSOU FORA DA PISTA.” 











¿_ — r  ——FtƏ' 


6210 IF AS < 40 THEN PRINT "С 
OMO SUA VELOCIDADE ERA BAIXA, " 
PRINT "NADA ACONTECEU" GOTO 6 
500 
6220 IF AS < 80 THEN PRINT "E 
NTRE MORTOS E FERIDOS": PRINT " 
SALVARAM-SE TODOS": GOTO 6500 
6230 PRINT "NINGUEM SOBREVIVE 
A UM POUSO FORCADO NESTA VELOCI 
DADE" 
6500 НТАВ 5: VTAB 10: PRINT "V 
ALORES RELATIVOS AO POUSO" 
6510 PRINT : PRINT "VELOCIDADE 
DO AR ”; INT (AS);” M/S”: PRIN 
T "DISTANCIA = "; INT ( ЗОВ (РҮ 
ж рү + рх * PX));" M": PRINT " 
INCLINACAO FRONTAL = ";PT 
6520 PRINT “INCLINACAO LATERAL 
= ";RL: PRINT "ROTACAO DO MOTO 
R = INT (1000 * TC);” RPM” 
6530 PRINT "DESVIO DO EIXO DA 
PISTA = ";PX;” M”: PRINT “DIREC 
АО = ";АО;" GRAUS” 








6540 PRINT PRINT "QUER VOAR 
NOVAMENTE (S/N)?" 

6550 GET AS: IF AS = "S" THEN 
RUN 

6560 IF AS = "Nº THEN НОМЕ 
END 


























O laço principal do programa vai da 
linha 5500 à linha 5530. Inicialmente, ele 
chama a sub-rotina de controle do apa- 
relho pelo teclado, que começa na linha 
3000 e vai até a 3070. A linha 3000 veri- 
fica se alguma tecla foi apertada; as li- 
nhas 3010 e 3020 detectam as teclas Q 
e A, que diminuem e aceleram a rota- 
ção do motor; as linhas 3030 e 3040 des- 
cobrem as teclas P e L, que controlam 
a ascensão e a queda do aparelho; final- 
mente, as linhas 3050 e 3060 detectam 
as teclas Z e X, que viram o avião. 

As linhas 5020 e 5070 permitem va- 
riar o nivel de dificuldade da aterrissa- 
gem por intermédio da escolha da for- 
ça e da inclinação do vento. A opção 
mais fácil é uma velocidade de 1 m/s nu- 
ma direção que faz um ângulo de zero 
grau com o aparelho. A partir dos va- 
lores relacionados, a linha 5060 calcula 
o componente frontal da velocidade do 
vento, e a linha 5070, seu componente 
lateral. WX e WY são usados para alte- 
rar a posição do aparelho. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como os da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Como no caso anterior, nem tudo es- 
tará perdido se aterrissarmos fora da 
pista. Caso a velocidade de pouso seja 
inferior a 40 m/s, a linha 6210 dirá que 
os danos foram pequenos. Se ela estiver 














entre 40 e 80 m/s, a linha 6220 dará con- 
ta de pequenos danos e alguns feridos. 
Se a velocidade for maior que 80 m/s, 
só nos restará procurar a caixa-preta en- 
tre os escombros: neste caso, o desastre 
terá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
da aterrissagem. Estudando bem esses 
números, você aprenderá a pousar ca- 
da vez melhor. 

As linhas 6540 a 6570, finalmente, 
nos dão a opção de jogar novamente. 

Na última seção vimos que, se o jo- 
go se estender por muito tempo, a tela 
gráfica pode ser corrompida por restos 
de cordões que se acumulam na memó- 
ria. Se você tiver esse tipo de problema, 
pode corrigi-lo, modificando a linha 
2000 para: 


2000 X = FRE (0): 


O comando FRE(0) limpa a área de 
cordões, evitando que ela invada a tela 
gráfica, No entanto, ele torna o progra- 
ma mais lento. 

A velocidade do programa é compro- 
metida principalmente pela execução da 
sub-rotina que escreve na tela gráfica. 
Como os valores que devem ser constan- 
temente atualizados ficam na porção in- 
ferior da tela, podemos acelerar consi- 
deravelmente o programa se liberarmos 
as quatro linhas inferiores para texto 
(veja o artigo Os Comandos PEEK e 
POKE na página 261) e usarmos HTAB, 
VTAB e PRINT para escrever ali esses 
valores. 


[5] 


Aqui estão as modificações para que 
o programa funcione no TK-2000. 
10 FOR I * 0 TO 6 
20 READ A: POKE 768 * I,A 
30 NEXT 
40 DATA 32,67,240,141,32,3,96 
3000 РОКЕ 800,0: CALL 768:K = 
PEEK (800) 


As quatro primeiras linhas colocam 
uma pequena rotina em código de má- 
quina na memória do TK-2000. Quan- 
do chamada pela linha 3000, essa roti- 
na permite que se faga leitura do tecla- 
do, com auto-repetição. 

A baixa velocidade de execução do 
programa se deve aqui às características 
específicas do TK-2000. 


Antes de executar o programa, apa- 
gue a linha 5505. 


3000 IF PEEK(337)=255 THEN RETU 
RN 


HCOLOR= 0 








3010 IF PEEK(341)=251 AND TC>.2 
THEN TC-TC-.2 
3020 IF PEEK(344)=254 AND TC<B 
8 THEN TC=TC+.2 


3030 IF PEEK(341)=247 THEN PT=P 
T+1 
3040 IF PEEK(342)=223 THEN PT=P 
T-1 
3050 IF PEEK(343)=223 AND RL>-3 


O THEN RL=RL-1 

3060 IF PEEK(344)=247 AND RL<30 
THEN RL=RL+1 

3070 RETURN 
CLS:INPUT"VELOCIDADE DO VE 












(1-50) 
IF X0>50 OR X0<1 THEN 5020 
INPUT"DIRECAO DO VENTO (0 
GRAU: 
IF X1> X1<0 THEN 503 
X0=x0/3 
PRINT:PRINT"VELOCIDADE DO 
* ";3*X0;"M/S":PRINT"DIREC 

5500 JB 1000 

5510 ›2<= 5000 

5520 GOSUB 2000 

5530 GOTO 5500 

6000 IF ABS(RL)>RT OR PT>TP OR 


PT<0 OR UV>80 THEN 6100 
6010 IF ABS(PX)>WR OR ABS(PY)>1 
















Ds 


аа 


— 


ds 








RMAR QUE 
RAVE АС 
БОВВЕУІУЕМТЕ 


6200 CLS:PRINT" 
A DA PISTA” 
6210 IF VV<40 THEN PRINT” COMO 
SUA VELOCIDADE ERA BAIXA, QUAS 
NADA ACONTECEU” :GOTO 6500 
20 IF UV«80 THEN PRINT" ENTRE 
MORTOS E FERIDOS, SALU 
ARAM-SE TODOS":GOTO 6500 
6230 PRINT” NINGUEM SOBREVIVE A 
NESTA VELOCIDADE!" 
VALORES RELA 


VOCE POUSOU FOR 


UM POL 

PRINT:PRINT 
POUSO 

IT: PRINT 

NT (VV) ; 

=" ; INT (SQR (PY*PY-*PX*PX) ) 

INCLINACAO FRONTAL -" 


VELOCIDADE DO 
M/S":PRINT" DIS 


520 PRINT" INCLINACAO LATERAL 


L:PRINT” ROTACAO DO MOTOR 
;INT(10*TC)/10;" X 1000" 
6530 PRINT" DESVIO DO EIXO DA P 
ISTA -";INT(ABS(PX)) ; "M": PRINT" 
DIRECAO -";AD;"GRAUS" 
6540 PRINT:PRINT” QUER VOAR NOV 
AMENTE (S/N) ?" 
6550 AS=INKEYS:IF AS<>"S” 
S<>"N” THEN 6550 
6560 IF AS="N" THEN CLS:END 
6570 RUN 


AND A 


O lago principal vai de 5500 a 5530, 
Ele chama a sub-rotina de controle do 
aparelho pelo teclado, que vai de 3000 
a 3070. A linha 3000 verifica se alguma 
tecla foi apertada; 3010 e 3020 detectam 
as teclas F e S, que diminuem e acele- 
ram a rotação do motor; 3030 e 3040 
descobrem as setas “para cima” e “pa- 
ra baixo”, que controlam a ascensão e 
a queda do aparelho; 3050 e 3060 detec- 
tam as setas “direita” e “esquerda”, 
que viram o avião. 

As linhas 5020 e 5070 permitem va- 
riar o nivel de dificuldade do pouso, es- 
colhendo a força e a inclinação do ven- 
to. A melhor opção é uma velocidade de 
1 m/s numa direção que faz um ângulo 
de zero grau com o aparelho. A linha 
5060 calcula o componente frontal da 


velocidade do vento, e a 5070, seu com- 
ponente lateral. WX e WY servem para 
alterar a posição do aparelho. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
bem como da velocidade do vento. Se 
todos eles estiverem dentro dos limites 
aceitáveis, a linha 6020 informará ao pi- 
loto que houve uma aterrissagem bem- 
sucedida. 

Uma aterrissagem fora da pista não 
implica, necessariamente, a destruição 
do aparelho. Assim, se a velocidade de 
pouso for inferior a 40 m/s, a linha 6210 
dirá que os danos foram pequenos. Se 
ela estiver entre 40 e 80 m/s, a linha 
6220 informará que alguma coisa foi 
destruída e que há alguns feridos. Se a 
velocidade for maior que 80 m/s, só nos 
restará procurar a caixa-preta entre os 
destroços do avião: o desastre terá sido 
total. 

As linhas 6500 a 6530 mostram os va- 
lores das variáveis no momento do pou- 
so. Estudando bem esses números, vo- 
cé aprenderá a pousar cada vez melhor 

Finalmente, as linhas 6550 a 6570 
oferecem a opção de jogar de novo 














UM RELÓGIO 


NATELA 





Se vocé náo tiver nada para fazer numa 
tarde de chuva, rompa o tédio 
executando a rotina apresentada neste 
artigo e veja surgir um 

relógio digital na tela do computador. 


















Usado para regular as atividades do 
micro, o relógio interno funciona a uma 
velocidade constante. Em alguns casos, 
seu conteúdo só pode ser lido e manipula- 
do por instruções em código de máqui- 
na. Em outros, podemos cronometrar 
eventos através de instruções do BASIC, 
que variam segundo o modelo da má- 
quina: PAUSE no Spectrum, TIME no 
MSX, TIMER no TRS-Color etc. 

Tais instruções fazem com que o mi- 
cro conte em unidades entre cem e cin- 
quenta avos de segundo, conforme a ve- 
locidade do relógio. Muitas operações 
usam o relógio de maneira similar: por 
exemplo, se o micro for programado pa- 
ra tocar música, temos que especificar 
a duração de cada nota. 


CONTANDO O TEMPO 


De fato, ainda que certas funcóes náo 
tenham sua duração definida dessa ma- 
neira, o computador é um contador de 
tempo por excelência, executando os 
programas com o olho no relógio. Po- 





demos, assim, fazer com que o compu- 
tador conte o tempo para nós: basta es- 
crever um programa em BASIC conten- 
do um laço que imprima a hora, provo- 
que uma pausa, imprima a nova hora, 
e assim sucessivamente. Se fizermos is- 
so, logo veremos que a pausa deve ser 
um pouco menor que um segundo, pois 
o micro leva algum tempo para fazer as 
adições e impressões necessárias. 

Um relógio desse tipo tem duas gran- 
des desvantagens. A primeira é que ele 
só conta o tempo enquanto o computa- 
dor estiver ligado. Mais grave do que es- 
ta, a segunda limitação consiste no fato 
de que, sempre que quisermos usar o mi- 
cro para alguma outra coisa, teremos 
que desligar o relógio, pois não é possí- 
vel executar dois programas BASIC ao 
mesmo tempo. O *'desligamento"' do re- 
lógio caracteriza, portanto, uma inter- 
rupção da UCP. Esse tipo de manipu- 
lação em geral exige um conhecimento 
maior da arquitetura do microcompu- 
tador, bem como o uso de instruções de 
acesso a recursos que só existem em lin- 
guagem de máquina. 


M RELÓGIO INTERMITENTE 


Para que um programa funcione si- 
multaneamente com a execução de um 
BASIC, é preciso que ele contenha ro- 
tinas controladas por interrupção. 

Os usuários do Spectrum já tiveram 
um exemplo desse tipo de rotina. De fa- 
to, o método utilizado é semelhante em 
todos os micros. 

Quando está ligado, o micro é cons- 
tantemente interrompido por uma fra- 
ção de segundo, a intervalos regulares. 
Isso acontece mesmo que um programa 
em BASIC esteja sendo executado, pois 
o computador precisa “saber” se algu- 
ma tecla foi pressionada. Assim, O pro- 
grama BASIC é interrompido enquan- 
to o teclado é verificado, recomeçando 
novamente até a interrupção seguinte. 

Durante a verificação do teclado, é 
possível introduzir uma rotina em códi- 
go, de modo a executá-la nas '*brechas”” 
abertas pela interrupção do BASIC. O 
resultado é que os programas parecerão 
funcionar simultaneamente. 
















Já que o processo de interrupção é 
controlado pelo relógio do micro, con- 
vém acertar o passo do relógio simples- 
mente contando o número de interrup- 
ções. A frequência de interrupções va- 
ria de micro para micro, mas o princí- 
pio é o mesmo. 

O programa que se segue simula um 
relógio no Spectrum e no TRS-Color, 
com horas, minutos e segundos conta- 
dos a partir do momento em que come- 
ga a ser executado. Podemos acertá-lo 
de modo a fazé-lo funcionar, seja como 
relógio, seja como cronómetro. Esses 
valores sáo mostrados continuamente 
no canto superior direito da tela. O re- 
lógio permanecerá funcionando na te- 
la, mesmo que outro programa esteja 
sendo executado ou digitado. 

Como vocé náo tardará a perceber, 
ele náo prima muito pela precisáo. Es- 
sa falha, porém, náo se deve á rotina 
que acerta a hora, pois os atrasos pro- 
vocados por ela sáo insignificantes (da 
ordem de milionésimos de segundo). As- 
sim, o erro vem mais do relógio interno 
do que de qualquer outra fonte. Por ou- 
tro lado, funções como SAVE, LOAD, 
SOUND e PLAY param o relógio en- 
quanto estiverem sendo executadas. A 
hora é exibida, num mostrador digital, 
no canto superior direito do vídeo, apa- 
gando qualquer coisa impressa ali ante- 
riormente. Se isso causar problema, 
reorganize sua tela a fim de evitar a pri- 
meira linha. Por exemplo, você poderia 
colocar a hora digital no canto superior 
(esquerdo ou direito), desde que o mo- 
delo do seu micro o permitisse. Neste ca- 
so, o programa em linguagem de máqui- 
na teria que ser alterado. 


O programa a seguir funciona tanto 
na versão de 16K, como na de 48K do 
Spectrum. Antes de começar a rodá-lo, 
tome alguns cuidados especiais, pois 
cartuchos e expansões conectados ao mi- 
cro podem dificultar sua execução. É o 
caso, por exemplo, de interfaces para 
impressora, joysticks, etc. 

10 CLEAR 32319: LET total=0 


20 FOR n=32320 TO 32554: READ 
a: POKE n,a: 
a: NEXT n 


LET total=total+ 



































Ш OCOMPUTADORCOMORELÓGIO Ш UMA ROTINA EM CÓDIGO 
m CONTANDO O TEMPO W LIGUE O RELÓGIO 
п COMO FAZER INTERRUPÇÕES E ACERTE OS PONTEIROS 
п O MOSTRADOR DO RELÓGIO E SAVE, LOAD, 
m UM RELÓGIO INTERMITENTE SOUND, PLAY 





30 IF total<>24216 THEN 
PRINT "Erro nos dados” 
40 RAND USR 32320 
50 DATA 33,0,0,34,120,92,34, 
121,92,62,40,237,71,237,94, 
201,0,64,0,0 
60 DATA 62,62,237,71,237,86, 
201,0,229,213,197,245,58,91, 
126,60,50,91,126,254 
70 DATA 50,32,50,175,50,91, 
126,58,120,92,60,50,120,92, 
254,60,32,35,175,50 
80 DATA 120,92,58,121,92,60, 
50,121,92,254,60,32,20,175,50 
,121,92,58,122,92 
90 DATA 60,50,122,92,254,13, 
32,5,62,1,50,122,92,58,122,92 
,38,0,111,17 
100 DATA 23,64,205,234,126,58, 
121,92,38,0,111,17,26,64,205, 
234,126,58,120,92 
110 DATA 38,0,111,17,29,64,205 
,234,126,17,208,61,33,29,64, 
205,34,127,17,208 
120 DATA 61,33,26,64,205,34, 
127,62,120,33,24,88,119,17,25, 
88,1,7,0,237 
130 DATA 176,205,191,2,241,193 
.209,225,251,201,237,83,80,126 
,1,246,255,205,251,126 
140 DATA 1,255,255,205,251,126 
,175,9,60,56,252,237,66,61 
,198,48,229,205,21 
150 DATA 127,33,80,126,52,42, 
80,126,205,34,127,225,201,237, 
75,54,92,38,0,111 
160 DATA 41,41,41,9,235,201,6, 
8,26,119,36,19,16,250,201 
Essa rotina é formada por números 
distribuidos em linhas DATA; eles sáo 
colocados na memória pelo BASIC, 
usando POKE. Tal quantidade de nú- 
meros propicia erros de digitacáo; as- 
sim, a linha 20 verifica a soma dos nú- 
meros: se o resultado náo corresponder 
ao esperado, a linha 30 interromperá a 
execução do programa com uma men- 
sagem de erro, para que você verifique 
as linhas DATA, Esse método é chama- 
do de “checagem por soma” e é reco- 
mendável quando há muitos números. 
A linha 10 protege o topo da memó- 
ria para colocar ali a rotina em código, 
que é executada pela linha 40 . O reló- 
gio começa com 00:00:00, mas podemos 
acertá-lo com: 
POKE 23672, 
POKE 23673, 
POKE 23674, 


STOP 











(segundos) 
(minutos) 
(horas) 





Os números nos comandos POKE 
devem estar no intervalo permitido — 
de 0 a 60 para minutos e segundos, e de 
1 a 12 para horas. Se quisermos ““zerar”” 
o relógio, é mais fácil usar: 


RAND USR 32320 


que executa a rotina novamente. Você 
vai precisar desse comando, se o progra- 
ma em BASIC for apagado por NEW. 





Essa rotina não funciona com drives 
de disquete ligados ao micro. 


10 CLEAR 200,32599 

20 FOR J=32600 TO 32679 

30 READ N 

40 POKE J,N 

50 NEXT 

100 DATA 204,0,0,253,127,252,25 
3,127,254,48,140,4,191,1,13,57 
110 DATA 206,127,164,142,128,0, 
166,130,76,161,192,38,9,111,132 
120 DATA 140,127,252,38,242,134 
.1,167,132,206,4,32,142,127,255 
130 DATA 79,230,130,192,10,45,3 
.76,32,249,195,47,58,237,195,17 
140 DATA 131,4,25,47,6,134,58,1 
67,194,32,229,126,137,76,50,60, 
60,13 


A rotina em código está nas linhas 
DATA, sendo colocada na memória pe- 
lo POKE da linha 40. Qualquer erro nas 
linhas DATA será fatal; portanto, gra- 
ve o programa antes de executá-lo. Ve- 
rifique os nümeros cuidadosamente. Um 
erro muito comum é esquecer alguma 
vírgula, substituir uma vírgula por um 
ponto ou vice-versa. Tudo isto prejudi- 
ca a seqüéncia de leitura do comando 
READ. Execute o programa para car- 
regar a rotina em código. Para ligar o 
relógio, use: 


EXEC 32600 
Isso inicia a atividade do relógio com 


00:00:00. Para acertá-lo, digite em mo- 
do direto, pelo teclado: 


POKE 32764, 
POKE 32765, 
POKE 32766, 


(horas) 
(minuto: 
(segundos) 





Náo empregue valores impróprios 
para horas, minutos e segundos: o com- 
putador náo tem meios de checá-los. 










TRS-80 (2) 


Aprenda a empregar os caracteres 
gráficos pré-programados do 

TRS-80 em desenhos mais complexos 
e capacite-se a trabalhar com 

os úteis “sprites programáveis”. 


Se examinarmos com cuidado os ca- 
racteres gráficos do TRS-80, que ocu- 
pam a faixa de códigos que vai de 129 
a 193 (veja tabela no capítulo anterior 
desta lição), podemos notar facilmente 
que eles são formados por todas as com- 
binações possíveis de seis pixels retan- 
gulares, acesos ou apagados. Portanto, 
a matriz de um caractere tem esta 
forma: 





Você verá agora que não é necessá- 
rio memorizar a tabela de caracteres grá- 
ficos do TRS-80, nem consultá-la a to- 
do momento ao se projetar um desenho 
mais complexo, formado por vários des- 
ses caracteres. A razão é que existe uma 
relação matemática bem definida entre 
a forma do gráfico e o seu código nu- 
mérico. Ou seja, os códigos não foram 
atribuídos ao acaso, como para compu- 
tadores de outras linhas. 


BITS QUE SE ACENDEM 


Todo caractere gráfico é formado pe- 
la combinação de seis pixels — dois na 
horizontal e três na vertical —, que po- 
dem estar individualmente acesos ou 
apagados. Cada um deles corresponde 
exatamente ao pontinho de luz que po- 
de ser ligado ou desligado com os co- 
mandos gráficos SET e RESET. 

Por quê? Sabemos que a tela de bai- 
xa resolução do TRS-80 tem 128 pon- 
tos na horizontal (ou seja, 64 caracte- 
res vezes 2 pixels), e 48 na vertical (isto 
é, 16 linhas vezes 3 pixels). 

Cada pixel corresponde a um bit na 





SPRITES PARA O 


memória de vídeo do micro. Como ca- 
da byte da memória tem oito bits, e ca- 
da caractere seis bits, sobram dois bits 
não usados para representar pixels. Um 
byte da memória de vídeo no TRS-80 
poderia ser representado assim: 





Os bits numerados de O a 5 corres- 
pondem aos seis pixels habituais do ca- 
ractere gráfico. 

O bit 6 não é usado para representa- 
ção de caracteres gráficos, e o bit 7 é 
sempre igualado a 1, para todos os ca- 
racteres gráficos. 

Por exemplo, se quisermos obter o 
código gráfico 134, precisaremos acen- 
der sucessivamente 1 e 2: 


385 85 4 3.2 1 O 
[oTeTeD: [To] 


O código 134 é obtido fazendo-se a 
conversáo de binário para decimal: 


bit valor multiplicador resultado 





00x 1 0 
lq. x 2 2 
Tra 4 4 
8: 0. x 8 0 
40x 16 = 0 
50x 2 - 0 
60x 64 - 0 
7517 18 - 128 
бота 134 


Dessa maneira, é relativamente fácil 
calcular o valor do código de qualquer 
caractere. Para isso, basta verificar as 
posições ocupadas pelos diversos pixels 
"'acesos"' na matriz do caractere, adicio- 
nar em seguida os valores inscritos na 
posição, e somar 128 ao resultado (daí 
a razão de o número 128 ser considera- 
do também como um código gráfico): 


= CORRESPONDÉNCIA ENTRE 

CÓDIGO E CARACTERE GRÁFICO 
" COMO CALCULAR 0 CÓDIGO 
m BITS QUE SE ACENDEM 
m" APLICAÇÕES 











Este fato tem diversas implicações: é 
muito fácil, por exemplo, inverter-se os 
gráficos escritos na tela (para isso, bas- 
ta transformar os bits da memória grá- 
fica, de modo que os que são 1 passem 
para 0, e vice-versa). É possível obter 
outras transformações matemáticas com 
os códigos gráficos, com resultados 
curiosos. 

Mas a aplicação que mais nos inte- 
ressa no momento relaciona-se com a 
definição de figuras complexas. Neste 
caso, O primeiro passo consiste em ar- 
mazenar os códigos numéricos dos ca- 
racteres gráficos que compõem tais fi- 
guras, em uma linha DATA, que é lida 
e armazenada (concatenada) em uma 
variável alfanumérica. Para economizar 
espaço, somente o valor diminuído de 
128 é armazenado. 

Tomemos como exemplo o programa 
a seguir; ele define uma variável A$ que 
contém a imagem de um aeroplano sim- 
ples, formado pelos caracteres 141, 170, 
174, 170 e 140. 


10 CLS:AS="" 

20 FOR I=1 TO 5:READ N 
30 AS=AS+CHRS (128+N) 
40 NEXT I 

50 DATA 13,42,46,42,12 


O aviāozinho ‘“‘voa” do seguinte mo- 
do: impresso inicialmente em uma po- 
sição da tela (com PRINT @), ele é su- 
cessivamente apagado com cinco carac- 
teres em branco e exibido na posição se- 
guinte, e assim por diante. Acrescente 
estas linhas e rode o programa: 


60 FOR 1=256 TO 313 
70 PRINT 8 I,A$; 

80 FOR J=1 TO 40:NEXT 
90 PRINT € 1,” "y 
100 NEXT I 


Portanto, А$ ё, de certa forma, uma 
espécie de sprite. 











Em artigo anterior, explicamos o que 
sáo os caracteres gráficos e como 
entrá-los diretamente pelo teclado. 
Trataremos aqui de sua utilização 
dentro de programas. 


Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente (veja artigo publi- 
cado à página 640), emprega-se a utilís- 
sima função CHRS$. Para imprimir na 
tela um quadrado vermelho, podemos 
usar, por exemplo: 


PRINT INK 2,CHR$(143) 


O programa seguinte mostra a tabe- 
la de correspondéncia entre códigos nu- 
méricos e gráficos na tela dos micros da 
linha Spectrum: 


10 CLS 

20 FOR 5-128 TO 143 STEP 5 
30 FOR i=j TO 3*4 

40. PRINT 1;” "¡CHRS(1);” ”; 
50 NEXT i 

60 PRINT 

70 NEXT 3 


Os caracteres sào impressos ordena- 
damente em fileiras, na tela, por meio 
dos dois lagos que comegam nas linhas 
20 e 30 do programa. O primeiro lago 
varia J de 193 a 242 (a faixa de códigos 
correspondente aos caracteres gráficos), 
de 6 em 6. O laco seguinte percorre to- 
dos os valores numéricos existentes en- 
tre J e J+5. 

O PRINT da linha 60 serve para en- 
cerrar uma fileira de seis códigos e suas 
representações gráficas. Estas são exibi- 
das pela linha 40. 


ИМНА5 10М6. 


Se vocé pretende empregar caracte- 
res gráficos com certa fregiiência em um 
programa, convém armazenar seus có- 
digos em uma variável alfanumérica. 
Assim, ficará bem mais fácil utilizá-los, 
€ vocé nào terá necessidade de consul- 
tar atodo momento a tabela de códigos 
gráficos, quando estiver desenvolvendo 
0 programa. 





ALE E EE PO 


GRÁFICOS DA ROM 
NO SPECTRUM (2) 





Da mesma maneira, quando se pre- 
tende utilizar uma cadeia de caracteres 
gráficos em vários pontos de um progra- 
ma, é interessante armazená-los em uma 
variável alfanumérica. Como o Spec- 
trum não tem a função STRINGS, que 
permite fazer isto com um único coman- 
do, será preciso escrever um pequeno la- 
ço de acumulação: 


10 CLS 

20 PRINT AT 19,0;"Codigo 
Grafico (128-143) : " 
25 INPUT c 

30 PRINT AT 19,0;"Comprimento 
(1-29) + * 

40 INPUT n 

50 LET s$-"" 

60 FOR i-1 TO n 

70 LET s$=sS+CHRS(c) 

80 NEXT à 

90 PRINT AT 10,1;s$ 

95 PAUSE 100 

100 GOTO 10 


A cadeia alfanumérica S$ tem L có- 
digos, que sáo exibidos na tela ao mes- 
mo tempo, quando se emprega o co- 
mando PRINT S$. Este truque será 
muito útil quando você precisar usar 
com freqüência, no programa, linhas de 
separação, molduras etc. 





A FUI TO 

A função TO tem grande utilidade na 
construção de gráficos com símbolos de 
teclado, pois ela permite que se extraiam 
segmentos curtos de uma cadeia gráfi- 
ca maior. 

Suponhamos que você precise usar 
retas horizontais de diferentes tama- 
nhos, na composição de uma tela grá- 
fica. Em vez de gerar várias cadeias 
gráficas, usando a técnica do laço 
FOR...NEXT explicada anteriormente, 
você poderá gerar uma única cadeia, 
com comprimento máximo (uma cadeia 
C$, com 32 caracteres, por exemplo). 

Depois, para colocar em um ponto 
qualquer da tela do micro uma cadeia 
gráfica de doze caracteres, bastará uti- 
lizar o PRINT AT combinado com 
CS(TO 12). A função TO, no caso, ser- 
ve para extrair os primeiros doze carac- 
teres da cadeia C$, simplificando mui- 
to o processo. 



















CARACTERES GRÁFICOS 
DENTRO DO PROGRAMA 
A FUNÇÃO CHR$ 
LINHAS LONGAS 
A FUNÇÃO TO 





CARACTERES INVERTIDOS 

Em alguns tipos de computador, o 
conjunto de caracteres gráficos — isto 
é, aqueles caracteres que podem ser ob- 
tidos pressionando-se <SHIFT> <9> 
— abrange também os chamados ca- 
racteres invertidos. 

Estes nada mais são do que uma re- 
presentação “ет negativo” da forma 
usual de exibição na tela. As duas for- 
mas — “normal” e “invertida” — apare- 
cerão diferentemente conforme a mar- 
ca do computador. 

Nos micros originais da Sinclair (o 
ZX-81 e seu equivalente norte-ameri- 
cano, o Timex), por exemplo, a repre- 
sentação normal de vídeo compõe-se 
de caracteres pretos sobre fundo cla- 
ro. O caractere invertido seria, portan- 
to, branco sobre fundo preto. Como o 
fundo normal de tela é branco, os ca- 
racteres invertidos aparecem como um 
retângulo preto, com o caractere im- 
presso em branco. Já a cor clara do 
fundo dos caracteres em vídeo normal 
fica igual ao fundo da tela. Esse tipo de 
representação de vídeo é característi- 
co dos modelos nacionais da Microdigi- 
tal (TK-82C, TK-83 e TK-85). 

Alguns outros computadores nacio- 
nais, entre eles o CP-200, da Prológi- 
ca, tém tela com fundo preto, normal- 
mente, e exibem caracteres claros. 
Aqui, o caractere invertido, obtido com 
« SHIFT » «9», é escuro sobre fundo 
claro. 

Existem, ainda, alguns modelos que 
permitem ao usuário mudar de vídeo 
preto para branco, conforme sua con- 
veniéncia, por meio de um interruptor 
colocado no console. 

Os caracteres invertidos tém diver- 
sas aplicacóes. Sáo utilizados, particu- 
larmente, para realgar determinados tí- 
tulos, rótulos ou mensagens numa te- 
la, Alguns deles — como ponto, dois 
pontos, asterisco, barra e a letra O — po- 
dem ser incorporados como elementos 
gráficos na composicáo de um desenho. 
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UM JOGO DE 
ESTRATÉGIA 








Entre no mundo dos grandes riscos 
— e grandes lucros. Você é dono de 
uma empresa de mineração. Terá 
astúcia e talento para tomar decisões 
e coragem para levá-las a cabo? 








Neste jogo de estratégia empresarial, 
o jogador desempenha o papel de dono 
de uma companhia de mineração. Seu 
dever é cuidar para que o empreendi- 
mento prospere ao máximo. Como du- 
rante o jogo muitas opções lhe são ofe- 
recidas, a sorte da empresa dependerá 
de sua capacidade de tomar decisões. 

Jogos de estratégia, assim como de 
aventuras, são geralmente escritos em 
BASIC, não havendo necessidade de se 
recorrer a rotinas em código. Como eles 
também não incluem longos textos e co- 
mentários, são compatíveis com micros 
de pouca quantidade de memória. Em- 
bora nosso jogo tenha sido enriquecido 
com rotinas gráficas que ilustram o pro- 
cesso de mineração — o que aumentou 
o espaço de memória utilizado —, o 
programa cabe nos micros de 16K. 

Apresentaremos o programa em duas 
partes, pois ele é bastante longo. Trata- 
remos aqui de sua parte central, mas al- 
gumas das rotinas essenciais para fazê- 
lo funcionar só serão abordadas no pró- 
ximo artigo. 

Depois de digitar esta primeira seção, 
grave o programa e aguarde a publica- 
ção da parte que o completa. Em alguns 
computadores, se o programa for exe- 
cutado neste estágio, a tela será preen- 
chida com diversas informações sobre o 
status do jogo, além de uma série de op- 
ções. Contudo, surgirá também uma 
mensagem de erro, uma vez que o pro- 
grama está incompleto. 


OS OBJETIVOS DO JOGO 


Quando o jogo comega, o jogador 
tem um saldo a seu favor — a compa- 
nhia de mineração e 2 milhões em di- 
nheiro. Sua tarefa é investir estes recur- 
sos inteligentemente, na busca do pre- 
cioso metal. O objetivo do jogo é reu- 
nir a maior quantia de dinheiro possí- 
vel em trinta rodadas. O jogo permite 
que uma pessoa jogue sozinha ou que 
duas joguem ao mesmo tempo. 

A cada lance, o jogador se vê diante 
de ias opções. Antes de começar as 
escavações, precisa encontrar um local 
promissor; para isso, deverá destinar 
certa quantia à contratação de um geó- 
logo que lhe forneça uma avaliação pro- 




















fissional. O jogador será, então, infor- 
mado sobre suas chances de encontrar 
ouro e da provável profundidade e di- 
mensões do veio. A responsabilidade de 
decidir se vale a pena explorar determi- 
nada mina é sua. 

Como o trabalho de escavação e ga- 
rimpagem envolve altas somas, poderá 
ser conveniente investir na pesquisa e de- 
senvolvimento de equipamentos que re- 
duzam os custos da operação. Ou tal- 
vez seja melhor começar logo as esca- 
ões — só o jogador pode decidir. Se 
gráficos coloridos ilustra- 
rão o progresso do trabalho. Caso não 
encontre ouro, precisará resolver se va- 
le a pena continuar a prospecção ou se 
é melhor abandonar a mina e partir pa- 
ra outra. 

No decorrer do jogo, dois outros fa- 
tores influem nos resultados. Uma vez 
encontrado o ouro, pode-se guardá-lo 
em cofre-forte ou vendê-lo no mercado. 
É razoável guardar o metal, se não hou- 
ver necessidade imediata de dinheiro; 
pode ser vantajoso esperar por uma boa 
cotação para vendê-lo — a cotação flu- 
tua durante o jogo. Contudo, armaze- 
nar ouro é arriscado, pois há ladrões por 
toda parte e, quanto maior a quantida- 
de, maior a tentação. 

A segunda parte do programa cuida- 
rá dos detalhes do funcionamento do jo- 
go. Agora, digite a primeira parte. 








s, 

















5 BORDER 6: PAPER 6: INK 0: 
сіз 

10 PRINT AT 9,2;"Quantos joga 
dores? (1 ou 2)": LET a$* 
INKEY$: IF a$-"" THEN GOTO 
10 


20 IF a$<"1” OR a$>"2" THEN 
GOTO 10 

30 LET p=VAL a$: LET nop"p 
40 DIM a(2,6): DIM c(2,5): 
DIM a$(p,8): DIM r(2): LET er 
=10000 

50 LET r(1)=0: LET r(2)=0: 
LET a(1,1)=2000000: LET a(1,2 
)=2000000: LET a(2,1)=2000000 
: LET a(2,2)-2000000: LET a(1 
.3)-0: ЕТ а(2,3)“0: 1ЕТ а(1, 
4) =100000: І.ЕТ а(2,4) 100000 
LET a(1,5)=0: LET a(2,5)= 
LET a(1,6)=0: LET a(2,6)=0: 























—— AO PROGRAMA 
— OFERTA DE OPÇÕES 
0 
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PRINT 

70 FOR n=1 TO p: INPUT "Nome 
do jogador ";(n);"?", LINE a$ 
(n): NEXT n 

200 FOR n=1 TO 30: FOR m=1 TO 


nop 

202 BORDER 7: PAPER 7: INK 0: 

CLS 

210 PRINT PAPER 6;n: PRINT 

PAPER 1; INK 6;AT 0,4;" MIN 

A DE OURO" 

220 PRINT 'TAB 16;a$(1);: IF n 

op-2 THEN PRINT TAB 24;a$(2); 

230 PRINT '"SALDO TOTAL $"; 

TAB 15;a(1,1);: IF nop=2 THEN 

PRINT TAB 24;a(2,1); 

240 PRINT '"DINHEIRO s": 

TAB 15;a(1,2);: IF nop-2 THEN 

PRINT TAB 24;a(2,2); 

250 PRINT '"OURO kQ";TAB 15;а( 

1,3);: IF nop=2 THEN PRINT 

TAB 24;a(2,3); 

260 PRINT '"CUSTO P/CAVARS"; 

TAB 15;a(1,4);: IF nop=2 THEN 

PRINT TAB 24;a(2,4); 

270 PRINT '"No. DE MINAS";TAB 

15;a(1,5);: IF nop=2 THEN 

PRINT TAB 24;a(2,5); 

280 PRINT '"PROFUNDID. m^;TAB 

15;a(1,6);: IF nop-2 THEN 

PRINT TAB 24;a(2,6); 

300 PRINT '' PAPER 4; INK 0;"C 

otacao dc оиго no mercado:": 

PRINT "$";er;" por kg de ouro" 

400 PRINT ' PAPER 5;">-";aS 

500 PRINT PAPER 2; INK 7;"1"; 
PRINT "-Pesquisa e desenvolv 

imento" 

510 PRINT PAPER 2; INK 7;"2"; 
PRINT "-Levantamento geologi 

co" 

520 PRINT PAPER 2; INK 

: PRINT "-Cavar mais 200 m 

530 PRINT PAPER 2; INK 
PRINT "-Vender ouro no 

do" 

540 PRINT PAPER 2; INK 7;" 
PRINT "-Passa a vez” 

550 PRINT : PRINT FLASH 1; 

PAPER 1; INK 6;"Faca sua opcao 


































600 LET i$-INKEYS: IF i$-"" 
THEN GOTO 600 

610 IF iS€"l" OR i$5"5" THEN 
сото 600 

620 GOSUB VAL 1$*1000 

700 IF a(m,2)<0 THEN GOTO 
7000 

710 LET er=er+INT (RND^1000)- 
200 

720 IF INT (RND*1600)-a (m,3)<0 
THEN GOSUB 900 

740 LET a(m,1)*a(m,2)*a(m,3)* 


er 
750 PAPER 7: INK 0: BORDER 7: 
CLS 

790 NEXT m 

800 NEXT n 

810 PAPER 5: BORDER 5: INK 0: 
CLS 

820 PRINT FLASH 1; INK 7; 
PAPER 2;AT 6,10;" FIM DO JOGO" 











830 PRINT 'p5;"Saldo total de 
";a$(1): PRINT TAB 11;"$";a(1l, 
1) 

840 IF nop=2 THEN PRINT 'TAB 
5;"Saldo total de ";a$(2): 
PRINT TAB 11;"$";a(2,1) 

850 PRINT '' PAPER 2; INK 6; 
FLASH 1;ТАВ l;"Qualquer tecla 
para recomecar" 

860 ІР INKEYS<>"" THEN GOTO 





860 
870 IF INKEYS="" THEN GOTO 
870 


7 
880 RUN 


900 PAPER 2: 
CLS 

905 LET jk-INT (RND*100)*50: 
IF jk>a(m,3) THEN LET jk=a(m, 
3) 

910 PRINT PAPER 6; INK 1; 
FLASH 1;AT 9,10;" ROUBO” 
920 PRINT : PRINT INK 7;” 
Foram roubados ";jk;"kg de": 


INK 6: BORDER 2: 





PRINT * seu ouro”: LET a( 
3)"a(m,3)-3k: LET a(m,1)-a(m, 
)- Gk*er) 

930 FOR x=1 TO 35: SOUND .05, 
40: SOUND .05,20: NEXT x 

940 BORDER 7: PAPER 7: INK 0: 


CLS : RETURN 


1 EEN 


20 DIM A(1,5),C(1,4) 

90 SCREEN 1:COLOR 1,10,4:KEY OF 
F 

100 VPOKE BASE (6) ,4*16+4 : VPOKE 
BASE (6)+1,6*16+6 

110 FOR 1=6 TO 7:VPOKE BASE (6)+ 
1,15*16+6:NEXT 

120 LOCATE 0,5:PRINT "Quantos 3 
ogadores (1 ou 2) ?; 

130 AS=INKEYS:IF AS<"1” OR AS>” 
2" THEN 130 

140 P=VAL (AS) :NO=P:ER=10000:A(0 
,0)=20000004:A(0,1)=A(0,0):A(1l, 
0)=A(0,0):A(1,1)=A(0,0):A(0,3)= 
100000!:A(1,3)=A(0,3) 

150 FOR N=1 TO P:PRINT:PRINT:PR 
INT"Nome do jogador";N;:LINE IN 
PUT AS(N-1):IF LEN(AS(N-1))>8 T 
HEN AS(N-1)=LEFTS (AS (N-1) ,8) 
160 NEXT 

200 FOR N=0 TO 29:FOR M=0 TO NO 
-1 

202 FOR I=0 TO 767:VPOKE BASE (5 
)+1,0:NEXT:LOCATE 0,0 

204 FOR 1=0 TO 31:VPOKE BASE (5) 
+1,8:VPOKE BASE (5)+736+1,8:NEXT 
206 FOR 1=0 TO 24:VPOKE BASE (5) 
*1*32,8:VPOKE BASE (5)+31+1*32,8 
¿NEXT 

210 LOCATE 9,0:PRINT "MINA DE O 
URO" 

220 LOCATE 12,2:PRINT A$(0);:IF 
NO-2 THEN LOCATE 21,2:PRINT A$ 
a) 

230 LOCATE 0,3:PRINT "SALDO TOT 
AL";TAB(11);A(0,0);:IF NO=2 THE 
N LOCATE 20,3:PRINT A(1,0) 

240 LOCATE 0,4:PRINT "DINHEIRO” 





¡TAB(11);A(0,1);:1F NO=2 THEN L 
OCATE 20,4:PRINT A(1,1) 

250 LOCATE 0,5:PRINT "OURO";TAB 
(11) iA (0,2 IF NO-2 THEN LOCAT 
E 20,5:PRINT A(1,2) 

260 LOCATE 0,6:PRINT "$ P/ CAVA 
R";TAB(11);A(0,3);:IF NO=2 THEN 
LOCATE 20,6:PRINT A(1,3) 

270 LOCATE 0,7:PRINT "NO DE MIN 

AS";TAB(11);A(0,4) ;: IF NO*2 THE 
N LOCATE 20,7:PRINT A(1,4) 

280 LOCATE 0,8:PRINT "PROFUNDI/ 
/"iTAB(11) iA (0,5) ; : IF NO*2 THEN 
LOCATE 20,8:PRINT A(1,5) 

300 LOCATE 1,10:PRINT "COTACAO 
DO OURO NO MERCADO":LOCATE 3,11 
:PRINT ER;"POR KG DE OURO" 

400 LOCATE 12,13:PRINT AS(M) 
500 PRINT:PRINT "1-Pesquisa e d 
esenvolvimento" 

510 PRINT "2-Levantamento geoló 
gico x 
520 PRINT 











"3-Cavar mais 200 m 


530 PRINT 
cado m 
540 PRINT "5-Passa a vez 


"4-Vender ouro no mer 


600 AS=INKEYS:IF AS<"1" OR AS>” 
5" THEN 600 

620 ON VAL(AS) GOSUB 1000,2000, 
3000,4000,5000 

700 IF A(M,1)«0 THEN 7000 

710 ER-ER*1000*INT (RND(1))-200 
720 IF RND(1600)-A(M,2)<0 GOSUB 
900 

740 A(M,0)-A(M,1)*A(M,2) *ER 

750 CLS 

790 NEXT M,N 

810 CLS 

820 LOCATE (5,5):PRINT "FIM DE 
Joco" 

830 LOCATE (0,7):PRINT "SALDO T 
OTAL DE";AS(0) ;TAB(23) ;A(0,0) 
840 IF NO=2 THEN PRINT "SALDO T 
OTAL DE";AS(1);TAB(23) ;A (1,0) 
850 PRINT:PRINT "QUALQUER TECLA 
PARA RECOMECAR” 

860 IF INKEYS="" THEN 860 ELSE 
RUN 

900 CLS 

905 JK*INT(RND(1)*100) *50:IF ЈК 
>A(M,2) THEN JK=A(M,2) 

910 PRINT TAB(9);"R O U B O" 
920 PRINT:PRINT " FORAM ROUB 
ADOS";JK;"KG":PRINT "DE SEU OUR 

0" :A(M,2) "A (M, 2) -JK: A (M, O) -A (M, 
0) -JK*ER 

930 PLAY"T25501CDEFBAGFED" 

940 FOR 1=1 TO 500:NEXT:CLS:RET 
URN 


é; iw 


20 DIM A(1,5),C(1,4),A5(1) 

120 HOME : PRINT "QUANTOS JOGA 
DORES (1 OU 2) ?"; 

130 СЕТ АҘ: IF А5 < "1" ОВ АЗ 

> "2" ТНЕМ 130 

140 P = VAL (AS):NO = P:ER = 1 
0000:A(0,0) = 2000000:A(0,1) = 

A(0,0):A(1,0) * A(0,0) :A(1,1) =. 


A(0,0):A(0,3) = 10000:A(1,3) = 





A(0,3) 

150 FOR N = 1 TO P: PRINT : PR 
INT : PRINT "NOME DO JOGADOR "; 
N;: INPUT AS(N - 1): IF LEN (A 


S(N - 1)) > 8 THEN AS(N - 1) = 
LEFTS (AS(N - 1),8) 


160 NEXT 

200 FOR N = 0 TO 29: FOR M = 0 
TONO - 1 

202 HOME 

210 INVERSE HTAB 12: PRINT " 
MINA DE OURO ": NORMAL 

220 PRINT PRINT TAB( 20);A$ 
(0);: IF NO = 2 THEN PRINT TA 


B( 30);AS(1); 

230 PRINT PRINT "SALDO TOTAL 
"; TAB( 20);A(0,0);: IF NO = 2 
THEN PRINT TAB( 30);A(1,0); 
240 PRINT : PRINT “DINHEIRO”; 
TAB( 20) ;A(0,1) ;: IF NO * 2 THE 
N PRINT TAB( 30) ;A(1,1); 

250 PRINT : PRINT "OURO KG"; 
TAB( 20) ;A(0,2);: IF NO = 2 TH 
EN PRINT TAB( 30);A(1,2); 

260 PRINT : PRINT "CUSTO P/ CA 
VAR $"; TAB( 20);A(0,3);: IF N 


O - 2 THEN PRINT TAB( 30);А(1 
24 
270 PRINT : PRINT "N.O DE MINA 


S"; TAB( 20) ;A(0,4) ;: IF NO = 2 
THEN PRINT TAB( 30);A(1,4); 





Como assegurar bons resultados na 
procura de ouro? 

Quando o programa estiver comple- 
to, você verá que ele segue as regras 
do comércio — atividade que, entre ou- 
tras coisas, inclui sorte, Por isso mes- 
mo, é difícil dar a receita do sucesso 
e da fortuna. Mas algumas dicas terão 
utilidade. 

Embora os custos de mineração 
possam ser reduzidos graças a pesqui- 
sa e desenvolvimento, não é aconse- 
lhável investir grandes somas neste 
item, já que você conta só com trinta 
rodadas para enriquecer. 

Faça escavações somente em minas 
com boa possibilidade de produzir ou- 
ro, a uma pequena profundidade. Não 
fique, porém, eternamente passando a 
vez, pois o jogo pode acabar antes que 
a mina ideal apareça. 

Se estocar ouro, você correrá o ris- 
co de ser roubado, mas compare as 
chances de que isso ocorra com a co- 
tação do ouro vigente no mercado — 
tente sempre vender o metal em perío- 
dos de alta. 











24 PROGRAMAÇÃO DEJOGOS 24 





280 PRINT : PRINT "PROFUNDIDAD 
E M"; TAB( 20);A(0,5);: IF NO 


- 2 THEN PRINT TAB( 30);A(1, 
5); 
300 PRINT : PRINT "COT 


PRINT 
”: PRINT ER;" POR 





ACAO DO OURO 
KG DE OURO" 


400 PRINT : PRINT ТАВ( 14);A$ 
(м) 
500 PRINT : PRINT "1- PESQUISA 


E DESENVOLVIMENTO" 


510 PRINT "2- LEVANTAMENTO GEO 
LOGICO” 

520 PRINT ”3- CAVAR MAIS 200 M 
530 PRINT "4- VENDER OURO NO M 
ERCADO" 

540 PRINT "5- PASSAR A VEZ" 
600 GET A$: IF A$ € "1" OR A$ 
> "5" ТНЕМ 600 

620 ON VAL (AS) GOSUB 1000,20 


00,3000,4000,5000 

700 IF A(M,1) < O THEN 7000 
710 ER = ER + INT ( RND (1) * 
1000) - 500 

720 IF INT ( RND (1) * 1600) 
- A(M,2) < 0 THEN GOSUB 900 





740 A(M,0) = A(M,1) + A(M,2) * 
ER 

750 HOME 

790 NEXT M,N 

810 HOME 

820 INVERSE HTAB 14: PRINT " 
FIM DE JOGO ": NORMAL 

830 wVTAB 5: PRINT "SALDO TOTAL 
DE ";A$(0) : "SA(0,0) 

840 IF NO - 2 THEN PRINT : PR 
INT "SALDO TOTAL DE ";A$(1);" 
";A(,0) 

850 PRINT PRINT : PRINT "QUA 


LQUER TECLA PARA RECOMECAR" 
860 GET A$: RUN 





900 HOME 

905 JK * INT ( RND (1) * 100) 
+ 49: IF JK > A(M,2) THEN JK = 
A(M,2) 

910 INVERSE HTAB 15: PRINT " 
R O U B O ^: NORMAL 

920 PRINT PRINT "FORAM ROUBA 
DOS ";JK;" KG DE SEU OURO":A(M, 
2) * A(M,2) - JK:A(M,0) = A(M,0 
) - JK * ER 

930 FOR I = 1 ТО 2000: NEXT 
940 HOME : RETURN 


10 PMODE 3,1:CLS 

20 DIM H(23),T(0),D(1),B(1),A(1 
15) ,C(1,4) , AS (0) , R1) 

40 FOR K=0 TO 9:READ NUS (K) :NEX 
T 

50 DATA NR2D4R2U4BR2,BFEND4BR2, 
R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R2 
U4BR2, D2R2D2U4BR2 , NR2D2R2D2L2BE 
4,D4R2U2L2BE2BR2 , R2ND4BR2 , NR2D4 
R2UZ2NL2U2BR2 , NR2D2R2D2U4BR2 

60 PCLS 3 

70 DRAW"BM36,23C2L35U6E3R3NU4R5 
U10E2RE3R3F4D3F4DF2DF2DF 3D2" : PA 
INT(18,16),2 





B0 DRAW"BM24,9C3G2D6F5R3E2UH2UH 
UH2UH2BM20 , INLDL2GR5D5BM14, 6RBR 
3RBD4DBL4UBD3LBRARBD2LBL 3LBD2RB 
R3RBD2LBL3LBD2RBR3RBD2LBL 3L" : PA 
INT(26,15),3 

90 DRAW"BM2,21C4UBR4ND3BR4D" :G| 

T(0,0)-(37,23),H,G 

100 PCLS:DRAW"BM7,0C4L6BD2ERFRE 
RBD2L7DR7DL5GNR3DNR3FNRADNRAGNR 
3DNR3FNR4DR2GL 3FNR6FR3FLA4GNRDR5 
р.з” 

110 GET(0,0)-(7,2),T,G:GET(0,3) 
7(7,10) ,D,G:GET(0,11) - (7,20), B, 


G 

120 PRINT 6129,"QUANTOS JOGADOR 
Е8 (1 ОМ 2) ?”; 

130 AS=INKEYS:IF AS<"1” OR AS>" 
2" THEN 130 

140 P=VAL (AS) :NO=P:ER=10000:A(0 
,0)=2000000:A(0,1)=2000000:A(1, 
0) -200000 (1,1)=2000000:A(0,3 
)=100000:A(1,3)=100000 

150 FOR N=1 TO P:PRINT:PRINT:PR 
INT" NOME DO JOGADOR” ;N INEIN 
PUT AS(N-1):IF LEN(AS(N-1))>8 T 








HEN AS(N-1) =LEFTS (AS(N-1),8) 
160 NEXT 

200 FOR N=0 TO 29:FOR M=0 TO NO 
-1 

202 СІ.8 

210 PRINT 63,"mina de ouro"; 
220 PRINT TAB(15);A$(0) F NO- 





2 THEN PRINT TAB(24) ;A$ (1) 
230 PRINT 032,"SALDO TOTAL";TAB 
(14) ;A (0,0) :IF NO-2 THEN PRINT 
655,А(1,0) 

240 PRINT &64,"DINHEIRO";TAB(14 
);A(0,1):1F NO=2 THEN PRINT 687 
.А(1,1) 

250 PRINT €96,”OURO kq”;TAB(14) 
¡A(0,2): IF NO=2 THEN PRINT €119 
.А(1,2) 

260 PRINT 6128,"5 P/ CAVAR";TAB 
(14) ;A(0,3) :IF NO=2 THEN PRINT 
6151,A(1,3) 

270 PRINT 6160,"NO. DE MINAS";T 
AB(14);A(0,4) :IF NO=2 THEN PRIN 
Т @183,А(1,4) 

280 PRINT 6192,"PROFUNDI// 
AB(14);A(0,5) :IF NO*2 THEN 
Т 6215,А(1,5) 

300 PRINT @224, "СОТАСАО DO 


m";T 
PRIN 


OURO 


NO MERCADO”: PRINT ER;"POR KG D 
E OURO * 

400 PRINT €330,A3(M) 

500 PRINT ^1- PESQUISA E DESENV 
OLVIMENTO 

510 PRINT *2- LEVANTAMNTO GEOLO 
G1co" 

520 PRINT "3- CAVAR MAIS 200 M" 
530 PRINT "4- VENDER OURO NO ME 
RCADO" 

540 PRINT "5- PASSA A VEZ"; 


600 AS=INKEYS: IF AS<"1” OR AS>” 
5" THEN 600 

620 ON VAL(AS) GOSUB 1000,2000, 
3000,4000,5000 

700 IF A(M,1)<0 THEN 7000 

710 ER=ER+RND (1000) -200 

720 IF RND(1600)-A(M,2)<0 GOSUB 
900 

740 A(M,0)=A(M,1)+A(M, 2) *ER 








750 CLS 

790 NEXT M,N 

810 CL8 

820 PRINT 6138,"FIM DE JOGO" 
830 PRINT €197,"SALDO TOTAL DE” 


¡AS(0) :PRINT TAB(11);A(0,0) 
840 IF NO=2 THEN PRINT TAB(5);” 
SALDO TOTAL DE";AS(1):PRINT ТАВ 
(11) iA (1,0) 

B50 PRINT 6449,"QUALQUER TECLA 
PARA RECOMECAR” 

860 IF INKEYS-"" THEN 860 ELSE 
RUN 

900 CLS 

905 JK=RND(100)+49:1F JK>A(M,2) 
THEN JK=A(M, 2) 

910 PRINT 610,"R 
920 PRINT:PRINT" 
ADOS";JK;"KG DE":PRINT* 


O U BO” 
FORAM ROUB 
SEU. 











— 


OURO (M,2)=A(M,2) 
A(M,0)-JK*ER 

930 PLAY"T401CDEFBAGFED” 
940 CL8:RETURN 


K:A(M,0)= 


Todos esses programas funcionam de 


maneira similar, seguindo a mesma es- 
trutura básica e a mesma numeração. 
Do início até a linha 200, contudo, há 
algumas variações. 


Para começar, a linha 10 pergunta 
qual o número de jogadores, e a linha 
20 verifica se a resposta se encontra no 


intervalo adequado. A linha 30 acerta 
os valores de p e nop de acordo com o 
número escolhid 

Algumas matrizes sáo dimensionadas 
na linha 40, juntamente com a cotação 
do ouro no mercado — er, A matriz a 
armazena informações sobre o saldo dos 
jogadores; a matriz e, informações so- 
bre as minas; a matriz a$ contém os no- 
mes dos jogadores e a r é usada para in- 
dicar o começo das escavações na mina 
em questão. A linha 50 estabelece os sal- 
dos e as condições iniciais das minas dos 
dois jogadores. O valor zero é coloca- 
do em r(1) e r(2), indicando que as es- 
cavações não começaram na primeira 
mina. Outros valores são dados a seguir: 


a(1,1) e a(2,1) contêm o saldo de cada 
jogador; a(1,2) e a(2,2), o total em di- 
nheiro que cada jogador possui; a(1,3) 
e a(2,3) indicam a quantidade de ouro 
de cada um; a(1,4) e a(2,4), os custos de 
mineração; a(1,5) e a(2,5) revelam o nú- 
mero de minas de cada um e a(1,6) e 
a(2,6), a profundidade das minas. 

A linha 70 permite a entrada do no- 
me dos jogadores. 


n 


A linha 20 dimensiona as matrizes. A 
linha 90 seleciona a tela de textos de 32 











colunas com fundo amarelo, caracteres 
pretos e bordas azuis. As teclas de fun- 
ção são desligadas. 

A tela de 32 colunas foi escolhida 
porque permite o uso de cores e de blo- 
cos gráficos, tornando o programa mais 
interessante. 

A linha 100 faz com que os oito pri- 
meiros caracteres — códigos 0 a 7 — se 
tornem blocos azuis (veja artigo da pá- 
gina 261). A mesma linha ainda faz com 
que os oito caracteres seguintes — có- 
digos 8 a 15 — se tornem blocos de cor 
vermelha. 

A linha 110 determina que os carac- 
teres numéricos sejam escritos em bran- 
co sobre fundo vermelho. 

Depois desses preparativos iniciais, a 
linha 120 pergunta qual o número de jo- 
gadores. A linha 130 verifica se a res- 
posta obtida é válida — um ou dois jo- 
gadores. 

Em seguida, a linha 140 acerta o va- 
lor das variáveis P, NO — as duas iguais 
ao número de jogadores — e ER — co- 
tacào do ouro. Além disso, ela estabe- 
lece os valores iniciais de vários elemen- 
tos da matriz A: A(0,0) e A(0,1), saldo 
total dos jogadores; A(0,1) e A(1,1), 
quantia em dinheiro que cada um pos- 
sui; A(0,2) e A(1,2), quantidade de ou- 
ro; A(0,3) e A(1,3), custo da mineração. 

As linhas 150 e 160 perguntam o no- 
me dos jogadores. 

O jogo do MSX, como já dissemos, 
utiliza a tela de textos de 32 colunas, 
com cor de fundo amarelo e caracteres 
pretos. Os caracteres numéricos apare- 
cem em branco sobre vermelho, enquan- 
to a tela é mantida com fundo azul. Tu- 
do isso é obtido por meio do comando 
VPOKE, que já usamos outras vezes 
(veja artigo da página 261). 


(411%) 


Na versáo para Apple e o TK-2000, 
nosso jogo comega dimensionando al- 
gumas variáveis na linha 20. 

Em seguida, a linha 120 pergunta 
quantas pessoas váo participar e a linha 
130 verifica a validade da resposta. A li- 
nha 140 guarda o número de jogadores 
nas variáveis P e NO, que serviráo de 
contadores e sinalizadores em vários 
pontos do programa, permitindo que os 
dados de cada jogador sejam colocados 
no local correto. Essa linha ainda acerta 
o valor da cotação do ouro — ER —, 
bem como de vários elementos da matriz 
A: A(0,0) e A(1,0), saldo total dos joga- 
dores; A(0,1) e A(1,1), total em dinheiro 
que cada um possui; o par seguinte cor- 
responde à quantidade de ouro e o últi- 


mo, ao custo da escavação nas minas. 
As linhas 150 e 160 perguntam o no- 
me dos jogadores. 


A linha 10 seleciona o modo PMO- 
DE3catela é limpa. A linha 20 dimen- 
siona várias matrizes. 


Como parte do jogo acontece na te- 


la gráfica, em certos momentos é preci- 
so usar DRAW para escrever texto. As 
linhas 40 a 110 contêm a rotina para es- 
crever na tela de alta resolução, publi- 
cada em INPUT anteriormente (veja ar- 
tigo da página 232). 

As linhas 120 e 130 perguntam o nú- 
mero de jogadores e verificam se a res- 
posta é válida. A linha 140 acerta os va- 
lores de P e NO de acordo com o nú- 
mero escolhido. Em seguida, alguns dos 
elementos da matriz A têm seus valores 
iniciais estabelecidos, a saber: A(0,0) e 
A(1,0) contêm o saldo total de cada jo- 
gador; o próximo par de elementos con- 
tém os saldos em dinheiro; o seguinte, 
a quantidade de ouro que cada um pos- 
sui e o último corresponde ao custo da 
mineração. 

As linhas 150 e 160 pedem os nomes 
dos jogadores. 


Sad) 


Daí em diante os programas sáo bem 
parecidos. Todos eles têm dois laços 
FOR...NEXT que começam na linha 
200 e terminam nas linhas 790 e 800. Es- 
ses laços são responsáveis pela exibição 
do menu e da situação das companhias 
de mineração na tela. 

A variável N (n, no caso do Spec- 
trum) conta o número de rodadas já jo- 
gadas. A variável NO (nop, no Spec- 
trum) garante a oferta de trinta rodadas 
a cada jogador. Observe que, mais 
adiante na listagem, esta mesma variá- 
vel fará com que a situação das compa- 
nhias de mineração seja exibida. 

A linha 202 escolhe as cores da tela 
no Spectrum. Nos demais, ela apenas 
limpa a tela — note que no MSX isto 
é feito por uma sub-rotina que enche a 
tela com o caractere de código 0, cuja 
cor azul foi definida pela linha 110. A 
linha 210 imprime o título: MINA DE 
OURO. A linha 220 imprime o nome 
dos jogadores. O segundo nome só é im- 
presso se a opção para dois jogadores 
foi escolhida no início. 

As linhas 230 a 300 mostram os va- 
lores: SALDO TOTAL, saldo em DI- 
NHEIRO, saldo em OURO, custo para 


————  —— 


CAVAR, N? DEMINAS, PROFUNDI- 
DADE da mina e COTACAO DO OU- 
RO NO MERCADO. Se duas pessoas 
estiverem jogando, os dois valores seráo 
impressos no local correspondente. O 
programa faz isso.com base nos valores 
das variáveis nop ou NO. 

A linha 400 mostra o nome da pes- 
soa que está jogando no momento. As 
linhas 500 a 540 oferecem as opções de 
Pesquisa e Desenvolvimento, Levanta- 
mento Geológico, Cavar mais 200 me- 
tros, Vender ouro no mercado ou Pas- 
sar a vez. No Spectrum, a linha 550 so- 
licita ao jogador que faça sua opção. 
Nos demais micros não há esta linha. 

As linhas 600 a 620 usam INKEYS ou 
GET para obter a resposta do jogador. 
Além disso, verificam a validade da res- 
posta e chamam a sub-rotina correspon- 
dente à escolha feita. 

A linha 700 verifica se o saldo total 
caiu abaixo de zero, terminando o pro- 
grama, se for o caso, por meio de uma 
sub-rotina de finalização. A linha 710 
faz com que a cotação do ouro flutue 
ao acaso; assim, o jogador deverá ter o 
cuidado de vender o metal nas épocas 
de “alta”. 

A linha 720 compara um número 
aleatório com a quantidade de ouro do 
jogador, para decidir se haverá um rou- 
bo — observe que as chances de roubo 
aumentam com a quantidade de ouro 
armazenada. A rotina que cuida do rou- 
bo fica nas linhas 900 a 940. A linha 905 
decide quanto ouro vai ser roubado, e 
a linha 920 informa que esta quantida- 
de foi roubada. 

A linha 740 calcula o saldo total, adi- 
cionando o saldo em dinheiro ao valor 
do ouro armazenado, calculado com ba- 
se na cotação atual. 

A linha 350 restabelece as cores da te- 
la e a limpa, antes que o NEXT envie 
o programa de volta para a linha 200, 
para mais uma rodada. 

As linhas 810 a 840 contêm a rotina 
de finalização do jogo, usada quando o 
saldo de um dos jogadores cai abaixo de 
zero. Ela mostra na tela as condições fi- 
nais das companhias de mineração e in- 
forma: FIM DE JOGO. 

Finalmente, as linhas 850 a 880 per- 
mitem uma nova partida. 

Na próxima seção, adicionaremos vá- 
rias sub-rotinas que farão com que o jo- 
go funcione. Haverá rotinas para redu- 
zir os custos de mineração por meio de 
pesquisa e desenvolvimento, para fazer 
o levantamento geológico, escavar o so- 
lo e vender o ouro no mercado. Além 
disso, traremos os dados necessários pa- 
ra a elaboração dos gráficos que ilus- 
tram as minas e mostram o progresso 
das escavações. 





SPRITES PARA O 


TRS-80 (3) 


Usando gráficos de baixa resolucáo, 
podemos criar figuras semelhantes a 
sprites. Vocé aprenderá a armazená-las 
em uma única variável, mesmo que 
ocupem várias linhas na tela. 


A forma mais avançada de produção 
de figuras animadas em BASIC, nos mi- 


cros da linha TRS-80, consiste na con- , 


catenagáo de vários caracteres gráficos 
e seu armazenamento em uma única va- 
riável alfanumérica. 

Esse método funciona muito bem, 
mesmo quando a figura ocupa mais de 
uma linha na tela. Mas, para que pos- 
samos continuar tratando a figura co- 
mo uma entidade única (por exemplo, 
para empregar a variável que a armaze- 
na dentro de um PRINT Q), precisare- 
mos incluir na sua definigáo caracteres 
de controle do cursor. 

Já mencionamos, brevemente, que 
certos caracteres situados na faixa do 
código ASCII que vai de 0 a 31 servem 
para o controle de funcóes do vídeo, 
quando são utilizados com um PRINT 
CHARS. Por exemplo, PRINT CHR$(23) 
dobra a largura dos caracteres na tela 
(32 colunas). 

Quatro desses caracteres nos interes- 
sam na geração de figuras com a técni- 
ca que aqui examinaremos. São os ca- 
racteres de controle do cursor: 

24 recua o cursor uma posição na 

horizontal 

25 avança o cursor uma posição 

na horizontal 

26 desce o cursor uma posição 

27 sobe o cursor uma posição 

Suponhamos que você queira dese- 
nhar na tela um pequeno disco voador, 
formado por duas linhas. Os códigos da 
linha de cima serão: 

100 DATA 174,187,187,187,187, 
187,132 








e os da linha de baixo: 


110 DATA 
143 


128,143,143,143,143, 


Para concatenar os códigos em uma 
única figura, proceda assim: quando o 
cursor terminar de traçar o último ca- 


ractere da linha de cima (o 132), faça-o 
descer uma linha e recuar sete posições 
(número de bytes da linha de cima do 
gráfico). Coloque, então: 


105 DATA 26,24,24,24,24,24,24, 
24 


Depois, acione as linhas anteriores ao 
programa que damos a seguir e execute- 
o para ver o resultado. 


10 D3="" 

20 FOR I=1 TO 21:READ N 
30 D$=DS+CHR9(N) :NEXT 1 
40 CLS:PRINT 6 288,D$; 


A figura aparecerá instantaneamen- 
te na tela, com um ünico PRINT! 


COMPACTANDO A DEFINIÇÃO 


Como a definição da figura inclui 
muitos códigos idênticos, é possível dar- 
lhe uma forma mais compacta, recor- 
rendo à função STRINGS e evitando o 
laço FOR...NEXT e as linhas DATA. 
Digite NEW e entre este programa: 


10 D$ e CHR$ (174) *8TRINGS 
(5,187) *CHR$ (132) *CHR$ (26) * 
STRINGS (7,24) *CHR$ (128) * 
STRINGS (5,143) 

20 CLS:PRINT 8256,D$; 


FIGURAS MAIS COMPLEXAS 


O método de concatenação de códi- 
gos gráficos em uma variável alfanumé- 
rica tem, evidentemente, suas limita- 
ções. Se a figura ocupar várias linhas, 
por exemplo, haverá uma excessiva uti- 
lização da memória, já que precisamos 
de um conjunto de caracteres de contro- 
le entre cada linha. 

A limitação mais séria, entretanto, 
está na impossibilidade de se criar uma 
figura com um número de bytes supe- 
rior a 255, pois este é o comprimento 
máximo de uma cadeia de caracteres no 
BASIC do TRS-80. A melhor alternati- 
va será, então, repartir a figura em vá- 
rios blocos e usar mais de um PRINTO 
para colocá-la inteira na tela. Ao con- 
trário do que parece, tal procedimento 
não reduz a velocidade de animação grá- 
fica e os resultados, em geral, são seme- 


= OS CARACTERES DE 
CONTROLE DO CURSOR 

т FIGURAS MAIS COMPLEXAS 
= ANIMAÇÃO DE FIGURAS 
COMPLEXAS 


Ihantes aos obtidos com a técnica de mo- 
vimentacáo do cursor. 

Outra técnica muito útil quando se 
tem figuras grandes e complexas é a cha- 
mada tríade de posição, comprimento, 
caractere. Suponhamos que você quei- 
ra desenhar um trenzinho, fazendo o 
pistão da roda se movimentar e nuvens 
de fumaça escaparem da chaminé. O 
mais adequado será desenhar primeiro 
a locomotiva completa, usando a técni- 
ca da tríade e, depois, animar as partes 
que interessam, substituindo sucessiva- 
mente duas figuras (por exemplo, o bra- 
ço do pistão em duas posições). 

A tríade consiste em uma seqüéncia 
de três números, expressa em uma linha 
DATA de definição da figura. O primei- 
ro número determina a posição O on- 
de começa a cadeia de caracteres; o se- 
gundo define a quantidade de caracte- 
res existentes na cadeia; o terceiro indi- 
ca o código gráfico dos elementos iguais 
da cadeia: 


100 FOR I=1 TO 32:READ N1,N2,N3 
110 PRINT € N1, STRINGS (NZ,N3) 1 
120 NEXT I 


MES 


Agora que vocé já sabe como criar fi- 
guras de características semelhantes ás 
dos sprites para os microcomputadores 
da linha TRS-80, será fácil fazer anima- 
ção gráfica com eles. E claro que essas 
figuras não possuem uma propriedade 
fundamental dos sprites autênticos (co- 
mo os da linha MSX): a priorização de 
imagens. Explicando melhor, cada spri- 
te recebe um número, que indica ao 
computador se ele vai obstruir ou ser 
obstruído por outro sprite que ocupar 
o mesmo lugar na tela. 

De qualquer maneira, é possível elabo- 
rar programas de animação gráfica re- 
lativamente sofisticados para o TRS-80. 
Um fator importante na animação é o 
tempo que leva o computador para tra- 
çar um bloco gráfico, definido confor- 
me as técnicas apresentadas nesta série. 
Se a execução do desenho for muito de- 
morada — como no caso de blocos grá- 
ficos grandes ou formados por vários 
PRINT Q separados —, a animação 
gráfica não sairá perfeita. 














SIMULACAO: FACA 
A BOLA ROLAR 


A matemática fornece vários modelos 
para o mundo real. Utilizando-os 

em seus programas, vocé pode produzir 
efeitos muito interessantes. Aqui, 
simulamos a trajetória de uma bola. 





Na tentatjva de construir um mode- 
lo para o mundo que nos cerca, a mate- 
mática aplicada e outros ramos da cién- 
cia fazem uso de um grande nümero de 
equacóes. Estas resultam do exame de 
dados gerados por observações e expe- 
rimentos. A partir desse exame, calcula- 
se uma equação que explica a relação en- 
contrada de maneira que satisfaça os da- 
dos obtidos. 

Tais equações relacionam-se à mais 
variada gama de fenômenos físicos e 
biológicos — desde o crescimento de 
uma planta até a trajetória de um come- 
ta no espaço. Esse tipo de informação 
tem diversos usos, sobretudo porque as 
equações possibilitam prever como as 
coisas se comportarão em determinadas 
circunstâncias. 

O significado das equações mais 
complicadas pode não ser claro à pri- 
meira vista. Algumas delas só são com- 
preensíveis para os que estão envol- 
vidos num campo específico de pes- 
quisa. Muitas, porém, descrevem 
fenômenos que fazem parte da 
experiência de qualquer pessoa. 
Já vimos um exemplo no pro- 
grama que usa uma fórmula 
para estudar o comporta- 
mento de um objeto em queda 
(veja artigo da página 434). 

Mas, sejam as equações 
complicadas ou náo, o re- 
sultado dos cálculos consis- 
te simplesmente num nú- 
mero — para o tempo ou 
qualquer outra coisa —, 
que é mais um modelo pa- 
ra o mundo real. Além da — | 
utilidade já mencionada, es- 
sas equacóes tém outro em- 
prego: elas podem ser progra- 
madas no seu micro para pro- 
duzir uma interessante simula- 
ção da realidade. Nesse caso, a 
equação é utilizada para controlar 
a apresentação de tela. Assim, no 
exemplo anterior, poderíamos criar uma 
imagem para mostrar como se compor- 
ta um objeto em queda livre. 

É possível empregar qualquer equa- 
ção de movimento para imitar na tela a 
movimentação real de um objeto. Essa 
idéia está na base de muitos programas 
e de curiosas animações. 


A melhor maneira de compreender 
como isso funciona é trabalhar com um 
exemplo prático — ou seja, tomar uma 
série de equações que podem ser encon- 
tradas em qualquer livro de física e 
transformá-las em belas simulações na 
tela. Como exemplo, vamos começar 
com algo fácil de simular: a trajetória 
de uma bola numa mesa de bilhar. 


Se você bater numa bola com um ta- 
co (ou lhe der um chute), ela se moverá 














em linha reta até encontrar algum obs- 
táculo. Se houver outra força agindo so- 
bre ela — ventos laterais ou gravidade, 
digamos —, a trajetória e a velocidade 
serão modificadas. Em uma boa mesa 
de bilhar, pode-se desconsiderar a ação 
de ventos, restando apenas uma força 
com que se preocupar: o efeito da fric- 
ção ou atrito com a mesa, que reduzirá 
gradualmente a velocidade da bola. 
Mas, quanto? Aí entra a primeira de 
nossas equações. 

Grosso modo, quanto maior a for- 
ça que atingir a bola no momento da ta- 
cada, mais longe ela irá. Existe uma 














equação que calcula a distância a ser 
percorrida por um objeto, dada a força 
inicial e alguns outros elementos, como 
o efeito do atrito. Essa equação tem va- 
riadas aplicações em programação. Pa- 
ra vê-la funcionando, digite e execute es- 
te programa: 


10 CLS 

20 PRINT ^1) Bola de futebol 
/ grama longa” 

30 PRINT '"2) Bola de golfe / 


АС. 








к 








grama curta” 
40 PRINT '"3) Bola de golfe n 
a Lua” 
50 PRINT 
bilhar” 
60 INPUT "Faca a sua opcao”,o 


'"4) Bola em mesa de 


pt 

70 IF opt<l OR opt>4 THEN 
GOTO 60 

80 IF opt=1 THEN 
90 IF opt=2 THEN 
95 IF opt=3 THEN 
100 IF opt=4 THEN 
110 CLS 

115 PRINT "A velocidade pode в 
er de 1 a 15 metros por segund 
o” 


LET fg-4 

ГЕТ #9=1.4 
LET fg*.1 
LET fo=.7 














































































O MODELO DA BOLA 

COMO FAZER A BOLA ROLAR 
UMA MIRA MÓVEL 

COMO A EQUAÇÃO FUNCIONA 
TACADAS MAIS FORTES 

















CÁLCULO DAS COORDENADAS 
RAÍZES QUADRADAS 
COMO DESACELERAR 

COMO CALCULAR 

А VELOCIDADE DA BOLA 


120 INPUT "Qual a velocidade і 
nicial (m/s)”,v 

125 IF v<l OR v>15 THEN GOTO 
120 

160 LET dist=(v*v)/(2*fg) 

170 CLS 

210 PRINT AT 2,4;"Sua bola alc 
ancaria" 

220 PRINT AT 7,8;dist;"metros" 
250 PRINT AT 18,1; FLASH 1;"Qu 
alquer tecla para continuar" 
260 PAUSE 0 

270 GOTO 10 





10 CLS 

20 PRINT 696," 

L / GRAMA LONGA' 
30 PRINT 6160," 2)BOLA DE FUTEB 
OL / GRAMA CURTA" 

40 PRINT 60224," 3)BOLA DE GOLFE 
NA LUA” 

50 PRINT 6288," 4)BOLA EM MESA 

DE BILHAR" 

60 PRINT:PRINT" QUAL SUA OPCAO 


1)BOLA DE FUTEBO 


? 

70 K$-INKEYS:IF K$€"1" OR K$5"4 
* THEN 70 

80 OP=VAL (K$) 

90 IF OP=1 THEN FG=4 

100 IF OP=2 THEN FG=1.4 

110 IF OP-3 THEN FG-.1 

120 IF OP=4 THEN FG=.7 

130 СІЗ 

140 PRINT” A VELOCIDADE PODE SE 
R DE 1 A 15 METROS POR SEGUNDO” 
150 PRINT: INPUT” QUAL A VELOCID 
ADE INICIAL QUE VOCE DESEJA D 
AR (M/8)";VE 

160 IF VEX1 OR VE»15 THEN 130 
170 DI-(VE*VE) / (2*FG) 

180 CLS 

190 PRINT"SUA BOLA ALCANCARIA", 
DI;"METROS" 

200 PRINT 6449,"QUALQUER TECLA 
PARA RECOMECAR" 

210 IF INKEYS-"" THEN 210 

220 GOTO 10 


Para rodar o programa no TRS-80, 
modifique os números utilizados nas 
instruções PRINTO para o dobro dos 
que estão na listagem. 








10 CLS:COLOR 15,4,4: 
20 LOCATE 5,5:PRINT"1) Bola de 
futebol em grama longa" 














TA O O 























golfe em grama curta” 


golfe na lua” 


2 I Bm | 
ШШ GÀ 
30 LOCATE 5,7:PRINT"2) Bola de 130 CLS 
140 PRINT:PRINT* A velocidade 
40 LOCATE 5,9:PRINT"3) Bola de em metros por segundo pode ser 
de 1 a 15." 10 HOME 
150 PRINT:INPUT" Qual velocida 20 BTAB 5: VTAB 5: PRINT "1) B 


50 LOCATE 5,11:PRINT^4) Bola em 
mesa de bilhar" 

60 LOCATE 7,18:PRINT"Escolha su 
a opcào:"; 

70 KS=INKEYS:IF K$<"1" 
" THEN 70 

80 OP=VAL (K$) 

90 IF OP=1 THEN FG=4 
100 IF OP=2 THEN FG=1.4 
110 IF OP=3 THEN FG=.1 
120 IF OP-4 THEN FG-.7 


OR KS>”4 











de inicial (em m/s)";VE 

160 IF VE<1 OR VE>15 THEN 130 
170 DI=(VE*VE)/ (2*FG) 

180 CLS 

190 PRINT:PRINT" Sua bola perc 
orreu ”;DI;"metros” 

200 LOCATE 0,12:PRINT^Pressione 
qualquer tecla para recomecar” 
210 IF INKEYS="" THEN 210 

220 GOTO 10 





OLA DE FUTEBOL EM GRAMA LONGA” 
30 НТАВ 5: UTAB 7: PRINT "2) B 
OLA DE GOLFE EM GRAMA CURTA” 


40 HTAB 5: UTAB 9: PRINT "3) B 
OLA DE GOLFE NA LUA” 
50 НТАВ 5: ЧТАВ 11: PRINT "4) 


BOLA EM MESA DE BILHAR" 
60 НТАВ 8: VT?3 15: PRINT “ESC 
OLHA SUA OPCAO "; 


70 GET K$: IF K$ € "1" OR K$ 5 





MA AAA 














74" THEN 70 
80 ОР = VAL (K3) 
90 ТЕ ОР = 1 THEN FG - 4 


100 IF OP = 2 THEN FG = 1.4 
110 IF OP = 3 THEN FG = .1 

120 IF OP = 4 THEN FG = .7 

130 HOME 

140 PRINT PRINT " A VELOCID 
ADE EM METROS POR SEGUNDO PO-DE 


SER ОЕ 1 А 15." 
150 PRINT : INPUT " QUAL A VE 
LOCIDADE INICIAL (EM M/S) ";VE 


160 IF ЧЕ < 1 OR VE > 15 THEN 
130 

170 DI = (VE * VE) / (2 * FG) 
180 HOME 

190 PRINT : PRINT " SUA BOLA 


PERCORREU ";DI;” METROS” 
200 УТАВ 12: PRINT "PRESSIONE 
QUALQUER TECLA PARA RECOMECAR” ; 


210 GET K$ 
220 GOTO 10 


O programa começa perguntando a 
respeito das condições em que se encon- 
tra nossa bola hipotética. Em seguida, 
calcula a distância que ela percorreria, 
para qualquer velocidade inicial que vo- 
cê escolher. Vários fatores — como atri- 
to, massa e gravidade — são levados em 
conta. 

A equação usada é a seguinte: 





2 
Distância = TE 

O v corresponde à velocidade inicial 
e fg ao valor que engloba a gravidade 
e o atrito. Obviamente, o valor de fg é 
diferente para cada uma das opções do 
programa. 


OS RESULTADOS 


A equagáo é solucionada na linha 160 
do programa do Spectrum ou 170 do 
dos outros micros. Vocé pode ver que, 
embora na equação haja uma potencia- 
ção, não há sinal dessa operação (1) na 
linha referida. Ocorre que os computa- 
dores calculam mais rapidamente somas 
e multiplicações do que potências. As- 
sim, quando o número está elevado ao 
quadrado (nosso caso), é melhor 
multiplicá-lo por ele mesmo (v*v) do 
que elevá-lo à segunda potência (v 1 2). 

A opção 3 — bola de golfe na Lua 
— fornece resultados muito maiores que 
as demais porque o seu valor para fg é 
bem menor que o das outras opções, 
uma vez que a gravidade na Lua corres- 
ponde a somente um sexto da gravida- 
de na Terra. 

A última opção — a da bola na me- 
sa de bilhar, com a qual trabalharemos 
a seguir — também oferece resultados 


altos, porque o atrito é muito pequeno 
em relação ao da grama. 

Os valores do programa para o atri- 
to e a gravidade são apenas aproxima- 
dos, não exatos. Porém, dão uma idéia 
razoável de como uma equação desse ti- 
po pode ser usada dentro de um progra- 
ma para prever a distância percorrida 
por um objeto sob diversas circunstân- 
cias. Mas ainda não pudemos visualizar 
o objeto em movimento, 


A BOLA EM ACAO 


A equação apresentada calcula a dis- 
tância percorrida por um objeto, mas 
assume que não há nada no caminho de- 
le. A opção da bola de bilhar, no pro- 
grama dado, fornece um bom exemplo: 
o resultado pode ser uma distância de 
10 metros. Mas mesas de bilhar não têm 
esse tamanho: a bola rebateria nas bor- 
das da mesa. 

Ao contrário do comportamento im- 
previsível de uma bola de futebol sobre 
a grama, uma bola de bilhar reage de 
maneira muito regular quando bate con- 
tra a borda da mesa (a não ser que te- 
nha tomado um efeito giratório). Ela re- 
bate espalhando o ângulo de incidência 
(o ângulo com que a bola atinge a bor- 
da). Observando a figura da página 673, 
você entenderá melhor o que ocorre. A 
bola saiu do ponto a e moveu-se pela re- 
ta tracejada até parar no ponto b. Co- 
mo você pode ver, os ângulos formados 
pela linha da trajetória da bola e uma 
reta perpendicular à borda da mesa são 
simétricos. 

Mais uma vez, a matemática aplica- 
da fornece uma equação para demons- 
trar este princípio. Com isso, podemos 
fazer um programa que simule a traje- 
tória da bola na mesa rebatendo em uma 
ou mais bordas. 

O quadro da última página deste ar- 
tigo mostra as equações que calculam as 
posições da bola após bater contra qual- 
quer uma das bordas da mesa. Embora 
pareça complicado, seu computador faz 
os cálculos muito rapidamente. 


10 BORDER 4: PAPER 4: INK O: 
св 

60 LET bx=128: LET by=76: LET 
cx=100: LET cy=112: LET nx” 
100: LET ny=112 

90 FOR n-6 TO 20: PRINT 

PAPER 7;AT n,2;" 





100 CIRCLE OVER 1;bx,by,4 
110 PLOT OVER l;cx-4,c 
OVER 1;8,0: PLOT OVER 1;cx, 
cy-4: DRAW OVER 1;0,8 








Os ángulos formados pela trajetória 
da bola de bilhar e uma reta perpendicular 
à borda da mesa sáo simétricos. 


120 LET aS=INKEYS: 
THEN GOTO 120 
130 IF INKEYS="a" AND cy>12 
THEN LET ny=cy-2: GOTO 190 
140 IF INKEY$="q” AND cy<122 
THEN LET ny=cy+2: GOTO 190 
150 IF INKEYS="p” AND cx<236 
THEN LET nx=cx+2: GOTO 190 
160 IF INKEY$="0" AND cx>20 
THEN LET nx=cx-2: GOTO 190 
170 IF INKEYS-CHRS 32 THEN 
GOSUB 500: GOTO 300 

190 PLOT OVER l;cx-4,cy: DRAW 
OVER 1;8,0: PLOT OVER licx, 
cy-4: DRAW OVER 1;0,8 

200 LET су=пу: LET cx=nx 

210 GOTO 110 

300 IF INKEYS="" THEN GOTO 
300 

305 CLS 

310 PRINT AT 2,5;"ALCANCE*"; 
INT (p*p*100/(18*18*.4))/100 
320 PRINT AT 5,5;"VELOCIDADE I 
NICIAL=";INT (ABS (p*100/18))/ 
100 

330 PRINT AT 10,8;"Outra vez ? 


IF age"" 








(s/n)* 

340 LET a$-INKEYS: ІР а$<>"а” 
AND a$<>"n” THEN GOTO 340 
350 IF a$-"s" THEN CLS : GOTO 
90 

360 PAPER 7: CLS : STOP 

500 IF cx=bx AND cy-by THEN 
LET p-0: RETURN 

510 LET p-0 

515 PRINT AT 0,0;" 

520 LET p-p*2: IF p-256 THEN 
бото 510 


530 PLOT p-1,168: DRAW 0,7: 
PLOT p,168: DRAW 0,7 

540 IF INKEYS=CHRS 32 THEN 
GOTO 520 

550 CIRCLE OVER 1;bx,by,4 
560 LET dx=cx-b; LET dy=cy-by 
570 LET v=p/18: LET sq=SQR (dx 














*dx*dy*dy) 

590 LET t=1 

600 PLOT bx=.5,by+.5 

610 LET vx=v*dx/sq: LET vy=v* 
dy/sq 

620 LET bx-bx*vx*t-SGN vx*.l*t 
*t: LET bye-by*vy*t-SGN vy*.1*t 





630 LET v-v-.1 

640 IF ABS v<.1 THEN GOTO 700 
650 IF bx<15 THEN LET dx=-dx: 
LET bx=30-bx 

660 IF bx>239 THEN LET dx=-dx 
: LET bx=478-bx 

670 IF by<8 THEN LET dy=-dy: 


Como variar a velocidade de simulação 
do movimento? 

Em primeiro lugar, é necessário es- 
tabelecer a distinção entre velocidade 
simulada de deslocamento da bola (ou 
de um corpo qualquer), medida em 
cm/s ou outra unidade de velocidade, 
e velocidade real de deslocamento da 
imagem da bola na tela. 

А velocidade real com que a bola se 
deslocará na tela depende de muitos fa- 
tores. Um deles é o tempo que o inter- 
pretador BASIC leva para resolver to- 
das as equações matemáticas que re- 
gem o modelo cinemático. Esse tem- 
po varia conforme o computador e a 
eficiência do programa. Um micro da 
linha MSX, por exemplo, é bem mais 
rápido para resolver equações do que 
um ZX-81. Este divide o tempo total de 
execução entre UCP e manutenção da 
tela, o que retarda o cálculo, pois tor- 
na necessário o uso de SLOW para que 
a trajetória da bola seja exibida na tela. 

A eficiência do programa também é 
importante. Um número excessivo de 
substituições nas equações retarda a 
solução. Podemos, assim, aumentar a 
eficiência, usando alguns truques, co- 
mo a inclusão de poucas equações ou 
a colocação de várias delas em uma 
única linha de comando. 

É importante, ainda, considerar que 
o incremento de distância nas direções 
X e Y [DX e DY) afeta o número de pon- 
tos de trajetória calculados por segun- 
do. Quanto menores esses valores, 
mais fiel será a simulação e mais pre- 
cisos serão os resultados dos cálculos. 
Infelizmente, a velocidade diminuirá. 
Usar valores muito altos de DX e DY, 
por outro lado, é perigoso, pois a simu- 
lação pode ficar pouco realista. 











LET by-16-by 

680 IF by>127 THEN LET dy=-dy 
: LET by=254-by 

690 GOTO 600 

710 IF bx<19 THEN LET bx=20 
720 IF bx<235 THEN LET bx=235 
730 IF by<12 THEN LET by-=12 
740 IF by>123 THEN ГЕТ by=123 
750 CIRCLE bx,by,4: RETURN 





10 PMODE 3,1:PCL8:DIM B(2),BL(2 


BM5, 0C3FRFD6GLGHL2HUGE" 
:PAINT(5,5),3 

40 DRAW"BM20,0C2D2NLR2DL3FD" 

50 GET(0,0)-(9,10),B,G 

60 GET(18,0)-(23,5),C,G 

70 PCLS 4:SCREEN 1,0 

80 LINE(18,58)-(230,170) , PRESET 





=110:CX=125:CY=112: 





NX=12: 
100 PUT(BX,BY)-(BX*9,BY*10),B,O 
R 


110 PUT(CX,CY)- (CX*5, CY*5) , C, OR 
120 NX-CX:NY-CY 

130 IF PEEK(341)-247 THEN NY-NY 
-2:G0TO 190 

140 IF PEEK(342) 7247 THEN NY=NY 
%2:60Т0 190 

150 ІҒ РЕЕК(343)-247 ТНЕМ NX-NX 
-2:00Т0 190 

160 IF PEEK(344)=247 THEN NX=NX 
*2:G0TO 190 

170 IF PEEK(345)=247 GOSUB 500: 
GOTO 220 

180 GOTO 100 

190 IF NX<18 OR NX>225 OR NY<58 
OR NY>165 THEN 120 

200 PUT(CX,CY)-(CX+5,CY+5) ,BL,P 
SET 

210 CX=NX:CY=NY:GOTO 100 

220 PUT(BX,BY) - (BX*9, BY*10) ,B,O 
R:PUT(CX,CY) - (CX*5, CY*5) , C, OR 
230 AS=INKEYS 

240 IF INKEYS="" THEN 240 

250 CLS:PRINT €33,"ALCANCE="; IN 
T(P*P*100/(18*18*.4))/100 

260 PRINT 8$97,"VELOCIDADE INICI 
AL: INT (ABS (P*100/18))/100 

270 PRINT €225,"QUER RECOMECAR 
(S/N) ?" 

280 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 280 

290 IF A$-"S" THEN SCREEN 1,0:G 
ото 100 

300 CL8:END 

500 IF CX-BX*2 AND CY-BY*2 THEN 
RETURN 

510 P=1 

520 P=255 AND (P+2):POKE 345,25 
5 

530 LINE(P,0)-(P*2,6) , PSET, BF:L 
INE (P+4,0)- (255,6) ,PRESET,BF 
540 SOUND P,1:IF PEEK(345)=247 
THEN 520 

550 LINE(18,58)-(230,170) , PRESE 
T,BF 

560 DX-CX -2:DY-CY-3-BY 

570 V-P/18:8Q-SQR (DX*DX*DY*DY) 








580 BX=BX+4:BY=BY+5:T=1 

600 PSET(BX+.5,BY+.5,3) 

610 VX=V*DX/SQ:VY=VADY/SQ 

620 BX=BX+VX*T-SGN(VX)*.1*TRT:B 
Y=BY+UY*T-8GN(VY)*.1*TXT 

630 V=V-.1:IF ABS(V)<.1 THEN 70 
0 





650 IF BX<18 THEN DX=-DX:BX=36- 
BX:SOUND 5,1 

660 IF BX>230 THEN DX--DX:BX-46 
0-BX:80UND 5,1 

670 IF BY<58 THEN DY=-DY:BY=116 
-BY:SOUND 5,1 

680 IF BY>170 THEN DY=-DY:BY=34 
0-BY:SOUND 5,1 

690 сото 600 

700 BX-BX-4:BY-BY-5 

710 IF BX<18 THEN BX-18 

720 IF BX>221 THEN BX=221 

730 IF BY<58 THEN BY=58 

740 IF BY>160 THEN BY=160 

750 RETURN 


na 


10 CLS:COLOR 15,15,15:SCREEN 2, 


0 

15 BX=123:BY=100:CX=123:CY=100: 

NX=CX:NY=CY 

20 RESTORE:FOR I=1 TO 8 

30 READ A:S19=S19+CHRS (A) :NEXT 
40 FOR I=1 TO 8 

50 READ B:S25=S2$+CHRS (В) :МЕХТ 
60 SPRITES(0)=S1S 

70 SPRITES(1)*82$ 

BO LINE(18,38)- (230,170) ,12,BF 
100 PUTSPRITEO, (BX,BY),8 

110 PUTSPRITE1, (CX,CY),15 

120 K$=INKEYS:IF K$=""THEN 120 
130 IF K$=CHR$(28) THEN NX=NX+2 
:GOTO 190 

140 IF K$=CHRS(29) 
:GOTO 190 

150 IF K$=CHRS(30) 
:GOTO 190 

160 IF K$=CHRS(31) 
:GOTO 190 

170 IF KS=CHRS(32) 
00:GOTO 220 

180 GOTO 120 

190 IF NX<180R NX>225 OR NY<38 
OR NY>165 THEN NX=CX:NY=CY:GOTO 
120 

200 CX=NX:CY=NY:GOTO 100 

220 KS-INKEYS:IF К8-""ТНЕМ220 
230 COLOR 15,4,4:SCREENO: LOCATE 
5,5:PRINT"Distáncia percorrida 

; INT (P*P*100/(18*18*.4))/100 

240 LOCATE 5,8:PRINT"Velocidade 


THEN NX=NX-2 
THEN NY=NY- 2 
THEN NY=NY+2 


THEN GOSUB 5 


inicial: ";¡INT(ABS(P*100/18)Y/ 
100 

250 LOCATE 5,11:PRINT"Outra vez 
? (S/N)" 


260 K$=INKEYS: IF KS<>"S” 
<>"N” THEN 260 
270 1F K$="S" THEN COLOR15,15,1 


AND K$ 


5:SCREEN 2,0:GOTO 20 ELSE CLS: 
END 

500 IF CX-BX AND CY-BY THEN RET 
URN 

510 P-1 


520 P-255AND(P*2) 
530 LINE(P,0)-(P*2,6) , 6, BF:LINE 


(P*4,0)-(255,6) , 15, BF 





540 IF INKEYS<>CHRS (32) THEN 52 
0 

560 DX=CX-BX:DY=CY-BY 

570 V=P/18:SQ=SQR (DX*DX+DY*DY) 
580 T=1 

600 PSET(BX+4.5,BY+5.5),15 

605 PUTSPRITEO, (BX,BY),8 

610 VX=VADX/SQ:VY=VADY/SQ 

620 BX=BX+VX*T-SON (VX)*. I*T*T:B 


YeBY+VY*T-SGN(VY)*.1*T*T 





630 V-U-.1:IF ABS(V)<.1THEN700 
650 IFBX<IBTHENDX=-DX:BX=42-BX 
660 IFBX>222THENDX=-DX:BX=444-B 
x 

670 IFBY<38THENDY=-DY:BY=76-BY 
680 IFBY>162THENDY=-DY:BY=324-B 
Y 

690 GOTO 600 

700 RETURN 


1000 DATA 0,28,62,127,127,127,6 
2,28 
1010 DATA 0,0,8,8,62,8,8,0 


10 HOME HGR HCOLOR= 1: 
OT 0,0: CALL 62454 

30 РОВ І = 1 Т0 65 

40 READ A 

50 POKE 767 + 1,A 


HPL 


60 NEXT POKE 232,00: POKE 23 
3,03 

80 BX = 123:BY = 110:CX = BX:CY 
= BY:NX = CX:NY = CY:P = 

90 HCOLOR= 0: FOR I = 30 TO 15 
0: HPLOT 30,1 TO 250,1: NEXT 
HCOLOR= 3 

100 SCALE= 1: ROT= O: DRAW 2 A 
T CX * 4,CY * 4 

110 DRAW 1 AT BX,BY 

120 GET AS 

130 IF A$ = "K" THEN NX = NX 
2: GOTO 190 

140 IF AS * "J" THEN NX = NX 
2: GOTO 190 

150 IF AS - "I" THEN NY * NY 
2: GOTO 190 

160 IF AS - "M" THEN NY - NY 

2: GOTO 190 

170 IF AS = CHRS (32) THEN 
OSUB 500: GOTO 220 

180 GOTO 120 

190 IF NX < 30 OR NX > 250 OR 
NY < 30 OR NY > 150 THEN NX = € 
X:NY = CY: GOTO 120 

200 GOSUB 750 

210 CX - NX:CY - NY: GOTO 100 
220 VTAB 21: PRINT "DISTANCIA 
PERCORRIDA: ^; INT (P * P * 100 
/ (18 * 18 * .4)) / 100 

230 PRINT "VELOCIDADE INICIAL: 





INT 


( ABS (P * 100 / 18)) / 


L————— À Á————M"Í— S 








100 

240 PRINT : PRINT "MAIS UMA VE 
zr y 

250 GET A$: IF A$ < > "S" AND 
AS € > "N” THEN 250 

260 IF A$ = “S” THEN HOME : G 
ото 90 

270 TEXT HOME END 

500 IF CX = BX AND CY = BY THE 
N RETURN 

510 K = 2: HCOLOR= K 

520 P = Рр + К: ІР Р * 255 THEN 
K = - 2: HCOLOR= 1 

525 IFP = 1 THEN 510 

530 HPLOT P - 1,0 TO P - 1,8: 
HPLOT P,0 TO P,8 

540 GET AS: IF AS = CHRS (32) 


THEN 520 

560 DX = CX - BX:DY = CY - BY 
570 V = P / 18:80 = SQR (DX * 
DX + DY * DY) 

580 T = 1 

600 DRAW 2 AT CX * 4,CY * 4: D 
RAW 1 AT BX,BY 
610 VX = V * DX 
Y / SQ 

615 HPLOT BX * 4 - ( SGN (VX) 
* 6),BY + 4 - ( SGN (VY) * 6) 
620 МХ = BX * VX * T - SGN (VX 
) * .l * T * T:MY - BY * VY * T 
- 8GN (VY) * .23* T * Ty 

630 9 - VU - .1: IF ABS (V) < 


/ SQ: = Ç w D 

















1 THEN 700 

650 IF MX < 30 THEN DX = - DX 

:МХ = 64 - MX 

660 IF MX » 240 THEN DX - - D 

X:MX - 480 - MX 

670 IF MY < 30 THEN DY = - DY 

:MY = 64 - MY 

680 IF MY > 140 THEN DY = - D 

Y:MY = 280 - MY 

690 GOSUB 750:BX = MX:BY = MY: 
сото 600 

700 RETURN 

750 HCOLOR= O: DRAW 1 AT BX,BY 
DRAW 2 AT CX + 4,CY + 4: HCOL 

OR= 3: RETURN 

1000 DATA 2,0,6,0,45,0,9,45,4 


5,21,63,63,63,23,45,45,45,45,62 
.63,63,63,55,45,45,45,45,62,63, 
63,63,55,45,45,45,45,30,63,63,6 
3,14,45,45,150,0 

1010 DATA 36,36,55,54,62,63,5 
5,45,45,45,45,37,63,191,50,54,3 
9,36,4,0 


Para o TK-2000, faga as seguintes 
modificacóes no programa anterior: 





10 HOME : 
15 FOR I = 
TO 279,1: 


HGR : HCOLOR= 1 
1 TO 160: HPLOT 1,1 
NEXT 


O programa desenha um retángulo 
no meio da tela: esta é a área (ou a me- 
sa) na qual o objeto pode se mover. 


ОМА МІНА МОУҒІ. 


No meio do retángulo há uma bola 
e, também, um cursor que pode estar es- 
condido atrás dela. No Spectrum, pres- 
sione a tecla Q para mové-lo para cima, 
A para baixo, O para a esquerda e P pa 
ra a direita; no TRS-Color e no M 
use as setas para a movimentacáo; no 
Apple e no TK-2000, tecle I para cima, 
M para baixo, J para a esquerda e K pa- 
ra a direita. O cursor é representado por 
uma cruz, que se move por toda a área 
sponível para indicar a direção de mo- 
vimento da bola. Quando tiver posicio- 
nando o cursor no lugar desejado, pres- 
sione a barra de espaços (ou a tecla 
SPACE, no Spectrum). 








Uma linha horizontal surgirá no to- 
po da tela, aumentando à medida que 
se mantém a barra de espaços apertada. 
O tamanho da linha mostra a força com 
que a bola será impulsionada: quanto 
maior a linha, maior a força. 

Assim que se solta a barra de espa- 
ços, o computador limpa o retângulo e 
desenha uma série de pontos que mos- 
tram a trajetória da bola. Os pontos fi- 
cam mais próximos quando a bola per- 
de velocidade. No Apple, para colocar 
a bola em movimento, é necessário pres- 
sionar uma tecla qualquer após ter de- 
finido a força. 

Tente variar a posição do cursor e 
usar diferentes velocidades na bola, pa- 
ra verificar o efeito. 


MO FUNCIONA 


Aqui, os principios da reflexáo estáo 
muito claros. Toda vez que a bola bate 
contra uma borda, ela rebate no mesmo 
ángulo com que chegou. Isso acontece 
em qualquer lado da mesa. 

O programa começa com a iniciali- 
zação de algumas variáveis e com a es- 
colha do modo gráfico adequado e das 
cores. O do TRS-Color também dimen- 
siona trés vetores, define dois UDG (C: 
racteres Definidos pelo Usuário) e os co- 
loca nos vetores (um para a bola, um pa- 
ra a cruz e outro em branco). Nos pro- 
gramas do Apple e do MSX, usam-se 
duas formas predefinidas, uma para a 
bola e outra para a cruz. No MSX, isto 
é feito com Sprites, que sáo muito 
ceis de definir e tém a vantagem de nào 
apagar outros desenhos da tela que es- 
tejam em plano diferente. No Apple, 
utiliza-se uma tabela de formas. Nào é 
tarefa simples montar uma delas sem o 
auxílio de um editor, mas o efeito final 
compensa. Para animar a figura, será 
preciso ter alguns cuidados (como apa- 
gar o desenho anterior). 

As variáveis definidas sio BX, BY 
(coordenadas X e Y para a bola); CX, 








CY (coordenadas para a cruz) e NX e 
NY (novas coordenadas para a cruz). 
NX e NY sáo as variáveis usadas para 
mover a cruz pela tela. 

Depois desses procedimentos iniciais, 
um retángulo é desenhado na tela e a ro- 
tina INKEYS ou GET, que Ihe permite 
mover o cursor, entra em ação. A roti- 
na do TRS-Color usa PEEK nas posi- 
ções de teclado, para possibilitar a au- 
to-repetição das teclas. 

Além de verificar a direção em que 
o cursor se move, a rotina checa tam- 
bém se alguma tecla está sendo pressio- 
nada. Caso haja pressão sobre a barra 
de espaços, o computador vai para a 
sub-rotina 500, que verifica a posição do 
cursor: se ele está sobre a bola, a força 
é imediatamente zerada e o computador 
retorna da sub-rotina. O TRS-Color não 
precisa especificar P (a variável para for- 
ça) como 0, já que seu BASIC assume 
este valor para qualquer variável, a náo 
ser que se determine algum outro. 

Todo esse procedimento tem a fina: 
lidade de evitar a ocorrência de erros, 
pois, quando o cursor está sobre a bo- 
la, o computador não sabe em qual di- 
reção deve movê-la 

Se o cursor está numa posição váli- 
da, o fator força é definido como 0 (no 
Spectrum) ou 1 (nos outros micros). Is- 
so ocorre no momento em que a barra 
horizontal é apagada. 


TACADAS MAIS FORTES 


A variável P é incrementada (tem seu 
valor aumentado) de 2, cada vez que o 
computador detecta uma pressáo na 
barra de espaços. Quando atinge o va- 
lor 255, P volta a ser 0 — e a linha hori- 
zontal, que cresce com P, é novamente 
apagada. O computador permanece nes- 
se círculo vicioso até que a barra de es- 
pagos se libere. No Apple, em vez da 
forca zerar ao atingir o máximo, ela vai 
diminuindo aos poucos. 


























Assim que a condição da linha 540 
deixa de ser verdadeira — ou seja, quan- 
do a barra de espaços é liberada — o 
computador continua a execução do 
programa que, neste ponto, varia um 
pouco de uma máquina para outra. O 
Spectrum e o TRS-Color apagam a bo- 
la e traçam sua trajetória. O MSX e o 
Apple mostram a bola em movimento, 
deixando um rastro em sua trajetória. 
Mais adiante, explicaremos como fun- 
ciona esta parte do programa. 

Ao terminar os cálculos e o desenho 
do caminho da bola, o computador re- 
torna para a linha 170. Em seguida, vai 
para a linha 300, no Spectrum, ou 220 
nos outros micros. 

O TRS-Color coloca a bola em sua 
nova posigáo e a cruz no mesmo lugar 
onde ela estava. As declarações OR que 
aparecem no fim de cada PUT evitam 
que a bola ou a cruz apaguem alguma 
coisa (pontos) da tela. 

O computador espera que uma tecla 
seja pressionada para, então, apagar a 
tela e mostrar a velocidade inicial da bo- 
la ea distância percorrida. Em seguida, 
oferece mais uma tentativa. O Apple, 
novamente, apresenta uma diferença: a 
tela não é apagada, pois as informações 
são mostradas na janela de texto (últi- 
mas quatro linhas) da tela de alta re- 
solução. 

Como mostra a figura da página 653 
para prever a direção que um objeto to- 
mará após bater numa borda, basta es- 
tudar o ângulo com que atingiu a pare- 
de. Infelizmente, os computadores não 
dispõem de nenhum recurso para medir 
ângulos diretamente, precisando recor- 
rer a uma equa: 


ULO DAS COORDENADAS 


Cada um dos programas define va- 
riáveis para as posições da bola e da cruz 
(há, de fato, dois conjuntos de coorde- 
nadas para a cruz, mas apenas um é usa- 
do aqui). O computador necessita de um 




















outro conjunto — que contém a diferen- 
ca entre as posigóes da cruz e da bola. 
De posse desses dados, pode calcular a 
direção da bola. 

As variáveis que indicam a diferença 
entre as posições são DX e DY, calcu- 
ladas na linha 560. 

O programa utiliza muitas outras va- 
riáveis para os cálculos. O valor de V, 
variável usada para a velocidade inicial, 
é uma proporção da força que foi esco- 
lhida para impulsionar a bola (o valor 
exato desta proporção varia um pouco 
de um micro para outro, em razão de 
diferenças da tela). 


RAÍZES QUADRADAS 


A variável SQ iguala-se à raiz quadra- 
da de (DX*DX + DY*DY). Esta é, na 
realidade, a distância entre a cruz e a bo- 
la, distância que é calculada por meio 
do teorema de Pitágoras, que estabele- 
ce que, para qualquer triângulo retân- 
gulo, o quadrado da hipotenusa (como 
é denominado o lado maior do triângu- 
lo) é igual à soma dos quadrados dos 
catetos (nome que recebem os outros 
dois lados). 

A variável T corresponde ao intervalo 
de tempo usado nas equações. Se seu va- 
lor for maior, o programa funcionará 
mais rapidamente, porém, menos pon- 
tos serão traçados: como a razão entre 
o tempo e a distância fica menor, o nú- 
mero de pontos também diminui. Assim 
que se determina o intervalo de tempo, 
o computador começa a traçar os pon- 
tos da trajetória. 

Em seguida, o programa utiliza mais 
duas variáveis para os cálculos. São os 
valores para a velocidade, nos eixos X 
e Y (ou horizontal e vertical). Em ou- 
tras palavras, VX contém a velocidade 
com que a bola se desloca horizontal- 
mente e VY, a velocidade de seu deslo- 
camento vertical. As duas variáveis po- 
dem contar valores negativos: nesse ca- 
so, a bola se desloca da direita para a 











UTILIZACAO DE MODELOS 
DINÁMICOS 

Para quem náo gosta muito de ma- 
temática ou física, pode parecer que os 
programas deste artigo nào tém mui- 
tas aplicacóes práticas. Na verdade, es 
tas sáo numerosíssimas 

Qualquer pessoa que tenha a aspi 
ração de se tornar um programador 
competente — sobretudo nas áreas de 
jogos e programas educativos pre: 
cisa conhecer bem o mecanismo de si 
mulacáo de modelos dinámicos. 

Veja, abaixo, alguns exemplos do 
que vocé pode fazer usando como ba 
ве ов programas deste artigo: 
* um programa que simule um jogo de 
bilhar. Com o joystick ou o teclado, o 
jogador orienta o ángulo e a força de 
batida de um taco 
* um jogo de fliperama 
* um programa educativo que mostre 
como as moléculas se deslocam em um 
recipiente, colidindo continuamente 
umas com as outras. Quanto maior à 
densidade da matéria (por exemplo, 
densidade de gás), maior o número de 
colisóes. Colisóes geram calor; assim, 
a temperatura do gás pode ser estima: 
da a partir de sua densidade ou pres 
sáo (esta é uma das leis fundamentais 
da física). 
* um programa educativo para de 
monstrar o efeito de diferentes coefi 
cientes de atrito, ou diferentes valores 
da força de gravidade sobre a movi 
mentação livre de uma bola 











querda (para VX) ou de baixo para ci- 
ma (para VY). 

O valor dessas duas variáveis é cal- 
culado, como se pode verificar na linha 
610, multiplicando-se a velocidade (V) 
pela variável DX (ou DY) e dividindo-se 
o resultado pela distância entre o cen- 
tro da bola e o centro da cruz (variável 


50). 



















Como calcular a velocidade da bola 
O programa recorre a várias equa- 


ções para calcular a nova posição da 
bola e sua velocidade. As equações do 
diagrama se) 


am a velocidade em 
suas componentes, com a projeção nos 
eixos X e Y. O computador resolve es- 
is duas equações para cada posição 
da trajetória da bola, porém, sob uma 
forma um pouco diferente da que foi 
apresentada aqui, As constantes 
(Xc—Xb) elyc—Xb) são substituídos 
no programa por DX e DY. Com elas, 
o computador calcula então a nova ve- 
locidade a cada ponto, levando em con- 
sideração a desaceleração. 

Como mostra a fórmula, ele multi- 
plica a diferenca entre as coordenadas 
X e Y da bola e do cursor pela veloci- 
dade real, e divide o resultado pela li- 
nha de baixo da razão; a raiz quadrada 
da diferença entre as coordenadas X da 


V (xc — xb) 
xbY + (ус 








A NOVA POSIÇÃO DA Bi 


Neste ponto, o seu micro já dispõe de 
todos os valores necessários para calcu- 
lar a nova posição da bola. A linha 620 
faz esse cálculo para os novos valores de 
BX e BY. 

O cálculo para cada uma das coor- 
denadas é o seguinte: 


BX * BX*UX*T-SNG(UX) *. ]*T*T 


Embora pareca complicado, nào é. A 
fórmula adiciona um valor a BX (ou 
BY) para encontrar a nova coordenada. 
O nümero pode ser negativo, dependen- 
do da direção em que a bola se deslo- 
que. Em vários pontos desta parte do 
programa para o Apple, vocé irá encon- 
trar as variáveis MX e MY em lugar das 
variáveis BX e BY, porque o computa- 
dor precisa das coordenadas antigas da 
bola para poder apagá-la, antes de 
desenhá-las em sua nova posição. 

O primeiro passo é adicionar a BX à 
distância que a bola percorre. Esta dis- 
tância é avaliada em dois estágios. Ini- 
cialmente, multiplica-se a velocidade pe- 
lo intervalo de tempo. Lembre-se de que 
a velocidade nada mais é do que a dis- 
tância percorrida dividida pelo tempo 
gasto. Assim, para calcular a distância, 
basta multiplicar a velocidade pelo 
tempo. 

Infelizmente, o programa precisa fa- 
zer um ajuste, pois as velocidades dadas 
pelas variáveis VX e VY não são iguais 


à velocidade real da bola em movimen- 
to — cada uma delas corresponde à ve- 
locidade de deslocamento em um eixo 
(horizontal ou vertical). Isso explica o 
estranho cálculo no fim da fórmula, en- 
volvendo o sinal de VX e uma fração de 
T ao quadrado. 
A função SGN fornece o resultado 1, 
-1 ou 0, conforme o argumento (núme- 
ro dentro dos parênteses) seja positivo, 
negativo ou zero. Ela é usada aqui para 
que se possa, empregando a mesma fór- 
mula, subtrair o valor .1*T*T do termo 
anterior, no caso da velocidade no eixo 
ser negativa, ou somá-lo, no caso da ve- 
locidade ser positiva. 

O resultado após cálculos desta linha 
corresponde á nova coordenada (para o 
eixo X ou Y) da bola. O cálculo é feito 
para os dois eixos. 


MO DESACELERAR 


O programa diminui a velocidade de 
0.1 e checa se ela é menor que 0.1. Em 
caso afirmativo, o micro vai para o fim 
da rotina, que é explicado abaixo. Em 
caso negativo, quatro linhas sào usadas 
para verificar se alguma das bordas foi 
atingida no caminho para a nova posi- 
ção (utilizam-se quatro IF... THEN pa- 
ra checar se as novas coordenadas estão 
caindo fora dos limites da mesa). Se a 
bola bate contra uma das bordas, o va- 
lor da variável DX (ou então DY, con- 
forme a borda atingida tenha sido a su- 


bola e do cursor elevada ao quadrado, 
somada à diferença das coordenadas 
Y da bola e do cursor elevada ao 
quadrado, 

As duas equações seguintes calcu- 
lam as novas coordenadas X e Y, Veja: 


Xn=Xb+Vx*T-0.01*T 
Yn=Yn+Vy*T-0.01*T 


A nova posicáo da bola é calculada 
adicionando-se um número á antiga 
coordenada X e Y. Para calcular o nú- 
mero a ser adicionado, multiplica-se a 
velocidade no eixo X ou Y pelo tempo 
e, então, subtrai-se uma pequena fra- 
ção de T ao quadrado, para levar em 
conta a desaceleração. 

A velocidade é diminuída de uma pe- 
quena quantidade (0.1) е, antes de se 
reiniciar o /oop, marca-se a nova posi- 
gáo da bola. 








perior ou a inferior) é igualado a menos 
DX. 

Os valores de BX e BY também sáo 
alterados, de modo a colocar a bola na 
posigáo correta. Os números subtraidos 
das coordenadas antigas sáo o dobro 
dos limites da mesa. Assim, a maior 
coordenada da mesa no Spectrum é 127, 
o que significa que, toda vez que a bola 
encontra a borda superior, BX fica 
254-BX (254 é o dobro de 127). 

Depois das checagens, o computador 
calcula o próximo ponto. O fim da ro- 
tina, alcangado quando a velocidade se 
torna menor que 0.1, verifica se a bola 
nào vai ser desenhada sobre a borda, an- 
tes de desenhá-la na tela. 

Algumas das coordenadas usadas 
nesta verificação são diferentes daque- 
las usadas na anterior, porque o que vai 
ser desenhado é uma bola e não um pon- 
to — e, é claro, a bola ocupa muito mais 
espaço. Assim, as coordenadas necessi- 
tam de algum ajuste. 


SUGESTÕES 


Você pode dar vários usos ao progra- 
ma aqui apresentado. Uma idéia é 
transformá-lo em um jogo de snooker. 
Se esta for sua opção, bastará acrescen- 
tar algumas caçapas, para que as bolas 
caiam dentro, e uma rotina de contagem 
de pontos. Outra possibilidade é apro- 
veitar esse programa para um jogo de 
squash, ou algo do tipo. 











Com algumas modificacóes, o programa 
Assembler que apresentamos 
anteriormente para o MSX servirá 
também para os usuários do TRS-80. 
Veja aqui as adaptacóes necessárias. 


Traduzir mnemónicos para código de 
máquina certamente é uma tarefa bas- 
tante cansativa. E, além de trabalhoso, 
colocar os códigos usando o monitor de 
seu TRS-80 pode dar origem a muitos 
erros — fatais, quando se trata de lin- 
guagem de máquina. 

Neste artigo, vocé verá como utilizar 
0 computador para fazer esse servico. 
Com algumas modificagóes, o progra- 
ma que publicamos anteriormente para 
о МХХ servirá também para o TRS-80. 
Ele se destina a sistemas com 48K de me- 
mória, sendo que as funções de grava- 
ção e leitura dos programas em lingua- 
gem Assembly só funcionam em siste- 
mas com disquetes. As outras funções 
do Assembler funcionarão normalmente 
em sistemas com fita cassete. 

Como o programa foi escrito em BA- 
SIC, ele é um tanto lento, levando alguns 
minutos para montar um programa lon- 
go. Contudo, funciona muito bem. 

Digite o Assembler para o MSX apre- 
sentado no artigo da página 401, com 
as seguintes modificações: 





5000 CLS:PRINTé468,"Um instante 
, рог favor”:CLEAR 500:DIM K$(1 
10) ,K(110) M(110) :H$="012345678 
9ABCDEF" :G$-"0123456789abcdef" 
5200 CLS:PRINT686,"ASSEMBLER":P 
RINT:PRINTTAB(16)"(c) carregar 
do disco":PRINT:PRINTTAB(16)"( 
9) gravar no disco":PRINT:PRIN 
TTAB(16)"(e) editar linha":PRI 
NT:PRINTTAB(16)"(m) montar":PR 
IN' RINTTAB(16)"(a) apagar li 
nha":PRINT:PRINTTAB(16)"(1) 1i 
star" 

5210 AS-INKEYS:IFAS-""THEN5210 
5220 JJ=INSTR("cgemal”,AS) 

5230 IFJJ=OTHENPRINT"<"AS"> 777 
*:FORJ-1TO500:NEXT:GOTO5200 
5240 CLS:0NJJGOSUB10420,10450,1 












UM ASSEMBLER 
PARA OTRS-80 






0490,5290,10710,10760 

5250 PRINT:PRINT"Qualquer tecla 
para continuar” 

5260 AS-INKEYS:IFA$-""THEN5260 
5270 GOTO 5200 

10420 INPUT"Nome do arquivo ”;A 
RS 

10430 CLS:PRINT@465,"Carregando 
programa fonte” 

10440 OPEN"I”,1,ARS: INPUT41,N:F 
ORJ=1TON: INPUT$1,TS(J) :NEXT:CLO 
SEl: RETURN 

10450 INPUT"Nome do arquivo ";А 
RS 

10460 CLS: PRINT6466,"Gravando p 
rograma fonte” 

10470 OPEN"O",1,ARS:PRINT41,N:F 
ORJ-1TON:PRINT41,CHR$ (34) ; T5 (J) 
1 CHR$ (34) : NEXT: CLOSE] : RETURN 
10490 PRINT"Qual o numero da li 
nha (multiplo де 10) "; 

10500 INPUTK:CLS 

10510 ТЕК2>МТНЕМК2=№+1 : 

N=N+1: ":РВІМТ6960,"” 
10520 ІҒК2<.1ТНЕМК2-.1 

10530 ІҒК2-ІМТ(К2)ТНЕМ10550 
10540 K2=INT(K2)+1:FOR K3=NTOK2 
-1STEP-1:T5(K3+1)=TS(K3) :NEXT:N 
=N+1:T3(K2)="" 

10550 Р1-16326:Р0-Р1 


10560 РВІМТ6896,К;ТАВ(6)Т5(К2)% 
STRINGS (20,32) :P9-PO+LEN(TS (K2) 





) 

10570 ІРРІ<РОТНЕМР1-РО 

10580 IFP1>P9THENP1=P1-1 

10590 РОН 1--1 TO 1:POKE P1+1,3 
2-(1=0)*99:NEXT І 

10600 P7-0:AS-INKEYS:IFA$-""THE 
N10600 

10610 IFAS-CHR$(13)THEN10700 
10615 IFAS=CHRS (27) THENRETURN 
10620 IFAS-CHRS (9) THENP1=P1+1:G 
07010580 

10630 IFAS-CHR$(8)THENP1-P1-1:G 
07010570 

10640 IFAS-CHR$(10)THENAS-"":GO 
TO10670 

10650 IFAS-CHRS$(91)THENAS-" "*M 
IDS (TS (K2),P1-P0+1,1):P7=-1:GOT 
010670 

10660 IFAS<” "THEN10600 

10670 IFP1-PO+1>LEN(TS (K2)) THEN 
TS (K2) =LEFTS(TS(K2) ,P1-P0)+AS:G 
0T010690 

10680 TS(K2)-LEFTS(TS(K2) , P1-PO 








MODIFICACÓES QUE DEVEM SER 
FEITAS NO PROGRAMA DO MSX 

п CARACTERÍSTICAS 
DOS PROGRAMAS ASSEMBLY 

EE FUNCIONAMENTO DO ASSEMBLER 


) +AS+RIGHTS (TS (K2) ,LEN(TS (K2))- 
Р1%Р0-1) 

10690 Pl=P1-(LEN(AS)>0)+P7:GOTO 
10560 

10700 PRINTé64,"":K-K*10:GOTO l 
0510 

10710 IFN-OTHENCLS:PRINT"Nada a 
apagar” : RETURN 

10720 CLS:PRINT"Qual o numero d 
a linha (multiplo de 10) ”; 
10730 INPUTK:K2-K/10 

10740 IFK2>NORK2<10RK2<>INT (K2) 
THENPRINT"Esta linha nao existe 
” : RETURN 

10750 K-K2:FORK3-K2TON: T$ (K3) -T 
S(K3*1) :NEXT:N-N-1:PRINT6190,K* 
10;" ";T$(K):RETURN 

10760 IFN=OTHENPRINT"Nada a 118 
tar”; RETURN 

10770 PRINT"Quais os numeros da 
primeira e da ultima linha (mu 
ltiplos de 10)"; 

10780 INPUTK,K2:K*INT(K) :K2*INT 
(K2) :K1-K/10:K2-K2/10 

10790 IFK2>NTHENK2=N 

10800 ІРКІ<1ТНЕМКІ-1 

10810 IFK2<K1ANDK2=NTHENRETURN 
10820 IFK2<K1THENCLS: PRINT"Nume 
ros de linha invalidos”:GOTO 10 
770 

10830 CLS:PRINT6192, : FORK3*K1TO 
K2:PRINTK3*10" "T$(K3):NEXT 
10840 RETURN 


Algumas das linhas do programa — 
a 5450 e a 5750, por exemplo — são 
muito longas e podem dar problemas no 
momento de digitação. Para evitar que 
isso ocorra, digite as linhas exatamente 
como estão impressas, sem incluir espa- 
ços entre os comandos. Se mesmo assim 
o computador não aceitar uma linha de- 
vido ao seu tamanho, aperte ENTER, fa- 
zendo o começo da linha ir para a me- 
mória. Em seguida, edite a linha usan- 
do o comando X da edição. 

Observe que nas linhas 5030, 5050, 
5390 e 5500 encontram-se quatro carac- 
teres em branco entre aspas; nas linhas 
5660 e 5770, três. 

Antes de montar o programa, prote- 
ja o topo da memória do computador 
para ali colocar os códigos. Faca-o lo- 
go que ligar a máquina — ou ativar o 
BASIC —, respondendo adequadamen- 
te à pergunta “Memória usada?”. 












Ao executar o Assembler, um menu 
será exibido na tela. Para digitar um 
programa em Assembly tecle **e". No 
TRS-80, é necessário pressionar ao mes- 
mo tempo as teclas SHIFT e O (arro- 
ba) para usar as letras minúsculas. O 
computador perguntará, então, o núme- 
ro da linha. Cada instrução deve ficar 
em uma linha numerada, como aconte- 
ce também no BASIC. Os números das 
linhas precisam sempre ser múltiplos de 
10 e apenas um mnemônico Assembly 
com seus respectivos operandos deve ser 
introduzido em cada uma delas. 

A primeira linha de um programa em 
Assembly especifica a origem ou ende- 
reço inicial do programa em código. Is- 
to é feito pelo comando org, de modo 


O que é um Disassembler? 

Como o próprio nome indica, o Di- 
sassembler executa uma função opos- 
ta ao Assembler — ou seja, enquanto 
o Assembler é um programa que traduz 
códigos mnemônicos (simbólicos) em 
código de máquina (números binários, 
diretamente executáveis pela UCP), o 
Disassembler reconstitui o programa 
em linguagem Assembly. 

Como funciona um programa Disas- 
sembler? Da mesma maneira que no 
programa Assembler listado neste ar- 
tigo, a base do processo de tradução 
é uma tabela. Só que o processo de 
desmontagem (disassembler) é mais 
complexo do que o de montagem, já 
que diversas instruções elementares do 
microprocessador Z-80 requerem dois 
ou mais bytes para serem totalmente 
armazenadas (ou seja, código de ope- 
ração, mais operandos ou argumen- 
tos). Como o significado de um deter- 
minado byte na memória é diferente 
conforme o ponto da instrução em que 
ele se encontra, a ordem de leitura do 
programa em código de máquina é mui- 
to importante para o Disassembler. 
Uma única falha de interpretação de 
um byte invalidará toda a desmonta- 
gem até o final do programa. 

O Disassembler não é um programa 
fácil de ser desenvolvido, principalmen- 
te em BASIC. Mas existem diversos 
programas Disassembler comercial- 

mente disponíveis para o TRS-80. 














quea primeira linha de seu programa fi- 
cará mais ou menos assim: 


10 org -10000 


Se os mnemônicos não forem escritos 
em letras minúsculas e os números não 
estiverem todos situados entre — 32768 
e 32767, haverá erro na execução do 
Assembler. 

Os mnemônicos empregados seguem 
o padrão Z-80, com exceção de ret. Usa- 
do sozinho, este comando é aceito nor- 
malmente. Porém, nos casos de retor- 
no condicional — ret nz, por exemplo 
— devemos usar rts em seu lugar. 

Números hexadecimais precisam ser 
precedidos do sinal $; números binários, 
do sinal %. Números que não tenham 
sinal na frente serão interpretados co- 
mo decimais. 

Qualquer palavra que não correspon- 
da a um mnemónico será interpretada 
como um rótulo. Evite palavras pareci- 
das ou números. 

Programas Assembly devem terminar 
com end, comando que indica o final da 
listagem. 

Para editar uma linha — antes de 
apertar ENTER — utilizam-se as setas 
do teclado: “direita” e “esquerda” mo- 
vem o cursor ao longo da linha; “para 
baixo” é usada para inserir e “para ci- 

a”, para apagar caracteres. A edição 
das linhas é bem lenta. Muitas vezes, os 
caracteres digitados demoram a apare- 
cer no vídeo. 

Para sair do modo de edição, pres- 
sione simultaneamente as teclas SHIFT 
e ““seta para cima””. Elas devem substi- 
tuir o ENTER, pois, se o utilizarmos de- 
pois que tivermos digitado a última li- 
nha, uma linha em branco será incorpo- 
rada à listagem. 

De volta ao menu, pressione , pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houve algum erro durante a intro- 
dução do programa, volte ao menu e 
pressione “e”; em seguida, forneça о 
número da linha que deseja mudar. 

Se quiser inserir uma linha entre duas 
já existentes, digite-a usando um núme- 
ro intermediário, no modo de edição. 
Quando listar o programa, verá que ele 
foi renumerado e que a nova linha ocu- 
pa o lugar certo. Porém, apenas uma li- 
nha pode ser introduzida dessa maneira 
de cada vez. 

Para apagar uma linha, volte ao me- 
nu, tecle “a” e forneça o número da li- 
nha que quer eliminar. 

Quando estiver satisfeito com o pro- 
grama Assembly (programa-fonte), vol- 
te ao menu e tecle **m"" para que ele se- 
ja montado na memória. Ao mesmo 
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UTILIZACAO DAS ROTINAS DA ROM 
NO SEU PROGRAMA EM ASSEMBLER 

O Assembler é mais elementar do 
que o BASIC e outras linguagens de 
programacáo de alto nível. No entan- 
to, é muito difícil utilizá-lo, mesmo pa- 
ra a programacáo de tarefas simples, 
pois ele exige que todas as operacóes 
da UCP, da memória, e de entrada/saí- 
da sejam especificadas da maneira 
mais minuciosa possível. 

Mas existe um recurso capaz de ali- 
viar esse cansativo trabalho: chamar as 
rotinas prontas que existem na memó- 
ria ROM do computador. 

Os micros da linha TRS-80 dispóem 
de um sistema operacional elementar 
e de um interpretador BASIC, ambos 
gravados na memória ROM, Esses pro- 
gramas contém centenas de rotinas de 
operacáo do computador, que podem 
ser chamadas pelo comando JSR (des- 
vio para sub-rotina), seguido do ende- 
reco onde elas comecam. 

Em geral, cada rotina necessita de 
um ou mais argumentos de entrada, e 
devolve um ou mais argumentos de saí- 
da. Os registros de intercâmbio de da- 
dos variam, mas comumente são os 
pares de registros internos do 2-80, co- 
mo o HL e outros. Para utilizar as roti- 
nas da ROM, você precisará, portanto, 
de um “mapa da mina”. Existem vá- 
rios livros que fornecem todos os en- 
dereços e argumentos. 











tempo, o computador fornecerá uma lis 
tagem dos códigos hexadecimais equiva 
lentes: o programa-objeto. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. Se for detectado algum er- 
ro durante a montagem, volte ao menu 
e edite a linha correspondente, repetin- 
do, então, a montagem. 

A opção '"'g" do menu grava o 
programa-fonte — os mnemônicos, por- 
tanto — em disco. A opção *‘c” faz a 
operação inversa. 

Para gravar em fita cassete o progra- 
ma que acaba de ser montado, você de- 
ve teclar RESET. Contudo, não pressio- 
ne por muito tempo, nem mais de uma 
vez, sob pena de perder o programa- 
objeto e entrar no monitor de linguagem 
de máquina do TRS-80. Nos sistemas 
sem disquete não há como gravar o 
programa-fonte em Assembly. 

Para executar o programa em códi- 
go, use as instruções DEF USR e A = 
USR(0) (veja artigo da pág. 88). 









Figura da mitologia grega, o rei Midas 
recebeu de Dioniso (deus do vinho) 

o poder de transformar em ouro tudo o 
que tocava. Em nosso jogo, porém, 

as coisas náo seráo assim táo fáceis. 


A primeira parte deste jogo apresen- 
des como “Pesquisa e Desenvol- 
“Levantamento Geológico”, 
*“*Cavar mais 200 m”, “Vender Ouro no 
Mercado” e “Passar a Vez”. As sub- 
rotinas que se seguem completam o pro- 
grama, particularizando cada opção. 
A opção “Pesquisa e Desenvolvimen- 
to” é obtida por meio da tecla 1; **Le- 
vantamento Geológico” é a opção 
*Cavar mais 200 m”, a opção 3; “Ven- 
der Ouro no Mercado”, a opção 4. A 
quinta opção cuida de “Passar a Vez”, 
de forma que nenhuma rotina especial 
é necessária. As opções 1, 2 e 4 intro- 
duzem um elemento de acaso em seu re- 
sultado, tentando, assim, imitar a rea- 
lidade do trabalho de mineração. 











1000 BORDER 6: PAPER 6: INK O: 
сїз 
1010 PRINT PAPER 1; INK 6;AT 3 


,4;” PESQUISA E DESENVOLVIMENTO 
"¡AT 4,6;” (para reduzir ов cus 
tos)” 

1020 PRINT AT 7,4;"Quanto prete 
nde investir?(3)”: INPUT rd 
1050 LET a(m,4)=a(m,4)-INT (rd* 
05)-1 

1060 IF a(m,4)<0 THEN 
4)=0 

1080 LET a(m,2)=a(m,2)-rd: 
a(m,1)=a(m,1)-rd 

1100 PRINT AT 13,3;"0s custos а 
e mineracao foram";TAB 3;"reduz 
idos em S";INT (rd*.05)*1;" por 
200 m” 

1110 FOR z=1 TO 300: 
1120 RETURN 








LET a(m, 


LET 





NEXT z 


1000 GOSUB 1500 
1010 LOCATE 1,0:PRINT "Pesquisa 
e Desenvolvimento":LOCATE 1,1: 


PRINT " (para reduzir os custos 
y” 

1020 LOCATE 0,3:PRINT "Quanto p 
retende":INPUT "investir ";RD 
1030 IF RD<=0 THEN 1000 

1050 A(M,3) *A(M,3) -INT (RD/20) -1 
1060 ІҒ А(М,3)<0 THEN A(M,3)=0 
1080 A(M,1)=A(M,1)-RD:A(M,0)=A( 
M,0)-RD 

1100 PRINT:PRINT "Os custos de 
mineração foram”:PRINT "reduzid 
os em $";INT(RD/20)*1;"por 200 
=" 

1110 FOR Z=1 TO 2000:NEXT 

1120 RETURN 


1000 HOME 


1010 VTAB 1: HTAB 5: INVERSE : 


25 PROGRAMAÇÃODEJOGOS 25 


SERRA PELADA: 
O TOQUE DE MIDAS 





ADICIONE AS ROTINAS 
OUE FALTAVAM 
ж LEVANTAMENTO GEOLÓGICO 
ESCAVACÓES 



























PRINT " PESQUISA E DESENVOLVIM 


ENTO ": NORMAL PRINT : PRINT 
TAB( 10)"P/REDUZIR OS CUSTOS" 
1020 PRINT PRINT : INPUT "QU 


ANTO PRETENDE INVESTIR ";RD 


1030 IF RD « O THEN 1000 

1050 A(M,3) * A(M,3) - INT (RD 
/20)-1 

1060 IF A(M,3) < O THEN A(M,3) 
-0 

1080 A(M,1) = A(M,1) - RD:A(M,O 
) = A(M,0) - RD 

1100 PRINT : PRINT "OS CUSTOS 


DE MINERACAO FORAM REDUZIDOS": 
PRINT "EM $"; INT (RD / 20) * 1 
i" POR 200 M" 

1110 FOR Z = 1 TO 2000: NEXT 
1120 RETURN 





— 





1000 CLS 

1010 PRINT €2,"pesquisa e desen 
volvimento”:PRINT 634," (PARA RE 
DUZIR O8 CUSTOS)” 

1020 PRINT: шан PRETEND 
E INVESTIR 

1030 IF вр<о Tür 1000 

1050 A(M,3)=A(M, 3) -INT(RD/20)-1 
1060 IF A(M,3)<0 THEN A(M,3)=0 
1080 A(M,1)=A(M,1)-RD:A(M,0)=A( 
M,0)-RD 

1100 PRINT €257,"08 CUSTOS DE М 
INERACAO FORAM REDUZIDOS EM 
";INT(RD/20)*1;"POR 200 M" 

1110 FOR Z-1 TO 2000:NEXT 

1120 RETURN 


No programa do Spectrum, a linha 
1000, além de limpar a tela, muda suas 
cores. Nos demais computadore: 
res da tela permanecem as mesmas após 
a limpeza do vídeo. 

A linha 1010 coloca um rótulo no al- 
to da tela, antes que a linha 1020 per- 
gunte ao jogador quanto dinheiro será 
investido em pesquisa e desenvolvimen- 
to (RD, ou rd'no Spectrum, contém a 
quantia escolhida). 

A linha 1050 diminui o custo de mi- 
neração de acordo com a quantia inves- 
tida no processo de pesquisa. A linha 
1060 assegura que o custo de produção 
não se torne negativo. A linha 1080 acer- 
ta o saldo total e a quantia do jogador, 
de acordo com o que foi gasto em “Pes- 
quisa e Desenvolvimento” 

A linha 1100 informa qual foi a redu- 
ção de custos por 200 m de escavação, A 
linha 1110 contém um laço FOR... NEXT 
que provoca uma pequena demora antes 
que a sub-rotina termine, 


LEVANTAMENTO GEOLÓGICO 


2000 PAPER 4: BORDER 4: INK 0: 
сз 
2030 LET r(m)*0: LET c(m, 1) INT 
(RND*90) *1 LET c(m,2)*INT (( 
RND*5)*2)*200: LET c(m,3)*INT ( 
RND*200)*1: LET 11=INT (RND*3)- 
1 
2050 LET c(m,4)=c(m,2)+11*200 
2070 LET c(m,5)-0: LET kk=INT ( 
RND*100): IF kk<c(m,1) THEN LE 
T c(m,5)=1 
2080 PRINT PAPER 6; INK O;AT 2 
+5;” LEVANTAMENTO GEOLOGICO ": 
PRINT AT 5, Probabilidade de” 
: PRINT AT 6,5;"encontrar ouro: 
ic(m,1);"t": PRINT AT 
avel profundidade: ";c 
PRINT AT 10,5;"Prova 
vel quantidade: ";c(m,3 kg” 
2100 LET z=INT (RND*150000): LE 





T a(m,2)=a(m,2)-2: LET a(m,l)=a 
(2,1)-z 
2110 PRINT FLASH 1;AT 12,0;"De 
seja comecar a escavar (8/n)?" 
2120 LET r$-INKEYS: IF r$-"" TH 
EN GOTO 2120 
2130 IF r$-"s" THEN LET a(m,6) 
=0: LET r(m)=1: GOTO 3000 
2500 RETURN 

4 
nau 
2000 GOSUB 1500 
2030 R(M)=0:C(M,0)=INT(RND(1)*9 
0) *10:C(M, 1) «INT(RND(1)*5*2)*20 
0:C(M, 2) "INT (RND (1) *200*1) :LL«I 
NT (RND (1) *3) -1 
2050 C(M,3)=C(M,1)+LL*200 
2070 C(M,4)=0:KK=INT(RND(1)*100 
) :IF KK<C(M,0) THEN C(M,4)=1 
2080 LOCATE 3,0:PRINT "Levantam 
ento Geológico":PRINT:PRINT "Pr 
obabilidade de” "encontra 
r ouro:";C(M,0) 
2090 PRINT:PRINT 
NT "profundidad. 
RINT:PRINT "Provável 
antidade:";C(M,2) ;"ko" 
2100 Z=INT(150000!*RND(1)):A(M, 
1)-А(М,1)-2:А(М,0)-А(М,0)-2 
2110 PRINT:PRINT "Deseja começa 
r as":PRINT "escavações (S/N 


2120 R$=INKEYS: IF R$<>"S” AND В 
S<>"N” THEN 2120 

2130 IF R$-"S" THEN A(M,5)*0:R( 
M)*1:GOTO 3000 

2500 RETURN 


(417%! 


2000 НОМЕ 

2030 R(M) = 0:C(M,0) = ІМТ (А 
ND (1) * 90) + 10:C(M,1) = 200 
* INT ( RND (1) * 5 + 1):C(M,2 
) = INT ( RND (1) * 200 + 1):L 
L= ІМТ ( RND (1) * 3) - 1 
2050 C(M,3) = C(M,1) + LL * 200 
2070 C(M,4) = O:KK = INT ( RND 
(1) * 100): IF KK < C(M,0) THE 
N C(M,4) = 1 

2080 VTAB 1: HTAB 7: INVERSE : 
PRINT " LEVANTAMENTO GEOLOGICO 
”: NORMAL : PRINT : PRINT : PR 
INT "PROBABILIDADE DE": PRINT " 
ENCONTRAR OURO: ";C(M,0);"t" 
2090 PRINT PRINT "PROVAVEL P 
ROFUNDIDADE C(M,1);" M": PRI 
NT PRINT 'ROVAVEL QUANTIDADE 
š (M,2);" Kc" 

2100 Z = INT ( RND (1) * 15000 
0):A(M,1) * A(M,1) - Z:A(M,0) = 
A(M,0) - Z 

2110 PRINT : PRINT "DESEJA COM 
ECAR AS ESCAVACOES (S/N) ?* 
2120 GET R$ 

2130 IF R$ - "S" THEN A(M,5) = 
O:R(M) = 1:. GOTO 3000 

2500 RETURN 


2000 CL8 








2030 R(M)=0:C(M,0)=RND(90)+9:C( 

M,1)= (RND(5)+1)*200:C(M, 2) =RND( 
200) :LL=RND (3) -2 

2050 C(M,3)=C(M,1)+LL*200 

2070 C(M,4) KK=RND(100)-1:1F 

KK<C(M,0) THEN C(M,4)=1 

2080 PRINT 65,"LEVANTAMENTO GEO 
LOGICO ":PRINT €129,”PROBABIL.D 
E ENCONTRAR OURO" ;C(M,0);"2":PR 
INT 6193," PROVAVEL PROFUNDIDADE 
*;C(M,1);"M":PRINT 6257," PROVA 
VEL QUANTIDADE ";C(M,2);"KG” 
2100 Z=RND(150000)-1:A(M,1)=A(M 
.1)-2:А(М,0)-А(М,0)-2 

2110 PRINT €353,"DESEJA COMECAR 
AS ESCAVACOES ? " 

2120 R$=INKEYS:IF R$<>"8” AND R 
$<>"N" THEN 2120 

2130 IF R$-"8” THEN A(M,5)=0:R( 
M) =1:GOTO 3000 

2500 RETURN 








Todas as máquinas limpam a tela na 
linha 2000. O Spectrum também muda 
as cores da tela. A linha 2030 faz com 
que o valor de R(M) — r(m), no caso do 
Spectrum — seja zero, para indicar que 
as escavações ainda não começaram. Es- 
sa linha também calcula as possibilida- 
des de encontrar ouro, além da quanti- 
dade de metal e da profundidade pro- 
vável do veio. LL (ou Ш) ё um número 
aleatório entre —le 1 que será usado na 
próxima linha para determinar a pro- 
fundidade real da mina (lembre-se de 
que o valor em C(M,2) é apenas a pro- 
fundidade provável). 

A linha 2050 faz com que C(M,4) as- 
suma um valor igual a C (M,2) (mais ou 
menos 200 m, ou seja, 200 vezes LL). 
A seguir, a linha 2070 decide se a mina 
vai ou nào ter ouro. Se nào houver ne- 
nhum ouro, C(M,5) se tornará zero. KK 
é outro número aleatório, entre 0 e 99. 
Ele é comparado com as chances de se 
encontrar ouro — se for menor do que 
estas, C(M,5) se tornará 1 para indicar 
que há ouro na mina. * 

A linha 2080 (2090 no Apple, no 
TK-2000 e no MSX) dá ao proprietário 
o resultado do levantamento geológico. 
Os números informam as chances de se 
encontrar ouro, onde e em que quanti- 
dade. Mas a existéncia ou náo do metal 
na mina depende de uma série de fato- 
res aleatórios. Dessa forma, o jogador 
deve ser muito criterioso ao fazer seus 
investimentos. 

Agora, as más notícias: o relatório é 
pago e seu custo, imprevisível. Em to- 
do caso, a conta fica no máximo em 
$150000 (valor de Z escolhido na linha 
2100). O custo do relatório é entáo sub- 
traído das posses do jogador, e essa de- 
dução aparece no saldo total. 

A seguir é oferecida a opção de ini- 
ciar a escavação — a linha 2110 pergun- 
ta: “DESEJA COMEÇAR AS ESCA- 


VACOES (S/N)?” Se a resposta for 
sim, o programa prosseguirá na sub- 
rotina de escavação da linha 3000. 


А Е$САУАСАО 


3000 BORDER 6: PAPER 6: INK 1: 
сз 

3010 IF r(m)=0 THEN PRINT FLA 
SH l;AT 9,6;"A mina nao foi abe 
rta!”: FOR z=1 TO 10: SOUND .3, 


-10: NEXT z: RETURN 

3020 BORDER 5: INK 0: PAPER 4: 
сз 

3022 PRINT PAPER S;TAB 14;CHRS 


147;CHR$ 148;CHR$ 149;TAB 14;C 
HR$ 150;CHR$ 151;CHR$ 152;CHR$ 
153;TAB 13;CHR$ 154;CHRS$ 155;CH 
R$ 156;CHR$ 157;CHR$ 158;TAB 3l 
;CHR$ 32 
3025 FOR z*1 TO 32: PRINT CHR$ 
144;: NEXT z 
3060 PRINT AT 4,0;: FOR 2-100 Т 
O 1400 STEP 100: PRINT TAB 4-LE 
N STRS z;z: NEXT z 
3090 LET a(m,2)=a(m,2)-a(m,4): 
LET a(m,1)-a(m,1)-a(m,4): LET a 
(m,6)=a(m,6)+200: PAUSE 30 
3100 PRINT AT 3,15;CHR$ 146: FO 
R f=4 TO (a(m,6)/100)+3: PRINT 
AT f,15;CHR$ 145: FOR w=l TO 10 
: SOUND .01,-20: NEXT w: NEXT f 
3120 IF a(m,6)=c(m,4) AND c(m,5 
)=1 THEN GOTO 3500 
3130 PRINT FLASH 1; PAPER 5;AT 
6,6;" Nada de ouro ainda!": IF 
a(m,6)=c(m,2)+200 THEN PRINT 
FLASH 1; PAPER 1; INK 6;AT 18, 
0;" Nao ha ouro nesta mina. 

Уа сауаг еп outro lugar.": 
FOR z=1 TO 10: SOUND .5,-20: М 
EXT z: LET a(m,6)=0: LET r(m)=0 
3140 PAUSE 150 
3300 RETURN 
3500 PRINT PAPER 6; INK 2; FLA 
SH 1;AT £,12;”0 UR 0”: FOR z=- 
20 TO 50: SOUND .017,2: NEXT z: 
PAUSE 75 
3550 LET a(m,5)-a(m,5)*1: LET a 
(m,3)*a(m,3)*c(m,3): LET a(m,1) 
a(m,1)*(a(m,3)*er): LET a(m,6) 
=0: LET r(m)=0: GOTO 3300 


ДУ 


3000 CL8:GOSUB 1510 

3010 IF R(M)=0 THEN PRINT:PRINT 
: PRINT "А mina não foi aberta ! 
":PLAY "T25506V15AF":FOR Z=1 TO 
3000: RETURN 

3020 LOCATE 14,3:PRINT CHR$(195 
) iCHR$ (196) ; CHR$ (197) : LOCATE 14 
,4:PRINT CHR$(198);CHR$(199) ;CH 
R$ (200) ; CHR$ (201) 

3022 LOCATE 13,5:PRINT CHR$(202 
) iCHR$ (203) ; CHR$ (204) ; CHR$ (205) 
¡CHR$(206) :LOCATE 31,5:PRINT CH 

R$ (32) 

3025 LOCATE 0,6:FOR Z=0 TO 29:P 

RINT CHR$(192);:NEXT 


3060 LOCATE 0,7:FOR Z-100 TO 14 
00 STEP 100:PRINT TAB(5-LEN(STR 
$(2))) iZ:NEXT Z 

3090 А(М,1) =А(М,1) -А(М, 3) :А(М,0 
)=A(M,0)-A(M,4) :A(M,5)=A(M,5)+2 
00 

3100 LOCATE 15,3:PRINT CHR$(194 
): FOR F=4 TO (A(M,5)/100)+5:LOC 
ATE 15,F:PRINT CHR$(193):PLAY"T 
25501812M1U15A64":NEXT F 

3120 IF A(M,5)=C(M,3) AND C(M,4 
)=1 THEN 3500 

3130 LOCATE 4,0:PRINT " NADA DE 
OURO AINDA!":IF A(M,5)*C(M,1)* 
200 THEN LOCATE 0,21:PRINT "Nào 
há ouro nesta mina":PRINT "Vá 
cavar em outro lugar":PLAY"T255 
O3CDEFG" :A (M, 5) -0:R (M) 0 

3140 FOR Z-1 TO 1500:NEXT 

3300 RETURN 

3500 LOCATE 10,0:PRINT "OUR 


о 

3510 FOR Z=1 TO 10:PLAY"T25503C 
A”: NEXT 

3550 А(М,4)-А(М,4)%1:А(М,2)-А(М 
,2) *C (M, 2) :A(M,0) -A(M,0) * (A(M,2 
)*ER) :A(M, 5) -0:R (M) *0:GOTO 3140 


3000 HOME 

3010 ІР R(M) * 0 THEN УТАВ 1: 
PRINT "A MINA NAO FOI ABERTA ! 
"; CALL - 198: FOR Z = 1 TO 10 
00: NEXT : RETURN 
3020 HGR : HCOLOR= 
50 TO 279,50 

3030 HPLOT 125,45 TO 130,45 TO 
130,40 TO 125,40 TO 125,45: HP 
LOT 145,45 TO 150,45 TO 150,40 
TO 145,40 TO 145,45: HPLOT 135, 
50 TO 135,40 TO 140,40 TO 140,5 


3: HPLOT 0, 





0 
3040 HPLOT 120,50 TO 120,40 ТО 
130,30 TO 135,30 TO 135,25 TO 
140,25 TO 140,30 TO 150,30 TO 1 
50,5 TO 175,5 TO 175,35 TO 185, 
45 TO 185,50 TO 210,50 TO 175,5 
3050 HCOLOR= 6: FOR I = 58 TO 
151 STEP 8: HPLOT 0,1 TO 100,1; 
NEXT 
3090 A(M,1) = A(M,1) - A(M,3):A 
(М,0) = A(M,0) - A(M,4):A(M,5) 
= A(M,5) + 200 
3100 HCOLOR= 5: FOR I * 5 TO ( 
A(M,5) * 8 / 100) + 50: HPLOT 1 
55 + 4 * RND (1),I TO 170 - 4 
* RND (1),I:X * PEEK ( - 1633 
6): NEXT 
3120 IF A(M,5) = C(M,3) AND C( 
M,4) = 1 THEN 3500 
3130 УТАВ 22: НТАВ 1: PRINT "N 
ADA DE OURO AINDA !": IF A(M,5) 
= C(M,1) + 200 THEN PRINT "NA 
O HA OURO NESTA MINA": PRINT "V 
A CAVAR EM OUTRO LUGAR":A(M,5) 
R(M) = 0 
FOR Z = 1 TO 1500: NEXT 
HGR : HOME : TEXT : RETUR 








HOME : 9ТАВ 22: 
"OURO !!!!^: CALL 


HTAB 15: 
‚Ж 


3550 A(M,4) = A(M,4) + 1:A(M,2) 
= A(M,2) + C(M,2):A(M,0) = A(M 
+0) + A(M,2) * ER:A(M,5) = A(M, 
5) = O:R(M) = 0: GOTO 3140 





3000 CL8 

3010 IF R(M)=0 THEN PRINT 666,” 
A MINA NAO FOI ABERTA!”;:FOR Z= 
1l TO 10:80UND 120,1:NEXT:RETURN 
3015 IF A(M,5)>0 THEN LINE(140, 
40)-(157,191),PRESET,BF:GOTO 30 
90 





3020 PCLS:SCREEN 1,0:COLOR 3:LI 
NE(0,0)-(255,31), PSET,BF 

3022 PUT(131,8)-(168,31),H, PSET 
3025 FOR Z=0 TO 31:PUT(Z*8,32)- 
(2*8*7,34) , T, PSET:NEXT 

3060 FOR Z=100 TO 1400 STEP 100 
:29-8TR$ (Z) *"-" : DRAW" CASBBM" *ST 
R$ (49-8*LEN (23) ) *"* , "&STR$ (32*10 
*2/100):GOSUB 9000: NEXT 

3090 SCREEN 1,0:A(M,1)=A(M,1)-A 
(M,3) :A(M,0)=A(M,0)-A(M,4) :A(M, 
5)=A(M,5)+200 

3100 PUT (145,32)-(152,39),D,PS 
ET:FOR F=4 TO (A(M,5)/100)+3:PU 
T(145,F*10) - (152, F*10*9) , B, PSET 
:PLAY"T50O1BDBDEBDBDE" :NEXT 
3120 IF A(M,5)=C(M,3) AND C(M,4 
)=1 THEN 3500 

3125 FOR Z=1 TO 1000:NEXT 

3130 PRINT 640,"NADA DE OURO AI 
NDA! ”;:IF A(M,5)=C(M,1)+200 T 
HEN PRINT €128,"NAO HA OURO NES 
TA MINA. VA CAVAR EM OUTRO LUGA 
:PLAY"T5003CDEFG" :A (M, 5) 70: 
R(M)*0 

3140 FOR Z-1 TO 2500:NEXT 

3300 RETURN 

3500 F=40+A(M,5)/10:COLOR 2:LIN 
E(140,F)-(157,F+5) ,PSET,BF 

3510 FOR Z=1 TO 10:PLAY"TSOZCA” 
:PUT(140,F)-(157,F+5),H,NOT:NEX 
T 

3520 FOR Z-1 TO 200 EXT 

3550 A(M,4) *A(M, 4) *1:A (M, 2) "A (M 
5:2) *C (M, 2) :A (M, O) -A(M, 0) * (A (M.2 
)*ER) :A(M, 5) -0:R(M) *0:GOTO 3300 














Essa rotina é chamada de dois pon- 
tos diferentes do programa. A opgáo de 
cavar é oferecida após o levantamento 
geológico; mas ela também pode ser fei- 
ta a partir do menu, aprofundando a 
mina em 200 m — opgáo 3. 

Como de costume, a primeira linha 
limpa a tela (no Spectrum e no MSX, 
as cores mudam). A linha 3010 verifica 
se já foi feito um levantamento geoló- 
gico. As linhas 3020 a 3090 cuidam dos 
gráficos que representam a mina. A li- 
nha 3100 ilustra o processo de escava- 
ção, ao mesmo tempo que produz al- 
guns efeitos sonoros. 

A linha 3120 verifica se as escavações 
atingiram o nível provável do filão e se 
existe ouro na mina (é possível que se 
tenha cavado mais de 1000 metros ape- 


nas para descobrir que não há nenhum 
metal). Se for achado ouro, o progra- 
ma vai para a linha 3500, que dá as boas 
novas ao dono da mina, junto com al- 
guns efeitos sonoros (menos no Apple 
e TK-2000). A linha 3550 ajusta as pos- 
ses do jogador conforme a quantidade 
de ouro descoberta. 

Se não houver ouro na mina, o pro- 
grama continuará na linha 3130. Se a es- 
cavação ultrapassar o nível em que se es- 
perava achar o metal (200 m), o joga- 
dor será informado de sua inexistência. 
Se o buraco ainda não chegou a essa 
profundidade, o jogador será informa- 
do: “NADA DE OURO AINDA!” 





МЕ OURO 
4000 PAPER 6: INK 1: BORDER 6: 
CLS 
4020 PRINT INVERSE 1;AT 2,4;" 


CAIXA ECONOMICA FEDERAL ";AT 4, 
5;"Agencia de Serra Pelada”: PR 
INT AT 8,1;” Cotacao do ouro: " 
;er;" por kg";AT 14,3;"Quantos 
quilos vai vender?": INPUT nte 
4070 IF nte>a(m,3) THEN PRINT 
FLASH 1;AT 18,4;"Voce nao tem 
tanto ouro!” 

4080 LET nte=INT nte 

4090 IF nte»a(m,3) OR nte<0 THE 
N GOTO 4020 

4095 PRINT AT 16,0;CHR$ 32;TAB 
31;CHR$ 32 

4100 LET a(m,3)=a(m,3)-nte: LET 
a(m,2)=a(m,2)+(nte*er): LET a( 
m,1)=a(m,1)+(nte*er) 

4130 PRINT PAPER 5;AT 16, 
¡"kg vendidos por $”;nte*er: PA 
USE 170: RETURN 

5000 RETURN 


nau 


4000 GOSUB 1500 

4010 LOCATE 2,0:PRINT " CAIXA E 
CONOMICA FEDERAL":LOCATE 2,1:PR 
INT” Agéncia de Serra Pelada” 
4020 PRINT:PRINT "Cotação do ou 
ro:":PRINT ER;"por kg de ouro": 
PRINT:INPUT "Quantos kg vai ven 
der";NT 

4080 NT=INT(NT) 

4090 IF NT>A(M,2) OR NT<O THEN 
4000 

4100 A(M,2)=A(M,2)-NT:A(M,1)=A( 
M,1)+NT*ER:A(M,0)=A(M,0)-NT*ER 
4130 PRINT:PRINT NT;"kg vendido 
8 por";NT*ER:FOR Z«1 TO 2000:NE 





XT 
5000 RETURN 


4000 HOME 
4010 УТАВ 1: HTAB 6: INVERSE : 
PRINT " CAIXA ECONOMICA FEDERA 


L ": VTAB 2: HTAB 6: PRINT " AG 


ENCIA DE SERRA PELADA ": NORMAL 


4020 PRINT : PRINT "COTACAO DO 
OURO:": PRINT ER;" POR KG DE O 


URO”: PRINT : INPUT "QUANTOS KG 
VAI VENDER ? ";NT 

4080 NT * INT (NT) 

4090 IF NT > A(M,2) OR NT < 0 
THEN 4000 

4100 A(M,2) = A(M,2) - NT:A(M,1 


) * A(M,1) + NT * ER:A(M,0) = A 
(M,0) + NT * ER 

4130 РВІМТ : PRINT NT; КС VEN 
DIDOS POR "¡NT * ER: FOR Z * 1 
TO 1000: NEXT : RETURN 


5000 RETURN 





4000 CLS 
4020 PRINT 64,"CAIXA ECONOMICA 
FEDERAL":PRINT $136 





4080 NT=INT (NT) 

4090 IF NT>A(M,2) OR NT<O THEN 
4020 

4100 A(M,2)=A(M,2)-NT:A(M,1)=A( 
M,1)+(NT*ER) :A(M,0)=A(M,0)+(NT* 
ER) 

4130 PRINT €448,NT;"KG VENDIDOS 
POR ";NT*ER:FOR Z-1 TO 1000:NE 
XT:RETURN 

5000 RETURN 


A linha 4000 limpa a tela, como de 
costume. A linha 4020 coloca um rótu- 
lo no vídeo, imprime a cotacào do ouro 
no mercado e pergunta quantos quilos 
seráo vendidos. A linha 4070 verifica se 
o jogador tem realmente a quantidade 
de metal que pretende vender. A linha 
4080 certifica-se de que essa quantida- 
de é um número inteiro. 

Se o jogador tentar vender mais do 
que tem, ou quiser comercializar uma 
quantidade negativa de ouro, a linha 
4090 enviará o programa de volta ao iní- 
cio da sub-rotina. A linha 4100 ajusta 
as posses do jogador de acordo com o 
ouro vendido, 

Finalmente, a sub-rotina informa ao 
jogador, por intermédio da linha 4130, 
a quantia que ele recebeu pela venda do 
ouro. A linha 5000 apresenta a opção de 
passar a vez. 


RETOQUES FINAIS 


1 FOR n-USR "a" TO USR "o"*7 
: READ a. POKE n,a: NEXT n 
7000 PAPER 5: INK 0: BORDER 5: 
CLS 
7010 PRINT AT 2,4;"JORNAL DE SE 
RRA PELADA";AT 4,3;"Falencias 
e Concordatas" 



































7020 PRINT AT 10,0;" Faliu ho 
je a empresa de mine-racao ";a$ 
(m);" Ltda,": PRINT "gracas a m 
a administracao de seuproprieta 
rio." 

7025 PRINT 
ualquer tecla para recomecar 
7030 PAUSE 0: RUN 5 

8000 DATA 255,85,170,0,0,0,0,0, 
62,28,56,126,28,62,120,28 

8010 DATA 255,255,62,126,127,60 
,124,126,0,0,0,0,1,1,1,1 

8020 DATA 7,29,49,45,255,255,91 
,126,128,96,48,80,152,140,252,1 
38 

8030 DATA 1,1,1,49,49,49,49,255 
,122,187,62,95,153,255,153,126 
8040 DATA 209,177,224,128,128,1 
28,128,128,0,0,128,128,64,32,32 
‚16 

8050 DATA 1,3,7,7,4,4,7,7,255,2 
55,255,255,149,149,159,159 

8060 DATA 24,126,153,255,126,15 
3,126,219,128,192,224,240,248,1 
68,248,255 

8070 DATA 16,8,8,4,14,31,31,255 


FLASH 1;AT 20,1;" Q 


10 R=RND(-TIME) 

70 SCREEN 1:COLOR 1,10,4:KEY OF 
F 

80 FOR 1=0 TO 119 

90 READ A:VPOKE BASE(7)+192*8+I 
+A: NEXT 

7000 GOSUB 1500 


7010 LOCATE 2,0:PRINT" JORNAL D 


E SERRA PELADA ":LOCATE 3,4:PRI 
NT” FALENCIAS E CONCORDATAS" 
7020 PRINT:PRINT "Faliu hoje а 
emprésa de":PRINT "mineracáo "; 
AS$(M);" Ltda.":PRINT "gracas à 
má administracdo”:PRINT "de seu 
proprietário" 

7030 LOCATE 0,19:PRINT 
R TECLA PARA RECOMECAR” 
7040 IF INKEYS="" THEN 7040 ELS 
E RUN 

8000 DATA 255,85,170,0,0,0,0,0, 
62,28,56,126,28,62,120,28 

8010 DATA 255,255,62,126,127,60 
,124,126,0,0,0,0,1,1,1,1 

8020 DATA 7,29,49,45,255,255,91 
,126,128,96,48,80,152,140,252,1 
38 

8030 DATA 1,1,1,49,49,49,49,255 
,122,187,62,95,153,255,153,126 
8040 DATA 209,177,224,128,128,1 
28,128,128,0,0,128,128,64,32,32 
‚16 

8050 DATA 1,3,7,7,4,4,7,7,255,2 
55,255,255,149,149,159,159 
8060 DATA 24,126,153,255,126,15 
3,126,219,128,192,224,240,248,1 
68,248,255 

8070 DATA 16,8,8,4,14,31,31,255 





"QUALQUE 


7000 HOME 
7010 УТАВ 1: НТАВ 7: INVERSE 

PRINT " JORNAL DE SERRA PELADA 
^: NORMAL : УТАВ 3: HTAB 7: PR 
INT "FALENCIAS E CONCORDATAS" 


25 PROGRAMAÇÃO DEJOGOS 25 














7020 PRINT PRINT "FALIU HOJE 
A EMPRESA DE MINERACAO": PRINT 
AS(M);" LTDA. GRACAS A MA ADMI 


NISTRACAO": PRINT "DE SEU PROPR 
IETARIO" 

7030 PRINT : PRINT "QUALQUER T 
ECLA PARA JOGAR NOVAMENTE” 

7040 GET R$: RUN 

7000 CLS 


7010 PRINT €76,AS(M) : PRINT 6168 
+ "ACABA DE FALIR! ":PRINT 8449, 
"QUALQUER TECLA PARA RECOMECAR” 
7020 IF INKEYS="" THEN 7020 ELS 
E RUN 

9000 FOR К-1 ТО І.ЕМ(25) 

9010 B$-MID$(Z$,K,1) 

9020 IF B$>="0" AND B$<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 9050 
9030 IF B$-"-"THEN DRAW "BFZR4" 
9050 NEXT 

9060 RETURN 


As linhas 7000 a 7030 abrigam uma 
rotina para iniciar uma nova partida. 

No Spectrum e no MSX, as linhas 
8000 a 8070 contém os dados para os 
blocos gráficos que desenham a mina e 
o processo de perfuração. No MSX, é 
usada a tela de textos de 32 colunas. Os 
padrões são guardados na tabela de pa- 
drões — BASE(7). No TRS-Color, as li- 
nhas 9000 a 9060 desenham o buraco, 
no lado esquerdo da mina. 





2220117 TER 





КЕСОККА АО$ 
ARQUIVOS 








“distribuídos co 


arquivo usado em aplic 


o seja mais usado para definir qual- 
espécie de arquivo gravado em sé- 
Um verdadeiro arquivo sequencial 
É pelo usuário 





57  PROGRAMACAO BASIC 57 
armazenada separadamente, quan 


de de arquivos pode ser quase infinita. 
Com um programa editor de textos, por 
A maior restrição para arquivos em exemplo, tem-se arquivos separados pa- 
fita cassete é que eles só podem ser li- ra cartas padrão, artigos, avisos ete, 
dos e gravados de forma serial; assim, Uma das maiores vantagens de se tra- 
eles funcionam na T como um ar- balhar com um sistema de arquivos se~ 
quivo sequencial, ‹ 
“aplicações mais simples, isso não ch: К 1 Я dados e não ne- 
a ser um grande problema. r. 
Os arquivos seriais são 
muita m 





elizmente, para as рагай rogramas podi 









ARQUIVOS NO FORMATO ASCII 








NOMES DE ARQUIVOS 

















ra identificar os dados requeridos. 

Em fita cassete pode-se ter mais de 
um arquivo com a mesma denominação, 
ou mesmo arquivos sem nenhum nome. 
Mas esses procedimentos geram graves 
problemas. Se você instruir o computa- 
dor para ler a última versão de um ar- 
quivo que tem o mesmo nome da cópia 
anterior, ele não poderá decidir que ver- 
são deve ler e ficará com a primeira que 
aparecer. A solução é dar a cada cópia 
um nome adequado e único. 

Quando se usa um sistema de disco, 
o procedimento para a escolha de nomes 
é o mesmo. Nesse sistema, porém, é per- 
feitamente possível gravar um arquivo 
no lugar de outro (apagando este últi- 
mo), caso o mesmo nome tenha sido da- 
do aos dois. Alguns sistemas operacio- 
nais de disco impedem que isso aconte- 
ça, mas, geralmente, deve-se proteger o 
arquivo de um apagamento acidental — 
“travando-o”, como se diz no jargão da 
informática. 

Ao escolher o nome, certifique-se de 
que não está ultrapassando o tamanho 
máximo permitido por cada micro. Em 
fita, o espaço para o nome de um arqui- 
vo não vai além de dez caracteres no 
Spectrum, oito no TRS-Color e seis no 
MSX. O Apple não usa nome para ar- 
quivos em fita. Em sistemas de disco, o 
tamanho varia bastante. 

Convém ressaltar que o nome de 
qualquer arquivo computadorizado de- 
ve ser de fácil memorização. Além dis- 
so, ele precisa traduzir claramente seu 
conteúdo. Uma lista de todos os seus ar- 
quivos também ajudará bastante. 

Os processos de transferência de da- 
dos através de um mecanismo de arma- 
zenamento são descritos pelas palavras 
gravar e ler (write e read, em inglês). Ca- 


da computador tem um conjunto dife- 
rente de comandos para essas duas ope- 
rações, mas, de um modo geral, as roti- 
nas são muito parecidas. 

Normalmente, o programa principal 
é o primeiro a ser carregado na memó- 
ria do computador — ele pode ser, por 
exemplo, um editor de textos ou um ge- 
renciador de banco de dados. 

Se o programa precisar de dados que 
não estão nele próprio, estes devem ser 
carregados de um arquivo de dados ou 
do teclado, manualmente. A partir daí, 
os dados serão corrigidos, alterados e 
trabalhados. Eles não poderão ser mo- 
dificados enquanto permanecerem no 
disco ou na fita. 

Em alguns arquivos, toda a informa- 
ção tem que ser colocada na memória, 
mesmo que apenas uma pequena porção 
dela vá ser trabalhada. Este é o caso do 
Spectrum com um Microdrive. Em ou- 
tros casos, pode-se ler apenas os dados 
que serão modificados. Por fim, a in- 
formação é gravada em um mecanismo 
externo de armazenamento (disquete ou 
fita cassete), ou enviada a outro meca- 
nismo, como uma impressora. 

Analisemos agora, mais detalhada- 
mente, os estágios de gravação e leitu- 
ra. Primeiro, deve ser dada ao compu- 
tador uma instrução para abrir um ca- 
nal de comunicação, de modo que ele 
saiba que a informação transitará por 
aquele ponto. Outras informações po- 
dem ser fornecidas a partir do coman- 
do de abertura do canal de comunica- 
ção, para especificar, por exemplo, que 
tipo de periférico está sendo acessado. 
Geralmente o periférico será um grava- 
dor cassete ou uma unidade de disquete. 

Aberto o canal, são usados coman- 


dos para enviar ou gravar a informação. 


no periférico escolhido. Inicialmente, os 
comandos são empregados para receber 
e não para enviar dados. Em qualquer 
dos casos, uma área de memória será 
utilizada para armazenamento temporá- 
rio de informações (buffer). 

Quando o acesso à informação ter- 
mina, é preciso fechar o canal de comu- 
nicação. Assim, toda informação que 
estiver no meio do trajeto (ou eventual- 
mente parada no buffer) será forçada a 
terminar o percurso. Para encerrar, O 
computador marca o fim do arquivo — 
end of file (eof), em inglés. 

Até ser reaberto, o arquivo nào trans- 
mitirá nem receberá nenhuma outra in- 
formação. Isso não impede a manipu- 
lação de arquivos por outros canais 
eventualmente abertos (sempre que o 
sistema seja capaz de trabalhar ao mes- 
mo tempo com vários canais). 

As instruções para executar essas ta- 
refas variam conforme o micro. Veja- 
mos cada uma delas. As instruções SA- 
VE e LOAD (e variantes) que se aplicam 
a programas não serão abordadas. 

Em cada um dos exemplos, a letra N 
se refere ao número do arquivo que é 
usado por muitos dos comandos; X (ou 
XS) é a informação transmitida. 


Se você usa um gravador cassete pa- 
ra armazenar dados, está limitado a gra- 
var programas, bytes e matrizes. Arqui- 
vos de dados podem ser manipulados 
com um Microdrive adequadamente ins- 
talado (esse dispositivo não é fabricado 
no Brasil). Os comandos de entrada e 
saída são os seguintes: 

ОРЕМ 


utilizado com a finalidade de preparar 
o sistema para a transferéncia de in- 
formagáo. 

Em sua forma padráo, esse coman- 
do fica assim: 
OPEN4N;"m";1;"NOME DE ARQUIVO” 
onde a expressão NOME DE ARQUI- 
VO pode ser uma variável previamente 
definida. Os dados, por sua vez, são 
transmitidos pelo canal de número N, 
sendo m o canal do Microdrive. 


PRINTE 


usado na forma PRINT # N;X (ou X$) 
com o objetivo de enviar a informação 
a ser gravada para o buffer de dados. 


INPUT4 


utilizado na forma INPUT x N;X (ou 
X$) para ler dados do buffer de dados. 
Estes são lidos até que surja um CR (car- 
riage return). 


CLOSE# 


fecha um canal de comunicação previa- 
mente aberto. Seu formato é CLOSE # N. 


Existem vários comandos para abrir 
linhas de comunicação, principalmente 
em um gravador cassete. Já as unidades 
de disco são acessadas por comandos 
que variam de acordo com o sistema 
operacional de disco em uso. 


OPEN 


abre um canal de comunicação para um 
periférico específico. Para gravar dados 
em fita, esse comando toma a seguinte 
forma: 

OPEN "0”,4-1,"NOME DE ARQUIVO” 





























onde apenas NOME DE ARQUIVO é 
uma variável definida pelo programa do 
usuário, O número -1 indica o gravador 
cassete. Se quisermos abrir um arquivo 
para leitura, devemos usar o comando 
na seguinte forma: 

OPEN "I",$-1,"NOME DE ARQUIVO” 
INPUT# 


lê um cordão de um arquivo. A instru- 
ção EOF(-1) (eof significa fim de arqui- 
vo) pode ser usada para evitar erros (im- 
pede que se tente ler dados além da mar- 
cação de fim de arquivo). 


PRINT# 


envia informações para o periférico es- 
pecificado pelo número N. O comando 
toma esta forma: 


PRINTEN, XS 








onde o caractere Né — 1 para o gravador 
cassete e—2 para a impressora. 

Já o comando 

CLOSE# 


fecha o canal de comunicagáo com o pe- 
riférico. É usado na forma: 


CLOSE4N 
onde N é geralmente —1. 


nau 


O MSX pode ser conectado tanto a 
um gravador cassete como a um contro- 
lador de discos para armazenamento de 
programas e dados. Abordaremos aqui 
os comandos referentes à manipulação 
de arquivos de dados em fita: 


OPEN 


utilizado para abrir um canal de comu- 
nicação com vários periféricos, que po- 
dem ser: gravador cassete, tela de tex- 
to, tela de gráfico, impressora, aciona- 
dor de discos. Num arquivo em fita, o 
comando toma esta forma: 


OPEN "CAS:NOME ARQUIVO” 
FOR INPUT AS 4N 


para se ler dados de um determinado ar- 
quivo usando o canal N (onde N pode 
ser 1, 2 etc.). Para gravação de dados, 
substitui-se INPUT por OUTPUT. 


PRINTE 


serve para enviar dados a um periféri- 
co, Toma a forma 


PRINT4N,X (ou X$) 


Quando se usa mais de uma variável 
na mesma instrução PRINT # , é neces- 
sário que sejam tomados alguns cuida- 
dos. Se forem variáveis numéricas, não 
há problema, pois o BASIC se encarre- 
gará de separá-las. No entanto, expres- 
sões alfanuméricas devem ser separadas 
explicitamente por vírgulas: 


PRINT41,AS;”,";¡BS 


Esse comando pode ser combinado 
com a instrução USING para determi- 
nar o formato do dado. 


INPUT4 


lé dados de um determinado periférico. 
Toma a forma 


INPUTIN,X (ou X$) 


No caso de variáveis numéricas, um 
espaco, uma vírgula, um retorno de car- 
ro (CR) ou um avango de linha (LF) in- 
dicam o fim do número. 

Para variáveis alfanuméricas, seráo 
reconhecidos os marcadores acima (com 
exceção do espaço). 


LINE INPUT& 


é usado para fazer a leitura de variáveis 
alfanuméricas de um periférico. A dife- 
renga dessa instrugáo em relagáo ao co- 
mando anterior é que apenas o retorno 
de carro (CR) marca o fim do cordáo 
que está sendo lido. 


EOF (N) 


indica se o final do arquivo foi encon- 
trado. É habitualmente usado para evi- 
tar que se tente ler dados inexistentes no 
arquivo. O valor — 1 retorna quando o 
marcador de fim de arquivo é encontra- 
do. Esse comando é mais utilizado na 
forma 


IF EOF(1) THEN instrucáo 


onde instrugáo provoca geralmente o fe- 
chamento do arquivo. 


CLOSE 


serve para fechar o canal de comunica- 
ção de número N. Força o envio dos da- 
dos remanescentes no buffer de dados 
para o periférico ligado a esse canal. To- 
ma a forma 


CLOSERN 


E 


O Apple e o TK-2000 sáo extrema- 
mente limitados em sua capacidade de 
manipular arquivos em fita. Como no 
Spectrum, apenas programas e matrizes 
podem ser gravados em fita. A seguir, 
descreveremos alguns comandos e as- 
pectos mais importantes da manipula- 
ção de arquivos pelo sistema operacio- 
nal DOS &3.3 do Apple. 

Inicialmente, convém chamar a aten- 
ção para um fato essencial, que já cus- 
tou muitas horas de trabalho a mais de 
um programador: todos os comandos 
do sistema operacional devem ser pre- 
cedidos de um caractere especial — 
CTRL-D., Esse caractere deve estar sem- 
pre na primeira posição da linha. Desse 
modo, se antes de um comando houver 
um PRINT seguido de um ponto e vír- 
gula, que deixe o cursor numa posição 
que não seja a primeira da linha, o co- 
mando não será reconhecido como do 
DOS. Igualmente importantes são as 
formas de colocar o CTRL-D na linha 
do comando. A mais segura consiste em 
definir uma variável que contenha esse 
caractere e colocá-la na linha de coman- 
do. Outra maneira é simplesmente acio- 
nar CCTRL-D (ou seja, pressionar a te- 
cla CTRL simultaneamente com a tecla 
D) logo após ter aberto as aspas exigi- 
das pelos comandos do DOS. 

Nos exemplos a seguir, recorreremos 
ao primeiro método, usando a variável 


DS (frequente entre os programadores do 
Apple). Ela é definida por meio do có- 
digo ASCII de CTRL-D: 

D$*CHR$ (4) 


Vejamos alguns comandos: 
OPEN 


abre um canal de comunicação entre a 
CPU e uma unidade de disco, assumin- 
do a seguinte forma: 


PRINT D$;"OPEN NOME ARQUIVO”, 
Dd, Ss, Vv 


onde NOME ARQUIVO pode ser repre- 
sentado por uma variável alfanumérica 
e ter até trinta caracteres. A letra D é 
seguida do número do drive acessado 
(1 ou 2). A letra S é acompanhada do 
número do soquete (ou s/of) no qual a 
placa que controla as unidades de dis- 
co está instalada (esse número é, em ge- 
ral, 6). Е У é seguido do número do vo- 
lume do disquete, que é definido no mo- 
mento de sua formatação. Esses três Ш- 
timos parâmetros são opcionais е іпде- 
pendentes: a presença de um não impli- 
ca o uso dos demais. 


READ 


é empregado para habilitar um arquivo 
em disco para a leitura de dados e toma 
a seguinte forma: 


PRINT DS, "READ NOME ARQUIVO” 

A seguir, digita-se o comando IN- 
PUT para ler os dados desejados do ar- 
quivo em uso. O comando PRINT DS, 
por-sua vez, encerra a leitura de infor- 
mações do arquivo de dados (DS deve 
conter o caractere CTRL-D). 


WRITE 


envia e grava os dados em um arquivo 
em disco. Ele é usado na forma 


PRINT D$;"WRITE NOME ARQUIVO” 


Ele deve ser acompanhado de vários 
comandos PRINT para o envio dos da- 
dos. No caso de variáveis alfanuméricas, 
elas devem ser separadas por um CR (re- 
torno de carro) para serem lidas indivi- 
dualmente mais tarde: 


PRINT AS;CHR$(13);B$ 
CLOSE 


fecha o canal de comunicação estabele- 
cido. Ele é usado na forma 


PRINT D$,"CLOSE NOME ARQUIVO” 
,Dd, Ss, Uv 


Como no comando OPEN, os trés ül- 
timos parámetros sáo opcionais. Neste 
caso, NOME ARQUIVO pode ser omi- 
tido, provocando o fechamento de to- 
dos os arquivos abertos no momento. 


PROGRAMACAO DE 
GRÁFICOS EM 3-D (4) 


Agora que vocé já conhece os segredos 
da perspectiva, pode reunir 

vários problemas e rotinas e desenhar 
as mais diversas figuras 

flutuando no espaco interestelar. 


Até aqui trabalhamos apenas com 
formas retangulares, quadrados e círcu- 


los concéntricos, Ao avangar um pou- 
co mais em nosso estudo, entretanto, 
aprendemos a combinar (por meio de 
várias transformações) uma série de gra- 
des numa vista em perspectiva de um 
cubo. Este artigo ensina como pequenas 
mudanças no programa desenvolvido 
até este ponto pode nos tornar capazes 
de desenhar uma grande variedade de 
imagens tipo wireframe. 
Começaremos com um desenho de fi- 


OBJETOS MÚLTIPLOS 

VARIE A PERSPECTIVA 
“COMO DESENHAR UM GLOBO 
CONTORNE O OBJETO 
DESENHE UM TORO 


guras múltiplas. Se você já testou o pri- 
meiro programa do artigo Programação 
de Gráficos em 3-D (3), deve ter nota- 
do as alterações da imagem em perspec- 
tiva quando a distância do observador 
em relação ao objeto (D) é pequena, e 
o pouco efeito de perspectiva quando es- 
sa distância, ao contrário, é muito gran- 
de. Esse programa será desenvolvido 
agora de maneira a mostrar quatro 
cubos e náo apenas um. 








E 


Os usuários que gravaram em fita ou 
disco os programas dos artigos prece- 
dentes desta série estão livres de boa par- 
te do trabalho de digitação. Os que não 
fizeram isso terão que inserir não só o 
programa do artigo anterior (que se ini- 
cia na página 641) como também a ro- 
tina que desenha círculos, apresentada 
no primeiro artigo desta série (página 
581). 

O programa é constituído de blocos 
e rotinas, o que facilita a sua modifica- 
ção para representar ao mesmo tempo 
quatro imagens em vez de uma. 

Desse modo, se quiséssemos desenhar 
um conjunto de quatro cubos, por 
exemplo, precisaríamos especificar suas 
posições na tela e chamar quatro vezes 
a Rotina do Cubo. A posição estaria 
melhor especificada na rotina que trans- 
forma as coordenadas. 

Passemos da teoria à prática. Para 
começar, modifique essa parte do pro- 
grama como mostramos a seguir (mas 
não rode o programa por enquanto): 











Globos, elipses, cubos, estações orbitais: as possibilidades 
criadas pelo programa do toro e pela rotina da grade 
praticamente ilimitadas. Observe a deformação na perspectiva 


8500 
+ xo 
8510 
+ YO 
8520 
+ 20 


nau 


8500 
8510 
8520 


8500 
8510 
8520 


dos cubos, com pontos de fuga muito próximos. 


Xl = T1 * X +74 * Y * T7 
YL e T2 * X T5 * Y * T8 


Zl = T3 * X * T6 * Y * T9 





X1=T1*X+T4*Y+T7+XO 
Y1-T2wX+TS*Y+T8+YO 
Z1-T3*X*T6*Y* T9420 


LET X1*T1*X*TA* Y*T7*XO 
LET Yl-T2*X4T5*Y*T84YO 
LET Z1-T3*X*T6*Y*T9*20 















о 


As variáveis XO, YO e ZO no final 
dessas trés linhas especificam um equi- 
valente, em cada uma das trés coorde- 
nadas, para determinar a separação dos 
quatro cubos. São atribuídos valores a 
essas variáveis antes de os cubos serem 
desenhados. 

Agora digite essa outra seção de pro- 
grama e rode-a para ver qual é o efeito 
do equivalente; 


[E 


1520 GOSUB 1000 
1530 XO = PP:YO = - PP:Z0 = 0 
120 L = 20:PP = 20:N = 2 
150 GOSUB 1500 

^UPP:YO = = 





1500 ХО = 
0 


PP:ZO = 

















1540 
1550 
1560 
1570 
1580 
1590 


120 


GOSUB 1000 


XO = PP:YO = PP:ZO = 0 


GOSUB 1000 


ХО = - PP:YO = PP: 


GOSUB 1000 
RETURN 


L=10:PP=20:N=2 


150 GOSUB 1500 


1500 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 


X0=-PP:YO=-PP:Z0=0 
GOSUB 1000 
XO=PP:YO=-PP:Z0=0 
GOSUB 1000 
ХО=РР:ҮО=РР:20=0 
GOSUB 1000 
ХО=-РР:ҮО=РР:20=0 
GOSUB 1000 

RETURN 


Hobo dans PROGRAMAÇÃO ASH E HE ШИ ШИН!!! 


А versão para o MSX é a mesma do 
TRS-Color, exceto pela linha: 


120 L=20:PP=20:N=2 


120 LET L=20: LET PP=20: LET N 
=1 

150 GOSUB 1500 

1500 LET XO--PP: LET YO--PP: LE 
Т 20-0 

1520 GOSUB 1000 

1530 LET XO=PP: LET YO=-PP: LET 
20-0 

1540 GOSUB 1000 

1550 LET XO=PP: LET YO=PP: LET 
20=0 


























1560 GOSUB 1000 

1570 LET XO--PP: LET YO-PP: LET 
20-0 

1580 GOSUB 1000 

1590 RETURN 

A linha 120 contém a variável PP, 
que transfere o valor para o equivalen- 
te na linha 1500. 

A linha 150 chama uma rotina para 
desenhar quatro cubos. A sub-rotina es- 
pecifica uma posigáo, como na linha 
1530, por exemplo, e chama a rotina do 
cubo na linha seguinte, desenhando as- 
sim os quatro cubos. 

Ao rodarmos o programa, teremos 
que fornecer alguns dados. O programa 
pedirá primeiro pelo valor de D (distán- 
cia do plano de projecào). O valor 1000 
será suficiente para comecarmos. O pro- 
grama entào pedirá para que forneca- 
mos a posição do observador (X, Y e Z). 
Experimente os valores que sugerimos 
a seguir e note como as imagens se dis- 
torcem quando D é pequeno (mas não 
quando ele é grande). Tente usar seus 
próprios valores também, incluindo mi- 
lhares para D e números negativos ou 
zero para X, Y, e Z: 








= 





D x Y z 

100 55 0 0 

900 200 -250 200 
20000 1000 3000 10000 


A grande variedade de vistas possí- 
veis com este programa nos permite fa- 
zer vários experimentos, mas nào deve- 
mos nos limitar a modificar apenas os 
valores da posicáo do observador. A li- 
nha 120 contém variáveis responsáveis 
pelo comprimento dos lados do cubo L, 
pela separação destes (PP) e pelo núme- 
ro de quadrados na grade (N): três va- 
riáveis que podem ser alteradas antes de 
se rodar o programa. 


DESENHE UM GLOBO 





Embora curto, o programa que aca- 
bamos de inserir é capaz de desenhar 
imagens complexas, pois pode chamar 
qualquer uma das muitas rotinas conti- 
das na listagem. Uma dessas rotinas po- 
deria ser aquela que desenha círculos 
concéntricos (linhas 6000 a 6160), apre- 
sentada no artigo Programacáo de Grá- 
ficos em 3-D (1), à página 581. Caso ela 
nào esteja em seu programa, digite-a no- 
vamente e grave-a em disco ou fita pa- 
ra eventual uso futuro. 

Em seguida, modificaremos o pro- 
grama para que ele chame a rotina do 
círculo, em vez de chamar as rotinas da 
grade, do lado ou do cubo. Apague a 
linha 120 e acrescente estas linhas: 


[é][@) 


150 R = 20:N = 18: GOSUB 2000 
2000 T7 = 0:T8 - 0:79 - 0 
2010 T4 = 0:T5 = 0:T6 = 1 
2040 KA = 2 * PI / N 

2050 КВ = 0 . 
2060 FOR KC = 1 TO INT (N / 2 


) 

2070 T1 = COS (KB):T2 = SIN ( 
КВ) :Т3 = 0 

2080 XS = 0:YS = O: GOSUB 6000 
2090 KB = KB + KA 

2100 NEXT KC 
2110 TI = 1:T2 
2120 Т4 = 0:75 
2130 КА = КА / 
2140 KB = O:RR 
2150 FOR KC = 
2160 T7 = 0:T8 
OS (KB) 

2170 XS = 0:YS = 0:R = RR * SI 
N (KB): GOSUB 6000 

2180 KB = KB + KA 

2190 NEXT KC 

2200 RETURN 


Т 


150 R-20:N-18:GOSUB 2000 


0:73 - 0 
1:76 = 0 
R 

TO N 


0:79 = RR * C 


ranas 















2010 T4-0:T5-0:T6-1 

2040 KA=2*PI/N 

2050 KB-0 

2060 FOR KC=1 TO INT(N/2) 

2070 T1=COS(KB) :T2=SIN(KB) :T3=0 
2080 XS-0:Y8=0:GOSUB 6000 

2090 KB=KB+KA 

2100 NEXT KC 

2110 T1-1:T2-0:T3-0 

2120 T4=0:T5=1:T6=0 

2130 

2140 : 

2150 FOR KC=1 TO N 

2160 T7-0:T8-0:T9-RR*COS (KB) 
2170 XS8-0:YS-0:R-RR*SIN (KB) :GOS 
UB 6000 


2180 KB=KB+KA 
2190 NEXT KC 
2200 RETURN - 


100 LET X0=0: LET YO-0: LET 20 
=0 

150 LET R-20: LET N-18: GOSUB 
2000 

2000 LET T7-0: LET T8-0: LET T9 
-0 

2010 LET T4-0: LET T5-0: LET T6 
=l 


2040 LET KA=2*PI/N 

2050 LET KB=0 

2060 FOR K=1 TO INT (N/2) 

2070 LET T1=CO8 KB: LET T2=SIN 


KB: LET T3=0 

2080 LET XS=0: LET YS=0: GOSUB 
6000 

2090 LET KB-KB*KA 

2100 NEXT K 

2110 LET Tl-1: LET T2-0: 
-0 

2120 LET T4-0: LET T5=1 
-0 

2130 LET KA-KA/2 

2140 LET KB=0: LET RR=R 
2150 FOR K=1 ТОМ 

2160 LET T7-0: LET T8-0: 


=RR*COS KB 

2170 LET XS-0: LET YS 
RR*SIN KB: GOSUB 6000 
2180 LET KB=KB+KA 
2190 NEXT K 

2200 RETURN 





Ao rodar o programa, devemos for- 
necer valores para D, bem como para a 
posigáo do observador. Com esses va- 
lores, a linha 150 chama a rotina que 
acabamos de inserir e desenha um glo- 
bo. Este é obtido por intermédio do de- 














“E 


senho de uma série de elipses (ou círcu- 
los, dependendo da posigáo do observa- 
dor). Tais elipses formam as linhas de 
longitude (que ligam os pólos do globo) 
e as de latitude, que correm paralelas à 
linha do equador. 

O raio do globo é especificado em R, 
na linha 150, e o número de linhas de 
latitude e longitude, em N; este deve ser 
um valor par e maior do que 2. As li- 
nhas 2000 a 2050 ajustam as variáveis 
para posicionar o globo e para usá-las 
com contadores. O laço entre 2060 e 
2100 desenha as linhas de longitude, e 
o que fica entre 2150 e 2190 traça as li- 
nhas de latitude. 

O eixo do globo corta os pólos e sua 
direção é determinada pelas variáveis 
cujos valores definimos no começo do 
programa. Para verificar como os pó- 
los do globo são posicionados em rela- 
ção aos eixos da tela, estabeleça zero pa- 
ra duas das coordenadas da posição do 
observador (0, 0, 200, por exemplo). De- 
pois, defina valores positivos ou nega- 
tivos para as três coordenadas e veja co- 
mo os pólos se movimentam em relação 
aos eixos. 


DO GLOBO A! 





RO 


O globo é uma das formas mais sim- 
ples; para desenhá-lo, recorremos a uma 
série de elipses, mas o mesmo progra- 
ma contém todos os elementos necessá- 
rios para o desenho de uma forma mais 
exótica — um toro (ou argola). Para 
realizá-lo, precisamos apenas de peque- 
nas modificacóes na rotina do globo, co- 
mo mostra a listagem a seguir: 





150 R = 10:N = 18:RT = 20:N2 = 
18: GOSUB 2000 

2040 КА = 2 * PI / N2:NC = N2 
2045 IF RT = O THEN NC = INT 


(NC / 2) 
2060 FOR KC = 
2080 XS = RT:YS = 0: 


1 TO NC 
GOSUB 6000 


2130 
2135 
2 

2170 xs = 
* SIN (KB):N = N2: 


KA= 2* PI / N 
IF RT * 0 THEN KA = KA / 


0:YS = 0:R = RT + RR 
GOSUB 6000 






150 R=10:N=18:RT=20:N2=18:GOSUB 
2000 

2040 KA-2*PI/N2:NC-N2 

2045 IF RT=0 THEN NC=INT(NC/2) 
2060 FOR KC=1 TO NC 

2080 X8=RT:Y8=0:GOSUB 6000 
2130 KA=2*PI/N 

2135 IF RT-0 THEN KA-KA/2 





Há alguma forma de se acelerar o 
desenho da estação espacial? 

O modo mais grosseiro de se acele- 
rar o programa consiste em reduzir o 
número de etapas nas rotinas principais 
— a rotina do círculo na estação espa- 
cial e a da grade nos cubos. Contudo, 
esse método reduz a suavidade das 
elipses e altera a estrutura do desenho. 
Uma alternativa melhor seria diminuir 
o número de acessos a essas rotinas. 

Se quisermos, por exemplo, diminuir 
o número de segmentos que cortam о 
tubo de um toro, devemos reduzir os 
valores de R, N, RT e N2 na rotina do 
toro que começa na linha 2000. É ne- 
cessário também que as rotinas mais 
usadas estejam no começo do progra- 
ma e que se usem variáveis em vez de 
números, sempre que possível. O uso 
indiscriminado de comandos GOTO 
também desacelera a execução de um 
programa. 

Talvez a maneira mais fácil de ace- 
lerar esse programa seja omitir o dese- 
nho dos tubos que ligam o toro ao glo- 
bo; faremos isso com um simples des- 
vio (GOTO) no programa 








2170 X8=0:Y8=0:R=RT+RR*SIN (KB) : 
N*N2:GO8UB 6000 


150 LET R=10: LET N=18: LET RT 
=20: LET N2=18: GOSUB 2000 
2040 LET KA=2*PI/N2: LET NC=N2 
2045 IF RT=0 THEN LET NC=INT ( 
NC/2) 

2060 FOR K=1 TO NC 

2080 LET XS-RT: LET YS=0: GOSUB 
6000 

2130 LET KA-2*PI/N 

2135 IF RT-0 THEN LET KA-KA/2 
2170 LET XS-0: LET YS-0: LET R-* 
RT+RR*SIN KB: LET N-N2: GOSUB 
6000 


Rode o programa e defina valores pa- 


ra D e para a posição do observador 
(1000, 200, 200, 200, por exemplo). Des- 
ta vez, R contém o raio interno do tu- 
bo, e o número de anéis é determinado 
por N. Esses anéis são equivalentes às 
linhas de longitude no globo. RT espe- 
cifica a distância entre a origem e o tu- 
bo, e N2 determina o número de linhas 
que formam o tubo, o que equivale às 





























linhas de latitude no globo. O valor de 
RT deve ser maior que o de R, mas a 
rotina funcionará bem mesmo se isso 
não acontecer. Altere o valor dessas va- 
riáveis e observe o efeito obtido. Se RT 
for zero e N igual a N2, o toro se trans- 
formará numa esfera, como aquela da 
rotina do globo. 





MO COMBINAR 





Náo seria difícil substituir a rotina do 
cubo que desenha quatro imagens jun- 
tas na tela pela do globo ou do toro. Do 
mesmo modo, também seria simples 
chamar qualquer combinação das três 
rotinas e desenhar, por exemplo: cubos 
dentro de um globo ou de uma argola 
ou mesmo um sistema em que uma ar- 
gola contenha um globo que, por sua 
vez, contenha um cubo. Poderíamos 
ainda usar declarações GOTO em cer- 
tas linhas para suprimir os dois últimos 
lados, tornando assim menos confuso o 
desenho. Digite essas linhas e rode o 
programa para ver surgir uma imponen- 
te estação espacial. 


[ok] [có] 


150 GOSUB 3000 

3000 R = 6:N = 12:RT = 40:N2 = 
24: GOSUB 2000 

3030 FOR F = 1 TO 6 

3040 А = (F + .25) * PI / 3:11 
= 10:L2 = 34:N1 = 12:R = 2:N2 = 
8: GOSUB 3500 

3050 NEXT 

3060 R = 10:N = 12:RT = O:N2 = 
12: GOSUB 2000 

3070 RETURN 

3500 SA SIN (A) 

3530 CA = COS (A) 

3540 T1 = - SA:T2 = CA:T3 = 0 
3550 T4 = 0:T5 = 0:T6 = 1 


3560 EA (L2 - L1) / N1 

3570 EB 1 

3580 FOR EC = 0 ТО М1 

3590 ЕВ * СА:Т8 = ЕВ * SA: 
T9 * 0 

3600 
B 6000 

3610 ЕВ = ЕВ + ЕА 

3620 МЕХТ 

3630 Т1 = СА:Т2 = ЗА:Т3 = 0 
3640 FOR EC = 1 TO N2 

3650 EA = EC * PI / 8 

3660 T7 = R * SA * COS (EA):T8 
= - R*CA* COS (EA):T9 = R 
* SIN (EA) 

3670 ХЗ = 11:ҮЗ = 0:ХЕ = 12:ҮЕ 
= 0: GOSUB 9500 

3680 МЕХТ 

3690 RETURN 


0:YS = 0:N = N2: GOSU 





150 GOSUB 3000 
3000 Re =12: RT=40:N2=24:GOSUB 











2000 
3030 FOR F-1 TO 6 

3040 A=(F+.25)*P1/3:L1=10:L2=34 
:N1*12:R*2:N248:GOSUB 3500 

3050 NEXT 

3060 R=10:N=12:RT=0:N2=12:G08UB 
2000 
3070 
3500 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 


RETURN 
SA=SIN(A) 
CA=COS (A) 
Tl=-SA:T2=C/ 
T4=0:T5=0:Tl 
EA” (L2-L1) /N1 

ЕВ-І1 

FOR EC-0 TO Nl 
T7-EB*CA:TB-EB*SA:T9-0 
X8=0:Y8=0:N=N2:GOSUB 6000 
EB=EB+EA 

NEXT 

T1=CA:T2=SA:T3=0 

FOR EC=1 TO N2 

3650 EA=EC*PI/8 

3660 T7=R*SA*COS (EA) :T8=-R*CA*C 
OS (EA) : T-R*SIN(EA) 

3670 XS=L1:YS=0:XE=L2:YE=0:GOSU 
B 9500 

3680 NEXT 

3690 RETURN 


na 


150 GOSUB 3000 

3000 R=6:N=12:RT=40:N2=24:GOSUB 
2000 

3030 FOR F=1 TO 6 

3040 A=(F+.25)*PI/3:L1=10:L2=34 
:N1=12:R=2:N2=8:GOSUB 3500 

3050 NEXT 

3060 R=10:N=12:RT=0:N2=12:GOSUB 
2000 
3070 
3500 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 









RETURN 

SA=SIN(A) 

CA=COS (A) 
Tl=-SA:T2=CA:T3=0 
T4=0:T5=0:T6=1 

EA* (L2-L1) /N1 

EB=L1 

FOR EC-0 TO Nl 
Т7"ЕВ%СА:Т8-ЕВ%5А:79-0 
XS=0:YS=0:N=N2:GOSUB 6000 
ЕВ-ЕВ+ЕА 

МЕХТ 

TI=CA:T2=SA:T3=0 

FOR EC=1 TO N2 

3650 EA-EC*PI/B 

3660 T7=R*SA*COS (EA) :T8=-RACA*C 
OS (EA): T9=R*SIN(EA) 

3670 XS=L1:YS=0:XE=L2:YE=0:GOSU 
B 9500 

3680 NEXT 

3690 RETURN 


150 GOSUB 3000 


3000 LET R=6: LET N=24: LET RT= 


40: LET N2=24: GOSUB 2000 
3030 
3040 


FOR F-1 TO 6 

LET A=(F+.25)*PI/3: LET LI 
LET L2=34: LET N1-12: LET 
LET N2-8: GOSUB 3500 

NEXT F 

LET R=10: LET N-12: LET RT 





























COMO MELHORAR A NITIDEZ 

Quando a imagem dos quatro cubos 
é pequena — como acontece sempre 
que os valores para a posicáo do ob- 
servador (X, Y e Z) sáo bem maiores 
que o da distância de observação D — 
torna-se difícil perceber o que se pas- 
sa durante a execução do desenho. 
Pode-se melhorar a nitidez inserindo de- 
clarações GOTO em locais apropriados 
ao longo do programa (entre as linhas 
1000 e 1170). A mais simples dessas 
declarações seria GOTO 1220, inseri- 
da na linha 1125 (linha nova) do pro- 
grama dos quatro cubos. 

























=0: LET N2=12: GOSUB 2000 

3070 RETURN 

3500 LET SA=SIN A 

3530 LET CA=COS A 

3540 LET Tl--SA: LET T2-CA: LET 
T3-0 
3550 LET 
al 

3560 LET 
3570 LET 


Т4=0: LET T5=0: LET 76 


EA= (L2-L1)/N1 

EB=L1 I 
3580 РОВ Е=0 ТО М1 

3590 LET T7=EB*CA: ГЕТ T8=EB*SA | 
: LET T9=0 

3600 LET XS=0: LET YS=0: LET N= 
N2: GOSUB 6000 

3610 LET EB=EB+EA 

3620 NEXT E 

3630 LET Tl-CA: LET T2=SA: 
T3-0 
3640 


LET 


FOR E-1 TO N2 

3650 LET EA=E*PI/8 

3660 LET T7-R*SA*COS EA: LET T8 
--R*CA*COS EA: LET T9-R*SIN EA 
3670 LET XS-Ll: LET YS-0: LET X 
E=L2: LET YE=0: GOSUB 9500 
3680 NEXT E 

3690 RETURN 





A extensão de experimentos possíveis 
com o programa de toro é ilimitada, 
Tente alguns números pequenos para D 
(de 100 a 500, digamos), juntamente 
com diversos valores para X, Y e Z; vo- 
cé obterá, assim, diferentes perspectivas 
(especialmente porque os segmentos do 
toro que estiverem muito próximos se- 
ráo omitidos). Tente também valores 
grandes para D e observe o que aconte- 
ce com a distorção. 

Agora, como simples desafio, pode- 
ríamos dar um toque final ao programa, 
adicionando cor ao fundo, por exemplo, 
Deixaremos por conta de sua criativida- 
de incluir estrelas e planetas ao redor da 
estação. 
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Este jogo de adivinhacáo de palavras 
agrada a todas as idades, pode ter o 
nível de dificuldade que se queira e é 
muito versátil. Inspirado no “jogo da 
forca"', destina-se a dois jogadores. 


Alguns jogos para computador nào 
são apenas recreativos — como os de 
aventura —, prestando-se muito bem 
para fins educativos. É o caso do que 
apresentamos aqui, inspirado no conhe- 
cido **jogo da forca''. 

Este, adaptado ou nào para o com- 
putador, ajuda nào só a ampliar o vo- 
cabulário do jogador, assim como seus 
conhecimentos gerais sobre vários temas 
(já que é usual a definição prévia de um 
assunto sobre o qual as frases ou pala- 
vras versaráo). 

O jogo de INPUT, destinado a duas 
pessoas, também tem como objetivo a 
adivinhação de palavras ou frases. 
mais interessante e mais divertido que 






ADIVINHAÇÃO 
DE PALAVRAS 


o tradicional ““jogo da forca” e tão edu- 
cativo quanto ele. Pode ser jogado da 
mesma maneira, estabelecendo-se um 
assunto, o número de letras das palavras 
ou outro critério que se desejar. 








UM DESAFI0 PARA D0IS 
MONTAGEM DA TELA 

AS REGRAS DO JOGO 

OS VALORES DAS LETRAS 
ESTRATÉGIA 





nos usuais tém um valor baixo. A frase 
a ser adivinhada aparece como uma se- 
qüéncia de asteriscos. 

No rodapé da tela encontram-se as 
instruções e, também, um espaço para 
os comandos e palpites. 


0 JOGO 
ESTRATEGIA 


Inicialmente, digite o nome dos dois 
jogadores. Em seguida, escolha o nüme- 
ro de palavras da frase que cada joga- 
dor escreverá. Observe que, muitas ve- 
zes, frases mais longas são mais fáceis 
de se adivinhar, devido ao maior núme- 
ro de letras que aparecem. 

Depois de ter escolhido o número de 
palavras, defina o nümero de jogadas 
que irão constituir a partida — isto é, 
quantas palavras cada jogador terá pa- 
ra adivinhar. 

O primeiro jogador deve, entào, pen- 
sar em uma frase e escrevê-la no com- 
putador. O adversário não precisa estar 
ausente enquanto você digita sua frase, 
pois as letras não aparecerão na tela. 
Mas, confiando em seu oponente, você 
poderá optar por ver as letras, o que lhe 
dará a certeza de que não cometeu ne- 
nhum erro de digitação. 

Deixe apenas um espaço entre cada 
uma das palavras da frase. No caso de 
um ünico vocábulo, nenhum espaco é 
permitido. O tamanho máximo de cada 
frase é de quarenta caracteres no micro 
Apple e no TK-2000, 64 no Spectrum e 
no TRS-Color e 78 no MSX. 

Quando terminar a digitação, pres- 
sione a tecla « ENTER » para que a te- 
la principal apareça. Em seu topo, você 
dará, então, o nome dos jogadores e o 
número de pontos de cada um — 200, 
рага сотесаг о |ого. 

Abaixo do placar, há uma tabela in- 
dicando os valores das letras. As de uso 
frequente têm valor mais alto. As me- 


O jogador tem três opções de joga- 
da: comprar letras (ou espaço), adivi- 
nhar uma letra em determinada posição, 
ou adivinhar a frase toda. 

No início da jogada, uma boa opção 
é comprar um espaço — se suspeitar que 
a frase tem mais de uma palavra, é cla- 
ro. Vogais são caras, mas aparecem com 
frequência. As letras mais baratas apa- 
recem muito menos e você corre o risco 
de não esclarecer nada com elas. Sem- 
pre é mais fácil chegar à frase correta 
quando se tem algumas consoantes — 
portanto, não se preocupe demais com 
аѕ уораіѕ. 

Quando a frase começar a tomar for- 
ma, provavelmente você quererá adivi- 
nhar uma letra em determinada posição. 
Tendo uma palavra como S*U, por 
exemplo, a letra O será um bom palpi- 
te. É nesse momento que se pode ganhar 
pontos. Colocando uma letra na posi- 
€ào correta, vocé ganha o seu valor em 
pontos. Se errar, perde apenas metade 
do valor. Pressione XX para selecionar 
esta opção e dar o seu palpite. 

Você pode, também, ter uma súbita 
inspiração e tentar acertar a frase toda. 
Nesse caso, deve pressionar ZZ с еѕсге- 
ver a frase, Se ela estiver correta, o va- 
lor de todas as letras que ainda não ti- 
nham sido descobertas será acrescenta- 
do ao seu placar. Se você errar, perderá 
50 pontos. 

Digite a primeira parte do programa. 
Estas linhas fazem o computador accei- 
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tar todos os dados para iniciar o jogo. 
Mas com ela vocé náo irá muito longe. 
A parte final — que contém as rotinas 
que léem os palpites, fazem as corregóes 
e contam os pontos — fica para o pró- 
ximo artigo. 

Náo se esquega de gravar o programa. 








10 LET RS="PALAVRA": LET W=14 
LET d=0: LET f=1: LET 9$-"" 
LET 9=0: LET k=0: LET q3= 
LET ta-200: LET tb=200: LET 

tc=0: LET b=0: РОКЕ 23609,50: 

POKE 23658,8: LET i$-"": LET 

j$-"": LET z$* LET cg="" 

20 FOR n=0 TO 7: READ y: POKE 

USR "a"*n,y: NEXT n 


30 DATA 255,129,129,129,129, 
129,129,255 

40 INPUT "NOME DO PRIMEIRO JO 
GADOR ? (ATE 7 LETRAS)", 
LINE a$ 

50 INPUT "NOME DO SEGUNDO JOG 
ADOR ? (ATE 7 LETRAS)" 
, LINE b$ 

60 IF LEN a$>7 OR LEN b$>7 
THEN GOTO 40 

70 CLS : INPUT "QUANTAS PALAV 
RAS POR FRASE? (1-9)", LINE c$ 






















80 IF LEN c$<>1 THEN GOTO 70 
90 IF CODE c$<49 OR CODE c$> 











57 THEN GOTO 70 

100 LET c=VAL c$ 

110 INPUT "NUMERO DE JOGADAS ? 
(1 а 9)”, LINE t$ 

120 IF LEN t$<>1 THEN GOTO 
110 

130 IF CODE t$<49 OR CODE t$> 
57 THEN GOTO 110 

140 LET t=VAL t$ 

150 IF c>1 THEN LET j$-"S": 
LET 1$="COM UM ESPACO ENTRE CA 
DA”: LET r$="FRASE” 

160 PRINT a$;",E SUA VEZ DE JO 
GAR."''"INTRODUZA SUA FRASE DE 
"ici" PALA - VRA";39;".AS LETR 
AS QUE VOCE INTRODU-ZIR SERAO 
INVISIVEIS,MAS SE VOCEQUISER V 
ER ENTAO PRESSIONE '0'. PARA C 
ONTINUAR, PRESSIONE 1.” 

170 LET k$-INKEYS: IF k$-"" 
THEN GOTO 170 

190 IF k$-"0" THEN POKE 23624 
,56: INPUT LINE BS: CLS : 
GOTO 220 

200 IF k$-"1l" THEN РОКЕ 23624 
+63: INPUT LINE s$: CLS : 
POKE 23624,56: GOTO 220 

210 GOTO 170 

220 LET 1=LEN s$ 

230 IF 1-0 THEN PRINT "ENTRAD 
A ILEGAL. TENTE DE NOVO": 
PAUSE 100: CLS GOTO 160 





240 IF 1>64 THEN 
DA MUITO LONGA. TENTE DE ноу 
O”: PAUSE 100: СІЗ : GOTO 160 
250 FOR n=1 TO 1: IF sS(n)= 
CHR$ 32 THEN LET d=d+l: GOTO 
270 

R60 IF CODE s$(n)<65 OR CODE 


PRINT "ENTRA 





[BS (n)>90 THEN PRINT "LETRA IL 
EGAL. TENTE DE NOVO": PAUSE 
100: CLS : LET d=0: GOTO 160 


270 IF c=1 AND d=1 THEN PRINT 
"NAO HA ESPACOS DENTRO DE UMA 
UNICA PALAVRA. TENTE DE NOV 






0.": PAUSE 100: CLS LET d=0 
GOTO 160 
280 NEXT n 
290 IF d<>c-1 THEN PRINT "Voc 


E DEVE INTRODUZIR ";c;” PALAUR 
AS ";i$;". TENTE OUTRA VEZ" 
PAUSE 100: CLS LET d-0: СОТО 
160 
300 LET z$-"" 
310 FOR n=l TO 1: 









LET z$-2$4"* 





^": NEXT n 

320 PRINT INK l;AT 0,0;"SCORE 
/";a$: PRINT INK l;AT 0,16;"S 
CORE/";b$: PRINT PAPER 2, INK 


6;AT 1,6;ta;TAB 22;tb;TAB 31;* 


330 PRINT AT 3,7;"VALOR DOS CA 
RACTERES” 
340 FOR n-0 TO 26: READ 9$ 
LET q$-q$*9$: NEXT n: PRINT q$ 
RESTORE 900 
350 PRINT ІМК l;AT 12,0;"A "; 
r$;" QUE ";b$;" TEM QUE  ADIVI 
NHAR CONTEM ";L;" CARACTERES" 
PRINT PAPER 2; INK 6;z$ 
360 INPUT "VOCE QUER COMPRAR U 
M CARACTER PELO PRECO EXIBID 
O NA TABELA? FACA A ESCOLHA 
DO CARACTER. SENAO, TECLE 
XX PARA ADIVINHAR UM CARACTER 
OU ZZ PARA ADIVINHARA FRASE T 









ODA.", LINE d$ 
1000 DATA "A-20 ","B-10 1 
,;"C-10 ","D-12 *,"E-20 
","Е-08 rong? 7,"H-08 
1010 DATA "1-20 ",42-04 " 
,"K-06 "y "L-10 ","М-10 
","N-10 ”,"0-20 ” ,"P=-10 
”,"9-02 *,"R-12 ”,”8-1 
2 ” 
1020 DATA "T-12 *,"U-20 4 
,7У-08 ”,"ч-08 ","X-04 
","Y-08 ”,”2-02 ","<ОВАР | 
HICS A>-20 p 





5 CLEAR 1000 

10 R$="PALAVRA" :W=14: 
:TB=200 

15 Pl=PEEK(359) :P2=PEEK(360) :P3 
=PEEK (361) 

40 CLS:LINE INPUT"NOME DO PRIME 
IRO JOGADOR (MAX 7 LETRA] 
8) ?";A$ 

50 PRINT:LINE INPUT"NOME DO SEG 
UNDO JOGADOR (MAX 7 LET 
RAS) ?";B$ 

60 IF LEN(AS)>7 OR LEN (B$)>7 Т 


=1:TA=200 
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MANIPULAÇÃO DE CORDÕES 

Os comandos BASIC capazes de 
agir sobre variáveis alfanuméricas 
constituem a chave do sucesso do pro- 
gramador interessado em jogos e apli- 
cativos que manipulem palavras. 

Comandos como RIGHT$, LEFT$ e 
MID$ permitem a “leitura” do conteú- 
do de uma cadeia de caracteres. E te- 
| mos ainda funções como LEN, CHR$, 
STR$ e STRING$, que tornam possível 
a criação de novos cordões ou a trans- 
formação dos antigos 

Observe que os comandos seguidos 
por um cifráo —''$'— geram novos 
cordóes, enquanto os comandos sem 
este sinal resultam num valor numéri- 
co que corresponde ao operando. 





HEN 40 
70 CLS:LINE INPUT"ESCOLHA O NIV 


EL DE DIFICULDADE (NUMERO DE P 
ALAVRAS/FRASE 1-9) ?";C$ 

80 IF LEN(C$)<>1 THEN 70 

90 IF C$<”"1” OR C$»"9" THEN 70 
100 C=VAL (C$) 

110 PRINT:LINE INPUT 
JOGADAS (1-9) ? ";T$ 
120 IF LEN(T$)<>1 THEN 110 

130 IF T$<"1" OR T$>"9" THEN 11 
0 

140 T=VAL (TS) 

150 IF C>1 THEN J$="S 
UM ESPACO ENTRE CADA”: 


"NUMERO DE 





I$="COM 
R$=" FRASE 


155 СЇЗ 
160 PRINT A$;", E SUA VEZ DE JO] 
GAR”: PRINT: PRINT" INTRODUZA SUA 


FRASE DE ";C;” PALA-VRA";JS 

165 PRINT: PRINT" PRESSIONE'0'PAR 
A VER AS LETRAS OU '1' PARA CO 
NTINUAR ...":PRINT 

170 K$-INKEYS:IF K$-"" THEN 170 
190 IF K$-"1" THEN PRINT "? " 
POKE 359,1H86:POKE 360,32:РОКЕ 
361,57:LINE INPUT S$:POKE 359,P 
1:POKE 360,P2:POKE 361,P3:GOTO 
220 

200 IF K$-"0" THEN LINE INPUT " 
2 ";88:00Т0 220 

210 GOTO 170 

220 L=LEN(S8) : PRINT 

230 IF L=0 THEN PRINT "ENTRADA 
ILEGAL - TENTE DE NOVO” :GOSUB 9 
50:CL8:GOTO 160 

240 IF L»64 THEN PRINT^ENTRADA 
MUITO LONGA-FACA DE NOVO":GOSUB 
950:CL8:GOTO 160 

250 FOR N=1 TO L:IF MID$(S$,N,1 
)=CHR$(32) THEN D=D+1:GOTO 270 
260 IF MID$(S$,N,1)<"A” OR MIDS 
(88,N,1)>"Z” THEN PRINT "CARACT 
ER ILEGAL - TENTE DE NOVO":GOSU 
B 950:CL8:D-0:GOTO 160 

































270 IF C-1 AND D-1 THEN PRINT"N 920 DATA "T-12 ”,"U-20 “> 
AO HA ESPACOS DENTRO DE UMA "v-08 

UNICA PALAVRA! TENTE DE МОУО":0 ","y-08 

OSUB 950:CL8:D=0:GOTO 160 = 

280 МЕХТ Н 

290 IF D<>C-1 THEN PRINT "VOCE 


PRETENDE INTRODUZIR" ;C;"PALA-VR 
AS ";18:PRINT"TENTE DE NOVO" :GO 
SUB 950:CL8:D=0:GOTO 160 


300 Z8="" 5 CLEAR 2000:KEYOFF:COLOR 15,4, 
310 FOR N=1 TO L:Z$-28*"*":NEXT 4 

N 10 R$-"palavra":W*14:F*1:TA*200 
320 CLS:PRINT"SCORE/";A$,"SCORE :ТВ=ТА 


/";BS:PRINT 638, TA;TAB(22);TB;” 40 CLS:LINEINPUT"Nome do jogado 
E r 1 (max 9 letras) ? uL 
330 PRINT $69," VALOR DOS CARAC 50 PRINT:LINE INPUT"Nome do jog 
TERES" ador 2 (max 9 letras) ? "в 


340 FOR N=0 TO 26:READ 0$:08=03 
*G$:NEXT N:PRINT Q$:RESTORE 

350 PRINT $320,"A ";R$;" CONTEM 
";L; "LETRAS": PRINT Z3 

360 PRINT 6416,"";:LINE INPUT " 
XX=ADIVINHAR LETRA 
ZZ=ADIVINHAR A FRASE 


$ 

60 IF LEN(A$)>9 OR LEN(B3)>9 ТН 
EN 40 

70 CLS:PRINT"Qual o nível de di 
ficuldade”: INPUT" (número de pal 
avras 1-9)" ;C8 


90 IF CS<"1” OR C$5"9" THEN 70 





A-Z=COMPRAR O CARACTER  ?";D 100 C=VAL (C$) 
$ 110 PRINT:INPUT"Nümero de jogad 
900 DATA "A-20 *,*B-10 *", as (1-9)";T$ 
"с-10 ","D-12 ","E-20 130 IF T$<"1” OR T$>"9" THEN 11 
","F-08 ”,”@-12 ","н-10 0 

X 140 T=VAL (TS) 
910 DATA"I-20 ","J-04 *," 150 IF С>1 THEN J$*"s":I$-"com 
K-06 *,"Lb-10 7,"M-10 " um espaço entre elas":R$*"FRASE 
,"N-10 ","0-20 * ,°p-10 5 

',"0-02 *,"R-12 ","8-12 160 CLS:PRINTAS;", é a sua vez. 






















































":PRINT"Digite sua frase de”;C; 


"palavra";J$;". 
165 PRINT:PRINT"Se desejar ver 
as letras digitadas, pressione 








<0>, senão pressione <1>.”; 

170 K$=INKEYS:IF K$="" THEN 170 

175 IF K$<>"1” AND K$<>"0” THEN 

170 

180 IF K$-"0" THEN 200 ELSE PRI 

NT:PRINT"? "; 

190 KS-INKEYS:IF K$="" THEN 190 

195 IF KS<>CHR$(13) THEN 8$=S$+ 

K$:GOTO 190 ELSE 220 

200 PRINT:LINEINPUT"? ";8$ 

220 L*LEN(S$) : PRINT 

230 IF L=0 THEN PRINT"Entrada i 

legal - repita":GOSUB 950:CLS:G 

OTO 160 

240 IF L»78 THEN PRINT"Entrada 

muito longa - repita":GOSUB 950 

:CLS:GOTO 160 

250 FOR N=1 TO L:IF MIDS(SS,N,1 

)=CHR9(32) THEN D=D+. OTO 270 

260 IF MIDS(SS,N,1)<"A” OR MIDS 

(SS$,N, 1) »"Z"ANDMIDS$ (S$, N, 1) X»"C 

"THEN PRINT"Caracter ilegal - r 

epita”:GOSUB 950:CLS:D=0:GOTO 1 

60 

270 IF C=1 AND D=1 THEN PRINT"E 

REM náo sáo permitidos em um 
Unica palavra - repita" 

:GOTO 160 











É possível transformar o programa 

em um jogo de palavras cruzadas? 
Embora nosso programa não possa 
ser transformado num jogo desse tipo, 
ele certamente mostra o caminho para 


que o leitor elabore seu próprio 
programa. 

Num jogo de palavras cruzadas, o 
jogador também deve descobrir quais 
são as letras de palavras “escondi- 
das”. A diferença é que no nosso jogo 
precisamos descobrir os caracteres de 
um cordão, enquanto no de palavras 
cruzadas, buscamos elementos de uma 
matriz alfanumérica. 

O tipo de pista que se dá ao jogador 
também é diferente. As instruções de 
um jogo de palavras cruzadas podem 
ocupar um espaço tão grande quanto 
os textos de um pequeno jogo de aven- 
tura. A disposição espacial das letras 
na tela também é muito importante. No 
programa, devemos correlacionar as 
coordenadas X e Y da tela aos núme- 
ros de linha da matriz de letras. 














eve digitar";C;"palavras $i" 
- repita":GOSUB 950:CL8:D*0:GO 
TO 160 
300 z$-"" 
310 ZS-STRINGS(L,"*") 
320 CLS:PRINTA$;TAB(25)B$:PRINT 
TA;"pontos";TAB(25) ; TB; "pontos" 
330 LOCATE 7,3:PRINT"Valores do 
B caracteres" 
340 Q$-"":FOR N-1 TO 28:READ G$ 
:Q8=0S+63+STRINGS (4+(N/5=INT (N/ 
5)),32) : NEXT: PRINTQS: RESTORE 
350 LOCATE 0,11:PRINT"A ";R$;" 
contém";L;"letr :PRINTZS 
360 LOCATE 0,21:PRINTSPC(77) :LO 
CATE 0,21:PRINT"XX-Adivinha let 
ra ZZ-Adivinha frase":INPUT" 
A-Z Compra letra ";D$ 
900 DATA A-20,B-08,C-12,€-06,D- 
20,E-20,F-12,G-08,H-08,1-16,J-0 
8,K-02,L-10,M-12,N-12 
910 DATA 0-20,P-08,0-08,R-12,8- 
20,T-12,U-16,U-08,W-02,X-08,Y-0 
2,2-06,_-20 


41%) 


10 R$ = “PALAVRA”:W = 14:F = 1: 
TA = 200:TB = TA 











40 HOME : INPUT "NOME DO JOGAD 
OR 1 (МАХ 9 LET) ";AS 
50 PRINT INPUT "NOME DO JOGA 


DOR 2 (MAX 9 LET) ";B$ 
60 IF LEN (AS) > 9 OR 
$) > 9 THEN 40 


LEN (B 





70 HOME : PRINT "NIVEL DE DIFI 
CULDADE": INPUT "(NUMERO DE PAL 
AVRAS 1-9)? ";C$ 

90 IF C$ < "1” OR CS > "9" THE 
N 70 

100 C * VAL (C$) 

110 PRINT : INPUT "NUMERO DE J 


OGADAS (1-9)? ";T$ 

130 1F T$ € "l* OR T$ 5 "9" TH 
EN 110 
140 T = 
150 
= "COM UM ESPACO ENTRE ELAS”: 
=- "FRASE" 

160 НОМЕ : PRINT AS”, E A SUA 
VEZ.”: PRINT "DIGITE SUA FRASE 
DE ";C;" PALAVRA";J$;". 

165 PRINT : PRINT "SE DESEJAR 
VER AS LETRAS DIGITADAS, PRESSI 
ONE <0>, SENAO PRESSIONE <1>."; 


VAL (T$) 
IF C > 1 THEN J$ = "3”:19 
RS 


170 GET K$: IF K$ € » "1" AND 
K$ < 2» "0" THEN 170 

180 К = VAL (K$): PRINT : PRIN 

T 

185 88 = ” ” 

190 GET K8: IF K = 0 THEN PRI 

NT K$; 

200 IF K$ = CHRS (8) AND LEN 
(88) > 1 THEN 8$ = LEFTS (SS, 
LEN (8$) - 1): GOTO 190 


210 83 = 8$ + K$: IF K$ < > C 


HR$ (13) THEN 190 


220 88 = MIDS (33,2, LEN (S$9) 
- 2):L = LEN (S$) 
230 IF L = 0 THEN PRINT : PRI 


"ENTRADA ILEGAL - REPITA”; C 
GOSUB 950: HOME : GOT 


NT 
HRS (7):: 


o 160 
240 IF L > 40 THEN PRINT: PR 
INT "ENTRADA MUITO LONGA - REPI 


TA"; CHRS (7):: GOSUB 950: HOME 
: GOTO 160 

250 FOR N = 1 TO L: IF MIDS ( 
S$,N,1) = CHR$ (32) THEN D = р 
+ 1: GOTO 270 

260 IF MIDS (S$,N,1) < "A" OR 


MID$ (S$,N,1) » "Z" THEN PRI 
NT : PRINT "CARATER ILEGAL - RE 
PITA”: GOSUB 950: HOME :D = 0: 
GOTO 160 
270 IF C = 1 ANDD * 1 THEN Р] 
RINT PRINT "ESPACOS NAO SAO P 
ERMITIDOS EM UMA UNICA PAL 
AURA! - REPITA”: GOSUB 950: HOM 
E :D - 0: GOTO 160 
280 NEXT 
290 IFD< >C- 1 THEN PRIN 
T : PRINT "VOCE DEVE ENTRAR ";C 
1" PALAVRAS ";I$;" - REPITA": G 
OSUB 950: HOME :D = 0: GOTO 160 





30028 - " " 


310 FOR N = 1 Т0 1:28 = Z$ +" 
*": NEXT 

320 HOME : PRINT AS; TAB( 25); 
B$: PRINT TA;" PONTOS"; TAB( 25 
);TB;" PONTOS" 

330 VTAB 4: HTAB 8: PRINT "VAL 


ORES DOS CARACTERES"; 

340 Q$ - " ": FOR N - 1 TO 28: 
READ G$:Q$ - Q$ + G$ +” ы 
NEXT HTAB 40: PRINT Q$: RESTO 
RE 


350 VTAB 12: PRINT "A ";R$;" C 


ONTEM ";L;" LETRAS";: HTAB 40: 

PRINT Z$ 

360 УТАВ 22: CALL - 958: VTAB 
22: PRINT "XX-ADIVINHA LETRA 
ZZ-ADIVINHA FRASE": INPUT " 


A-Z COMPRA A LETRA ";D$ 





900 DATA A-20,B-08,C-12,D-20 
,E-20,F-12,G-08, 8 
910 DATA I-16,J-08,K-02,L-10 


+M-12,N-12,0-20,P-08,0-08,R-12, 
8-20 

920 DATA T-12,U-16,V-08,W-02, 
X-04,Y-02," ”,2-06, -20 


O programa é muito parecido para 
todos os microcomputadores, já que 
náo há gráficos que requeiram coman- 
dos especiais para montá-los. Apenas o 
início difere um potco em alguns casos, 
No MSX e no TRS-Color é preciso re- 
servar espago para as variáveis alfanu- 
méricas que seráo usadas. 


i 


A linha 10 define todas as variáveis | 


necessárias para o jogo. No TRS-Color, 
os PEEK da linha 15 sào utilizados mais 
tarde para evitar que algumas letras apa- 
recam na tela. As linhas 20 e 30 do Spec- 
trum definem um UDG em branco pa- 
ra a tabela de letras. 

As linhas 40 e 70 dào as mensagens 
iniciais do jogo. O nome dos jogadores 
é chamado pelas linhas 40 e 50. A linha 
60 verifica se eles náo sáo muito com- 
pridos para o espaço disponível na tela, 





O número de palavras da frase é esco- 
lhido na linha 70. 
As linhas 80 a 100 fazem verificações 


com a finalidade de se certificar de que 
o número de palavras por frase está den 
tro dos limites do programa 

sse número é representado pela va- 
riável C$. A linha 80 (quando existen 
te) verifica se a entrada é de apenas um 
aractere; a linha 90 checa se o valor di- 
gitado está entre os números 1 e 9. A li- 
nha 100 converte esse valor para uma 
variável numérica. 

As linhas 110 a 140 estão relaciona- 
das ao número de jogadas escolhido. A 
linha 110 apresenta a mensagem e ob- 
tém a resposta (variável T$). As linhas 
120 e 130 são similares às linhas 80 e 90 
A linha 140 converte o valor para uma 

ariável numéric 


Se a frase for constituída de mais de 
uma palavra, a linha 150 diz ao joga- 
dor que coloque apenas um espaço en- 
tre cada palavra. R$ é definida como 
“FRASE” para uso posterior 

O programa passa, então, para a roti- 
na de entrada da frase que um dos joga- 
dores deverá adivinhar. Ela vai da linha 
160 até a 220 e fornece instruções para 
o jogador que vai digitar a frase. Se ele 
selecionar 0, a frase aparecerá na tela; 
caso contrário, ela permanecerá invisi- 
vel. A frase é armazenada na variável S$. 

As linhas 230 a 290 conferem a fras: 
para verificar se está de acordo com as 
regras. Se ela não tiver nenhum carac 
(еге, isto é, se a tecla <ENTER> foi 
pressionada antes de se digitar qualquer 
letra, a linha 230 anuncia uma entrada 
ilegal e pede que se repita a operação. 


A linha 240 verifica o tamanho da frase 
€ a 250 o número de espaços (que deve 
ser um a menos que o número de pa- 
lavras) 

As linhas 260 e 270 procuram carac- 
teres ilegais. Observe que apenas letras 
maiúsculas serão aceitas, sem acento 
No MSX, pode-se usar o “Ç”, 

As linhas 300 e 310 são encarregadas 
de definir a variável Z$, que contém a 
seqüência de asteriscos de número igual 
ao de letras de S$. 

A rotina final, das linhas 320 a 360, 
monta o que falta da tela principal, len- 
do a tabela de valores de linhas DAT. 

e colocando a tabela na posição adequa 

e a de asteriscos também 
é posicionada. A linha 360 apresenta as 

ões para o jogador que vai adivinhar 





Apresentamos aqui novas rotinas 
P | para o seu banco de dados. Elas 
ж tornaráo o programa mais eficiente, 


permitindo-lhe organizar 
melhor as informações que desejar. 





O programa de banco de dados que 
desenvolvemos nos artigos das páginas 
68 e 81 é muito útil para armazenar in- 
formações. Não importa que sejam de- 
talhes de seu passatempo predileto, re- 
sultados de uma pesquisa, enderegos de 
amigos e clientes ou qualquer outro ti- 
po de dado. Devidamente arquivados, 
eles poderáo ser consultados, corrigidos, 
alterados, apagados e mesmo impressos 
em papel. 

Como qualquer outro programa de 
banco de dados, o nosso também náo 
é perfeito para todas as aplicações pos- 
síveis. Para que você possa adaptá-lo da 
melhor maneira às suas necessidades, 
apresentamos algumas novas rotinas as- 
sim como sugestões para o aperfeiçoa- 
mento das já existentes. As rotinas, di- 
ferentes para cada computador, serão 
examinadas separadamente. 


Para os usuários do Sinclair Spec- 
trum, selecionamos duas rotinas: uma 
para a entrada contínua de registros e 
outra para impressão contínua. 


ENTRADA ШО 


Estas linhas lhe permitiráo dar entra- 
da aos registros continuamente, sem 
precisar retornar ao menu. Elas impe- 
dem também que um cordáo nulo — 
que provocaria a volta ao menu — seja 
aceito. Pressione <ENTER> quando 
completar a entrada dos dados. 


2000 CLS LET C=V 

2110 FOR N=V TO A: PRINT INVER 
SE V;AT V+N*2,0;NS(N);AT V*N*2, 
12; FLASH V INPUT "(ate "; 
A(N);” caracteres)”, LINE AS(C, 
B(N)*V TO B(N*V)): IF N=V AND A 
S(C,B(N)+V)=CHR$ 32 THEN RETUR 





N 

2115 PRINT AT V+N*2,12;AS(C,B(N 
)*V TO B(N*U)): NEXT N 

2120 FOR F-V TO 150: NEXT F: 
C=V THEN GOTO 2000 

2140 IF AS(C)>=AS(C-V) THEN GO 
TO 2000 

2150 LET X$-AS(C): LET AS(C)-AS 
(C-V): LET AS(C-V)-X$: LET C-C- 
V: IF C-V THEN GOTO 2000 


IF 




















п ADICAO DE NOVAS OPÇÕES DO ARQUIVO 
M COMO MELHORAR AS ROTINAS M BUSCA DE MULTIPLAS 
В JÁ EXISTENTES INFORMAÇÕES 
= IMPRESSÃO CONTINUA W O USO DO CONTROLADOR 
п UMA NOVA ORGANIZACAO DE DISCOS 





IMPRESSAO 





Ш 





Como está, o programa possibilita a 
impressáo apenas do registro em exame. 
Para imprimir a lista inteira, será neces- 
sário passar por todo o arquivo e co- 
mandar a impressáo. Esta nova rotina 
faz o trabalho por vocé, iniciando pelo 
registro que está sendo exibido e impri- 
mindo todos os seguintes até o fim da 
lista. Se quiser imprimir todos os regis- 
tros, certifique-se de que está no regis- 
tro 1, antes de iniciar o processo. Para 
interromper a listagem, pressione qual- 
quer tecla, 

120 LET OP=1 
3015 IF D-V=R THEN LET D=D-V: 
IF OP=6 THEN LET OP=1 
3020 IF AS(D,V)=CHRS 32 THEN L 
ET D-D-V: IF OP-6 THEN LET OP- 





1 

3085 IF OP=6 THEN LET D=D+V: G 

OTO 3010 

4060 IF D>R THEN LET D-PM: 

OP=6 THEN LET OP=1 

4080 IF AS(D,V)=CHRS 32 THEN L 

ET D-PM: IF OP-6 THEN LET OP=1 

4165 IF OP=6 THEN LET MO=V: LE 

T D-D*MO: GOTO 4060 

9502 IF OP=6 AND INKEYS="" THEN 
COPY : RETURN 

9505 PRINT INVERSE V;AT 19,U;" 
impressao (C)ontinua";TAB 31;" 


IF 


9585 IF V$-"C" THEN COPY : LET 


oP=6 


Apresentamos quatro rotinas para o 
seu TRS-Color: impressão contínua, 
reordenação do arquivo, procura por 
múltiplos campos e adaptação para 
acionadores de disco. 


ESAS 


Com esta rotina, vocé poderá impri- 
mir todos os registros de uma só vez. Se- 
lecione a opção de impressão e escolha 
entre impressão contínua ou registro 
único. A impressão começa no registro 
que está sendo exibido na tela e vai até 
o fim da lista. 

Se você quiser imprimir todo o arqui- 


vo, não se esqueça que deve começar 
com o registro 1. 


1050 PRINT 6385,"NUMERO DE CAMP 
08 (1-8) ?"; 

1060 INS-INKEYS:IF INSC"1" OR I 
N$»"8" THEN 1060 

1070 A-VAL(INS):DIM A(A),N$(A) 
5070 IF D>NR AND G-1 THEN G-0:C 
H=-1:CP=0 ELSE IF D>NR THEN CP= 
0:GOTO 5230 


5105 IF CP=1 GOSUB 10040:GOTO 5 
160 

5210 GOSUB 10000:GOTO 5160 
6025 IF CP=1 GOSUB 10040:GOTO 6 
080 

6130 GOSUB 10000: IF CP=1 THEN 
6080 ELSE 6030 

6140 IF D>NR THEN D=1:CP=0 


10000 PRINT €449,” AJUSTE A IMP 
RESSORA CONT” ; STRINGS (36, 32 
); 

10010 IF INKEYS<>”C” THEN 10010 
10020 PRINT 6448,"cONTINUA OU s 
OMENTE UM REGISTRO?"; 

10030 INS-INKEYS:IF INS<>"C” AN 
D IN$<>”S” THEN 10030 

10035 IF IN$="C” THEN CP=1 





REORDENACÁO DO 





UI 





O programa original faz a ordenação 
dos registros sempre pelo mesmo cam- 
po (o primeiro). A nova alternativa, que 
aparecerá com o número 8 no menu, 
permite que o campo-chave para a orde- 
nação seja mudado. Depois da mudan- 
ça, o arquivo é reordenado e o campo- 
chave passa a ser o primeiro da lista. 
105 PRINT $388,"8-REORGANIZAR C 
AMPOS" 

120 INS-INKEYS:IF INS€"1" OR IN 
$»"8" THEN 120 

150 ON IN GOSUH 1000,2000,6000, 
5000,7000,8000,9000,11000 

11000 IF A-1 THEN PRINT” NAO PO 
880 REORGANIZAR 1 CAMPO!”:FOR K 
=1 TO 5000:NEXT:RETURN 

11010 PRINT "NUM.DO CAMPO","NOM 
E” 

11020 FOR N=1 TO A:PRINT N,NS(N 
) ¿NEXT 

11030 PRINT:PRINT" DIGITE O NUM 
ERO DO NOVO CAMPO CHAVE (2 A” 
;A;")"; : INPUT NC 

11040 NC=INT (NC) :IF NC<2 OR NC> 
A THEN CLS:GOTO 11010 

11050 CLS:PRINT” TROCANDO E ORD 
ENANDO CAMPOS” 

11060 TS=NS (1) :NS (1) =NS (NC) :NS( 





18 APLICACOES 18 





аи ТА (1) «А (МС) :А (МС) = PROCURA POR MÜLTIPLOS CAMPOS 





11070 FOR N=1 TO NR:TS=AS(N,1): 
AS (N,1)=AS (N,NC) :AS (N,NC)=TS:NE 
хт 

11080 FOR N=1 TO NR-1:K=N 

11090 FOR J=N+1 TO NR 

11100 IF AS(J,1)<AS(K,1) THEN K 
-J 

11110 NEXT:IF N<>K THEN FOR C=1 
TO A:T$*AS (K,C) :A$(K,C) "AS (N,C 
)*T$:NEXT 

11120 NEXT:RETURN 


Esta nova opção permite que você 
busque mais de uma informação por 
vez. Quando se seleciona a rotina de 
busca a partir do menu principal, deve- 
se responder, para cada campo, o que 
será procurado. Você pode procurar por 
quantos campos desejar. Se um deles 
não lhe interessar, simplesmente tecle 
<ENTER> e vá em frente. 



















































Em seguida, o computador pergun- 
tará se os dados especificados deverão 
estar presentes em todos os registros ou 
não. Se sua resposta for SIM, apenas os 
registros que contenham todos os dados 
especificados serão mostrados. Caso vo- 
cê responda NÃO, qualquer registro que 
contenha pelo menos um dos dados se- 
rá exibido. Se, por exemplo, você soli- 
citar o nome MARIA para o campo 1 
e CAMPINAS para o campo 3, apenas 
pessoas que se chamem Maria E residam 
em Campinas serão apresentadas caso 
você tenha respondido SIM à pergunta 
anterior. Caso contrário, todas as pes- 
soas que se chamem Maria OU residam 
em Campinas serão listadas. 


5000 PRINT 6B,B$;"opcao";B$;"de 
*;B$;"procura";B$ 

5010 BT=0:PRINT:FOR N=1 TO A:PR 
INT "PROCURA PELO QUE NO CAMPO" 
:PRINT N;", ";N$(N); 

5020 LINEINPUT S$(N):IF 8$(N)<> 
"" THEN BT=BT+1 

5025 NEXT:IF BT=0 THEN RETURN 
5027 IF BT<2 THEN BT=0:GOTO 506 
0 

5030 PRINT:PRINT" TODOS OS DADO 
S DEVEM ESTAR SI- MULTANEAMENT 
E NO MESMO REGISTRO (S/N) ?"; 
5040 INS$=INKEYS:IF INS<>”S” AND 





INS<>"N” THEN 5040 
5050 CLS:BT=0:IF IN$="S” THEN B 
T=1 


5090 FOR Z=1 TO A:PS=INSTR(AS(D 
+Z),8S(Z)):IF PS>O AND BT=0 AND 
88(2)4»"" THEN Z*A:NEXT:GOTO 5 
100 

5093 IF PS*0 AND BT*1 THEN Z*À: 
NEXT:D=D+CH:GOTO 5070 

5096 NEXT: IF BT=0 THEN D=D+CH:G 





ото 5070 

5230 CLS 2:PRINT " МЕМНОМ REGI 
STRO COM";:IF BT-1 THEN PRINT e 
21," TODOS OS",ELSE PRINT 621," 
ALGUM DOS" 

5231 PRINT " DADOS FOI ENCONTR 
ADO” ; 


5235 FOR Z=1 TO A:IF 89(Z)="" T 
HEN 5245 

5240 PRINT 696*2*32,N$(2) ; : PRIN 
Т 6107%2%32,89(2); 

5245 NEXT:CP=0 


O USO DO ACIONADOR DE DISCOS 


As linhas que se seguem fazem com 
que o programa trabalhe com o auxílio 
de um acionador de discos. Se você usa 
um gravador cassete, não as digite, pois 
as rotinas de carregamento e gravação 
serão alteradas. 

Antes de introduzir as novas linhas, 








| 


5—————— 


vocé deverá apagar as linhas 8060 a 
8070, 8150 а 8200 e 7090 a 7140. A ma- 
neira mais fácil de fazê-lo é digitar DEL 
nº inicial nº final. Por exemplo: DEL 
8060-8070. 

Para transferir dados da fita cassete 
para o acionador de discos, carregue o 
programa e faça as alterações da rotina 
de gravação (linhas até 7080). Carregue 
os dados e grave-os em disco. Apague, 
então, as linhas de 8060 em diante (só 
as especificadas antes). Por fim, digite 
as novas linhas da rotina de carregamen- 
to de dados. 


80 PRINT6292,"5-SALVAR ARQUIVO” 
90 PRINT €324,"6-CARREGAR ARQUI 
vo" 

1130 NEXT:R*INT (9000/ (5*5*A)) -1 
:PRINT "NUMERO MAXIMO DE REGIST 
ROS=";R 

1140 DIM AS(R,A):FOR I=1 TO 200 
0:NEXT: RETURN 

7000 CLS:PRINT” CERTIFIQUE-SE D 
E QUE O DRIVE ESTA LIGADO E 
O DISCO INSERIDO E PRESSIONE < 
ENTER> 

7010 IF INKEYS<>CHR$(13) THEN 7 
010 

7020 PRINT:PRINT" QUAL O NOME D 
O ARQUIVO ?”;:LINEINPUT FIS 
7030 IF LEFTS(FIS,1)<"A” OR LEF 
TS(FIS,1)>"Z” THEN 7020 

7040 ОРЕМ "0”,41,FIS+"/DAT":CLS 
6:PRINT $232," GRAVANDO ";FI$; 
7050 WRITE $1,R,A,NR 

7060 FOR N=1 TO A:WRITE 41,NS(N 
) ,A(N) :NEXT 

7070 FOR C=1 TO NR:FOR N=1 TO A 
¿WRITE $1,A$(C,N) :NEXT N,C 

7080 CLOSE41: RETURN 

8030 PRINT €65,"SELECIONE O DIS 
Co, PRESSIONE <CENTER>” 

8040 IF INKEY$<>CHR$(13) THEN 8 
040 

8050 IF R»0 THEN RUN 9210 

8080 PRINT:PRINT" QUAL O NOME D 
O0 ARQUIVO ?";:LINEINPUT FI$ 
8090 IF LEFTS(FIS,1)<"A” OR LEF 
TS(FI$,1)>"Z” THEN 8080 

8100 OPEN ",81,FIS*"/DAT" 
8105 INPUT41,R,A,NR 

8110 DIM A(A),N$(A) , AS (R, A) 

8120 FOR N-1 TO A:INPUT41,N$(N) 
+A(N) : NEXT. 

8130 FOR C=1 TO NR:FOR N=1 ТО А 
+INPUTH1,AS(C,N) :NEXT N,C 

8140 CLOSE41: RETURN 


панне SS 


Apresentamos três rotinas a mais pa- 
ra o MSX. Com elas você poderá fazer 
uma listagem contínua dos seus dados, 
reorganizar o arquivo e buscar várias in- 
formações ao mesmo tempo. 

A rotina para impressão contínua 
permite que vários registros do seu ar- 








quivo sejam listados de uma só vez. O 
registro a partir do qual você quer co- 
meçar a listagem deve estar sendo exi- 
bido na tela. Selecione, então, a opção 
[Imprimir e, a seguir, a opção [C]ontí- 
nua. Todos os registros a partir deste se- 
rão listados. 

Com a opção [RJegistro você pode 
imprimir apenas aquele que está sendo 
mostrado. Não se esqueça de que, para 
listar todo o arquivo, você deve ter o re- 
gistro nº 1 da tela. 


5070 IFD>NRANDG=1THEN G=0:CH=-1 
:CP=0 ELSEIFD>NRTHEN CP=0 :GOTO 
5230 

5105 IF CP=1 THEN GOSUB 10040:G 
OTO 6080 

5210 GOSUB10000:GOTO5160 

6025 IF CP=1 THEN GOSUB 10040:G 
ото 6080 

6130 GOSUB10000:IF CP=1 THEN 60 
80 ELSE 6020 

6140 IFD>NRTHEND=1:CP=0 

10030 PRINT:LOCATE 1:PRINT"IMPR 
ESSAO [CJ]ONTÍNUA OU [RJEGISTRO? 
^i : 
10035 INS=INKEYS: IFINS<>"C"ANDI 
М8<>"Е"ТНЕМ10035 
10037 IFINS="C" 


THEN CP=1 





GANIZ. 


Esta nova opção permite que se tro- 
que o campo-chave para a ordenação do 
arquivo. O programa original tomava 
automaticamente o primeiro campo pa- 
ra fazer a ordenação alfanumérica dos 
registros. Com a possibilidade de trocar 
esse campo, ficará fácil, por exemplo, 
organizar por autor um arquivo de li- 
vros que estava indexado por título da 
obra. A operação pode ser revertida a 
qualquer momento. O novo campo- 
chave aparecerá em primeiro lugar na 
listagem dos campos. 


105 LOCATE 9,19:PRINT"8:-REORGA 
NIZAR O ARQUIVO” 
110 LOCATE 14,22:PRINT"OPCAO: " 


120 INS=INKEYS:IF INS<"1"ORINS> 
"B"THEN120 

150 ON IN GOSUB 1000,2000,6000, 
5000,7000,8000,9000,11000 

11000 IF A-1 THEN PRINT:PRINT"I 
MPOSSIVEL REORGANIZAR APENAS 1 
CAMPO!":FOR K=1 TO 5000:NEXT:RE 


TURN 

11010 PRINT:PRINT"CAMPO N.","NO 
ME" : PRINT 

11020 FOR Nel TO A:PRINTN,N$(N) 
:NEXT 


11030 PRINT:PRINT"DIGITE O NUME 
RO DO NOVO CAMPO CHAVE":PRINT"( 
2 A"¡A;")”;: INPUT NC 

11040 IF NC<2 OR NC>A THEN CLS: 
GoTo 10010 

11050 CLS:LOCATE7,18:PRINT"REOR 





Como modificar o programa para tra- 
balhar com arquivos em disco? 

Os micros das linhas TRS-Color e 
MSX podem usar discos flexíveis co- 
mo meio magnético de armazenamen- 
to de dados. Os programas de INPUT, 
contudo, destinam-se a equipamentos 
que utilizam fitas cassete. 

Se quisermos usar em discos nos- 

so programa para gerar e controla: 
quivos, precisaremos modificar a: 
ções que abrem estes arquivos e 
gravam e recuperam dados deles. 
procedimento é necessário porque o 
programa não modifica registros isola- 
dos no arquivo gravado, e sim na me- 
mória do computador. Um conjunto de 
registros é criado na memória e, de- 
“pois, gravado na fita. Quando quere- 
mos alterar alguma coisa, todo o blo- 
co é trazido para a memória, onde o 
programa faz a edição. Depois que o 
processo se completa, gravamos o blo- 
co em fita. 

Para fazer essas modificações, o 
usuário precisa, naturalmente, conhe- 
cer os comandos correspondentes pa- 
ra manipulação de arquivos em disco. 
Estes deverão ser do tipo sequencial, 
como os da fita. 


















GANIZANDO E REORDENANDO” : PRINT: 
PRINTTAB(15)"O ARQUIVO” 

11060 SWAP N$(1) ,NS(NC) : SWAP A( 
1) ,A(NC) 

11070 FOR N=1 TO NR:SWAP AS(N,1 
) ,AS (N, NC) : NEXT 

11080 FOR N=1 TO NR-1:K=N 
11090 FOR J=N+1 TO NR 

11100 IF AS(J,1)<AS(K,1) THEN K 





NEXT: IF N<>K THEN FOR C=1 
:8WAP AS(K,C) AS(N,C):NEXT 
NEXT:RETURN 


BUSCA DE MULTIPLAS INFORMAÇÕES 


Com a rotina dada a seguir vocé terá 
a alternativa de procurar por mais de 
uma informagáo de cada vez. Quando 
selecionar a opção de busca, você preci- 
sará especificar as informações que dese- 
ja em cada campo do registro. Se um de- 
terminado campo não lhe interessa, sim- 
plesmente tecle < RETURN >. Depois, 
o computador perguntará se os dados 
especificados devem estar simultanea- 
mente em cada registro ou não. A res- 
posta afirmativa corresponde a um E na 
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busca — ou seja, o registro deve conter 
isto E isto E aquilo. O contrário corres- 
ponde a um OU. Vejamos um exemplo. 
Você procura por MACHADO DE AS- 
SIS no campo AUTOR e ROMANCE 
no campo GÊNERO LITERÁRIO, Se 
sua resposta para a pergunta anterior for 
SIM, apenas os romances de Machado 
de Assis serão listados. Se sua resposta 
for NÃO, todos os livros de Machado e 
todos os romances serão listados. 


5000 PRINT"BUSCA DE INFORMAÇÕES 


5010 BT=0:PRINT:FOR N=1 TO A:PR 
INT”PROCURAR O QUE EM ";NS(N);" 
? SS(N)="" 

5020 LINEINPUTSS(N):IF S$(N)«»" 
* THEN BT=BT+1 

5025 NEXT:IF BT-0 THEN RETURN 
5027 IF BT=1 THEN BT=0:GOTO 506 








0 

5030 PRINT:PRINT:PRINT"TODOS OS 
DADOS DEVEM ESTAR PRESENTES 
SIMULTANEAMENTE? "; 





5040 INS-INKEYS:IF INSX»"S" AND 
INS<>"N” THEN 5040 
5050 CLS:BT-0:IF INS$-"S" THEN B 


T=1 

5090 FOR 2=1 TO A:PS=INSTR (AS(D 
.2),89(2)):ІР Р8>20 AND В AND 
S$(Z)<>"" THEN Z=A:NEXT:GOTO 5 
100 

5093 IF PS=0 AND BT=1 
NEXT:D=D+CH:GOTO 5070 
5096 NEXT: IF BT=0 THEN D=D+CH:G 
ото 5070 

5230 CLS:LOCATE 5,10:PRINT"NENH 
UM REGISTRO COM ";:IF BT-1 THEN 
PRINT"TODOS 08” ELSE PRINT"ALG 
UM DOS" 

5235 PRINT"FOI ENCONTRADO!":CP* 
0 






THEN Z=A: 














































Para o Apple II, temos quatro roti- 
nas. As trés primeiras possibilitam a im- 
pressáo contínua de registros, a reorga- 
nização do seu arquivo e a busca de vá- 
ias informações ao mesmo tempo. A 
última delas melhora rotinas já existen- 
tes no programa, tornando-o, desse mo- 
do, mais completo. 


IMPRESSÁO CONTÍN 


Esta pequena rotina permite que os 
registros sejam listados em seqüéncia, 
nào apenas um de cada vez. Deixe na te- 
la o primeiro registro a ser impresso е 
escolha a opção de impressão. Em se- 
guida, tecle C para a impressão conti- 
nua. Todos os registros, a partir do que 
está na tela, serão listados. Para a lista- 
gem de todo o arquivo, deixe o registro 
1 na tela e proceda como foi explicado. 

















10017 УТАВ 23: НТАВ 5: САМ. - 
958: PRINT "IMPRESSAO ”;: INVE 
RSE : PRINT NORMAL : PRIN 
T "ONTINUA OU ";: INVERSE : PRI 
NT "R";: NORMAL : PRINT "EGISTR 
o ?"; 

10018 GET INS: IF INS < > "С" 
AND IN$ < 2» "R" THEN 10018 
10025 IF INS = "C" THEN E - D: 
FOR D = E TO NR 

10052 IF INS - "C" THEN NEXT 
:D= E 


REORGANIZACÁO DO ARQUIVO 


O programa original usava o primei- 
ro campo do arquivo como campo- 
chave para a ordenação dos registros. 
Com esta rotina, você poderá trocar o 
campo. Selecione a opção 8 a partir do 
menu principal e especifique qual o no- 
vo campo-chave. O arquivo será, então, 
reordenado de acordo com a escolha fei- 
ta. O novo campo-chave aparecerá no 
topo da lista de campos. 








105 PRINT : HTAB 10: PRINT "8: 
-REORGANIZAR O ARQUIVO" 

110 УТАВ 23: НТАВ 15: PRINT "O 
PCAO: "; 

130 IF INS < "1” OR INS > "8" 
THEN 110 

150 ON IN GOSUB 1000,2000,6000 


,5000,7000,8000,6520,11500 


11500 IF A = 1 THEN VTAB 10: 
HTAB 9: PRINT "IMPOSSIVEL REORG 
ANIZAR": PRINT  TAB( 13)"APENAS 
1 САМРО!": FOR K = 1 TO 3000: 
NEXT : RETURN 

11510 PRINT : PRINT "CAMPO NO. 
","NOME" 

11520 FOR Z * 1 TO A: PRINT Z, 
NS(Z): NEXT 

11530 PRINT : PRINT "DIGITE O 
NUMERO DO NOVO CAMPO CHAVE": PR 
INT "(DE 2 A ";A;")";: INPUT NC 


11540 IF (NCt < 2) OR (NC? > A 
) THEN HOME : GOTO 11510 
11550 HOME УТАВ 10: НТАВ 8: 


PRINT "AGUARDE A  REORGANIZACAO 
": PRINT TAB( 9)"E ORDENACAO D 
O ARQUIVO” 

11560 T$ - N$(1):N$(1) - N$(NCt 
):N$(NCt) = TS:T = A(1):A(1) = 
A(NCt):A(NCt) = T 

11570 FOR N = 1 TO NR:T3 = AS( 
N,1):AS(N,1) = AS(N,NC&) :AS(N,N 
Ct) = T$: NEXT 

11580 FOR N = 1 TO NR - 1:K = 
N 


11590 FOR J = N + 1 TO NR 
11600 IF AS(J,1) < AS(K,1) THE 
К = у 

11610 NEXT : IF N < > K THEN 


FOR C = 1 TO A:T$ = AS(K,C):AS 
(K,C) = AS(N,C):AS(N,C) = TS: N 
EXT 


11620 


BUSCA DE MULTIPLAS INFORMACOES 


Esta é uma rotina destinada a agili- 
zar a consulta ao seu arquivo de dados, 
permitindo-lhe procurar por mais de 
uma informação de cada vez. Quando 
você solicitar a opção de busca, preci- 
sará especificar as informações que de- 
seja em cada campo. Se um campo não 
lhe interessa, simplesmente tecle < EN- 
TER>. Depois, o computador pergun- 
tará se os dados especificados devem es- 
tar simultaneamente em cada registro ou 
nào. A resposta afirmativa fará com que 
apenas os registros que contêm todos os 
dados especificados sejam apresentados. 
A resposta negativa levará todo registro 
que contenha ao menos um dos dados 
a ser listado. 


NEXT : RETURN 








5000 DD = 1:BT = 0: PRINT : FOR 
X= 1 TO A: PRINT : PRINT "PRO 
CURAR O QUE EM ";N$(X); 

5010 INPUT S$(X): IF SS(X) < 


» "" THEN BT * BT * 1 


5020 NEXT : IF BT - 0 THEN RE 
TURN 

5025 IF BT = 1 THEN BT - 0: GO 
TO 5040 

5030 УТАВ 21: HTAB 1: PRINT "T 


ODOS OS DADOS DEVEM ESTAR PRESE 








NTES EM CADA REGISTRO? (S/N) 
5035 GET INS: IF INS € > "8" 
AND INS < » "N" THEN 5035 
5037 IF IN$ = "Nº THEN BT = 0 
5040 УТАВ 23: НТАВ 13: PRINT " 
PROCURANDO. . 

5050 FOR XX = DD TO NR 

5052 FOR Z = 1 TO A: IF S$(Z) 
= "" THEN 5060 

5054 PS = (S$(Z) = LEFTS (AS(X 
X,Z), LEN (S$(2)))): IF PS AND 
( NOT BT) THEN Z * A: NEXT : GO 
TO 5065 

5056 IF ( NOT PS) AND BT THEN 
Z = A: NEXT: NEXT: GOTO 5070 
5060 NEXT : IF BT = 0 THEN NE 
XT : GOTO 5070 

5065 FL = 1:D = XX: GOSUB 6020: 
GOTO 5200 

5070 IF FL = 0 THEN ЧТАВ 21: 
HTAB 1: CALL ~- 958: PRINT "МАО 
ENCONTREI NENHUM REGISTRO COM 
os DADOS SOLICITADOS!": FOR 
X = 1 TO 5000: NEXT : GOTO 509 
0 

5090 FL = 0: RETURN 

5200 IF XX - NR THEN 5070 

5210 УТАВ 15: PRINT "CONTINUO 


PROCURANDO? (S/N) 


MELHORE AS ROTINAS EXISTENTES 


Estas linhas tornam seu programa de 
banco de dados mais completo. Com 
elas vocé poderá especificar o slot e a 
unidade de disco que usará para a gra- 
vação e o carregamento dos dados. A 
opção padrão é slot 6 e drive 1, Um se- 
gundo drive poderá ser acionado dire- 
tamente do programa. 

Alteramos ainda a rotina de detecção 
de erros. Ela está mais explícita em re- 
lação à não existência de um arquivo es- 
pecificado para a leitura de dados. E 
também mais equipada para prevenir 
que qualquer outro erro (a seleção de 
um drive que não existe, por exemplo) 
interrompa seu programa e provoque a 
perda de dados. 


"i: GET INS 


22 88 = 6:DR = 1 

25 ONERR GOTO 11000 

1030 IFR > 0 THEN CLEAR :D$ 
= CHR$ (4):IN * 1:88 = 6:DR = 
1: HOME : GOTO 150 
1050 УТАВ 3: НТАВ 5: 
MERO DE CAMPOS (1-8 
1060 СЕТ А9: ІҒ А5 > "8" ОВ А5 
< "1" ТНЕМ 1060 


PRINT "NU 





1070 PRINT A$:A = VAL (A$): D 
ІМ А(А),М (А) 
3010 УТАВ 23: CALL - 958: PRI 





МАО РЕВСА SEUS DADOS 
s vezes, por descuido ou erro de 
digitacáo, o programa é interrompido 
por uma mensagem de erro, Se execu- 
tarmos o programa de novo, usando 
RUN, todas as variáveis criadas pelo 
programa serão apagadas. 

A saída para o problema está em 
evitar o comando RUN e voltar a exe- 
cutar o programa de outro modo. 

Em geral, é possível encontrar um 
ponto onde o programa recomeça co- 
mo se nada tivesse acontecido. Na 
maioria das vezes, este ponto corres- 
ponde à parte que cuida do menu. Pa- 
ra executar o programa novamente, 
bastará, então, anotar o número da li- 
nha e usar o comando GOTO. 











NT "NUMERO DO CAMPO A SER MODIF 
ICADO =>"; 
3020 СЕТ СР$:СР = VAL (CPS) 
3030 IF CP > А ОВ СР < 1 THEN 
POKE 34,0: RETURN 
7010 УТАВ 15: НТАВ 5: PRINT "S 
ГОТ ";55; CHR$ (8);: СЕТ 855: І 
F SSS = CHRS (13) THEN SSS = 
STR$ (SS) 
7015 PRINT SS$:SS - VAL (S88) 
: IF SS < 1 OR SS > 7 THEN 7010 
7020 \ТАВ 17: HTAB 5: PRINT "D 
RIVE ";DR; CHRS (8);: GET DR$: 
IF DR$ = CHR$ (13) THEN DRS = 
STRS (DR) 
7022 PRINT DR$:DR = VAL (DR$) 
IF DR < 1 OR DR > 2 THEN 7020 
7025 PRINT : PRINT DS;"OPEN”;A 
R$;",8";S8;",D";DR: PRINT D$;"D 
ELETE” ; AR$ 
8020 HOME : CLEAR :D$ = CHR$ 


(4) :IN = 6:88 = 6:DR = 1 
8050 УТАВ 15: НТАВ 5: PRINT "S 
LOT ";SS; CHRS$ (8);: GET SS$: I 


Е 588$ = CHR$ (13) ТНЕМ 885 - 
STRS (SS) 
8055 PRINT SS$:SS = ЧАГ. (585) 


: IF 88 < 1 OR SS > 7 THEN 8050 
8060 VTAB 17: HTAB 5: PRINT "D 
RIVE ";DR; CHRS (8);: GET DRS: 
IF DR$ = CHRS (13) THEN DRS = 
STRS (DR) 

8065 PRINT DRS:DR = VAL (DRS) 
: IF DR < 1 OR DR > 2 THEN 8060 
8070 PRINT PRINT D$;"OPEN";AÀ 
R$;",8";88;",D";DR 

11000 IF PEEK (222) < > 5 TH 
ЕМ UTAB 24: HTAB 13: PRINT "HO 
UVE UM ERRO!";: FOR T = 1 TO 10 
00: NEXT : GOTO 30 

11010 PRINT D$;"CLOSE" 

11020 УТАВ 24: HTAB 8: PRINT " 
ESTE ARQUIVO NAO EXISTE!";: FOR 


І = 1 TO 1000: NEXT : HOME : El 


OTO 150 








APPLE E TK-2000: 





O comando SOUND do TK-2000 tem 

certas limitações. Já o Apple não possui 
um comando BASIC para produzir sons. 
Veja como usar código de máquina para 


EFEITOS SONOROS 


criar efeitos sonoros. 











Os usuários do Apple ressentem-se, 0326- STA  $C030 mé 
sem dúvida, da ausência de um coman- 0329-— LDE- SEE Pa 
do em BASIC para produzir sons. Essa 03487 Е lin 
limitagáo pode ser contornada com o Os usuários do TK-2000 podem re- Nis NOP ро 
uso de rotinas em código de máquina. correr ao míni-Assembler embutido no — o32g- NOP ap 

Estalidos ou “cliques” produzidos no micro. O míni-Assembler, contudo, náo  032F- DEX 
alto-falante constituem o máximo que aceita rótulos, seguindo outra listagem 0330- BNE $032B mi 
se pode obter com um programa BA- com os endereços já calculados. Ao con- 0332- DEC $FF he 
SIC, no Apple, em matéria de som. Pa- trário da listagem anterior, esta não ére- 0334- BEQ $0339 to 
ra isso (tanto no Apple quanto no locável na memória. 0336- JMP 80324 se 
TK-2000), basta que façamos referência 0320- LDA 4800 0339- RTS 51 
à posição de memória -16336 por meio 0322- STA SFF Se você usar nosso Assembler para fai 
de um comando PEEK: 0324- LDA #500 montar o programa, verá que ele emite iss 


X = PEEK(-16336) 


Quando testamos o valor desse ende- 
reço especial, o cone do alto-falante se 
move — para dentro e para fora — uma 
vez. Se quisermos produzir notas musi- 
cais, precisaremos imprimir a esse mo- 
vimento uma velocidade que somente 
programas em linguagem de máquina 
permitem. Controlando a velocidade 
com que o cone do alto-falante se move 
para frente e para trás, poderemos con- 
trolar também a frequência da nota mu- 
sical ou do ruído emitido. Quanto mais 
rápido for o movimento do cone, mais 
agudo será o som. 


COMO 





ITROLAR O ALTO-FALANTE 





A rotina em Assembly fornecida a se- 
guir produz um som que vai se tornan- 
do cada vez mais agudo. Use nosso As- 
sembler para montá-la na memória. 


10 ORG 800 

20 LDA #500 
30 STA SFF 

40 LOOP LDA #800 
50 STA $C030 
60 LDX $FF 

70 PAUSE NOP 
80 NOP 

90 NOP 

100 NOP 

110 DEX 

120 BNE PAUSE 
130 DEC SFF 
140 BEQ FIM 
150 JMP LOOP 
160 FIM RTS 
170 END 























. COMO CONTROLAR Mi COMO USAR LACOS VAZIOS 
a _ _ O ALTO-FALANTE PARA PRODUZIR PAUSAS 
" O USO DE CONTADORES DE DIVERSOS TAMANHOS 








"O CONTROLE 
DA FREQUÉNCIA DA NOTA 


п UMA ROTINA DE SOM 
PARA O APPLE 








mensagens de erro durante a montagem. 
Para corrigir esse defeito, modifique a 
linha 110: apague a segunda vírgula de- 
pois do NOP e acrescente uma virgula 
após o número 234. 

Qualquer referência à posição de me- 
mória -16336 em decimal, ou $C030 em 
hexadecimal, provocará um movimen- 
to no alto-falante. Essa referência pode 
ser feita por meio de comandos como 
STA, INC ou DEC. O importante, de 
fato, é controlar a fregiiência com que 
isso ocorre no programa 





O USO DE CONT. 





RES 


A posição de memória $FF — que fi- 
ca na página zero — vai ser usada co- 
mo contador. Para começar, colocamos 
nela o valor zero, pelos comandos LDA 
#500 е ЅТА SFF. Depois, o comando 
STA $C030 provoca'um' primeiro mo- 
vimento do alto-falante. Note que, an- 
tes disso, foi colocado zero no registro 
A. Na realidade, o valor transferido de 
A para o endereço $C030 pelo coman- 


do STA $C030 pode ser qualquer um: 
não faz a menor diferença. 

A seguir, a instrução LDX SFF co- 
loca no registro X o conteúdo da memó- 
ria $00FF, Esse tipo de endereçamento 
é denominado endereçamento direto em 
página zero. Sua vantagem consiste em 
permitir a especificação de um endere- 
ço com apenas um byte. Como um byte 
pode conter um número entre 0 е 255, 
o endereço especificado deve ficar num 
dos primeiros 256 bytes da memória — 
a chamada página um. 

As quatro instruções NOP (Nenhu- 
ma OPeração) utilizadas em seguida 
nada executam. Sua função é reduzir a 
velocidade do programa. A instrução 
DEX subtrai uma unidade do valor de 
X. Se o resultado da subtração não for 
igual a zero, a instrução BNE manda o 
processador de volta ao rótulo PAUSE. 
O laço que fica entre as linhas 70 e 110 
é repetido, então, 256 vezes — lembre- 
se de que zero menos um é igual a 255 
em linguagem de máquina. 

Em seguida, a instrução DEC $FF 
subtrai uma unidade do conteúdo do en- 
dereço SFF. Se a operação resultar em 
zero, a instrução BEQ FIM envia o pro- 
cessador para o rótulo FIM, onde o co- 
mando RTS termina a rotina. Se a ope- 
ração não resultar em zero, o programa 
segue seu curso natural e a instrução 
JMP LOOP envia o processador ao ró- 
tulo LOOP, para a produção de um no- 
vo movimento do alto-falante. 

Assim, após a emissão do primeiro 
som, ocorre uma pausa equivalente a 
256 voltas do laço. O conteúdo de SFF, 
que inicialmente é zero — equivalente 
a 256, em código de máquina —, con- 
trola a duração da pausa, diminuindo 
em uma unidade após esta. Enquanto 
não chegar a zero, um novo movimen- 
to do alto-falante será produzido. Co- 
mo o conteúdo de $FF, que controla o 
tamanho da pausa, diminui a cada vol- 
ta do laço entre as linhas 40 e 150, o ta- 
manho da pausa entre dois movimentos 
do alto-falante também diminui. Dessa 
maneira, a frequência do som produzi- 
do vai aumentando, ou seja, o som vai 
se tornando cada vez mais agudo. 

No TK-2000, o som é produzido por 
intermédio do alto-falante da TV. Já no 
Apple um dispositivo sonoro que está 























embutido no próprio computador emi- 
te o ruído — e a qualidade do som dei- 
xa a desejar. 


A VEZ D0 APPLE 


A rotina de produção de ruídos que 
apresentamos a seguir pode ser utiliza- 
da a partir de programas BASIC, equi- 
valendo ao comando SOUND dos mi- 
cros da linha TK-2000. 

Ela permite ao usuário do Apple pro- 
duzir notas musicais em seus programas 
sem ter que programar uma rotina em 
linguagem de máquina para cada novo 
efeito sonoro. 


tc] 


ORG 800 
20 LDY 4500 
30 50M LDX $385 
40 INC $C030 
50 PAUSET DEY 
60 BNE PAUSES 
70 DEC $384 
80 BEQ FIM 
90 PAUSES DEX 
100 BNE PAUSET 
110 JMP 80M 
120 FIM RTS 


(d 


Embora o TK-2000 dispense esse ti- 
po de rotina, seus usuários podem que- 
rer montá-la para aprender ou, simples- 


































mente, compará-la ao comando 
SOUND. 

0320- іру 4300 
0322- LDX 80385 
0325- INC $co30 
0328- DEY 

0329- BNE $0330 
032B- DEC $0384 
032E- BEQ $0336 
0330- DEX 

0331- BNE $0328 


O MÍNI-ASSEMBLER 

O míni-Assembler é um programa As- 
sembler simplificado, mas extremamen- 
te útil. Ele está disponível no TK-2000 
bem como em microcomputadores Ap- 
ple que tenham o INTEGER BASIC dis- 
ponível em ROM ou numa placa de ex- 
pansáo de memória. Sua principal limi- 
tação é não aceitar rótulos. 


0333- 
0336- 


JMP 
RTS 


$0322 


Após a definição do endereço inicial, 
o comando LDY $00 coloca zero no 
registro Y, que será utilizado como con- 
tador. Náo se esquega de que zero equi- 
vale a 256. 

O endereço $385 conterá a tonalida- 
de da nota emitida — em outras pala- 
vras, seu valor vai estabelecer o tama- 
nho de um laço de pausa para contro- 
lar a frequência do movimento do alto- 
falante. Assim, o conteúdo dessa posi- 
ção é colocado em X, que também será 
usado como contador. 

A instrução INC $C030 produz um 
movimento do alto-falante. A seguir, o 
programa apresenta um laço complexo, 
controlado por três contadores. Estes es- 
tabelecem tanto a frequência quanto a 
duração do som emitido. Vejamos, en- 
tão, como o laço funciona. 

Inicialmente, a instrução DEY, na li- 
nha 50, subtrai uma unidade do conteú- 
do de Y. A instrução seguinte — BNE 
PAUSES — faz com que o programa 
salte para a linha 90, enquanto o valor 
em Y não for reduzido a zero. A linha 
90, por sua vez, contém uma instrução 
DEX, que diminui o conteúdo de X em 
uma unidade. De maneira análoga, es- 
sa instrução é seguida por um BNE 
PAUSET, que retorna à linha 50 en- 
quanto o valor de X não chegar a zero. 
Assim, o processador fica ““preso” em 
um laco, saindo apenas quando o con- 
teüdo de X ou Y for zero. 

Os contadores trabalham indepen- 
dentemente. Quando o valor de X se 
torna zero, o processador passa para a 
linha 110, que retorna ao rótulo SOM 
(JMP SOM), onde o valor de $385 (to- 
nalidade) é recolocado em X e se pro- 
duz um novo movimento do alto- 
falante. Assim, o valor inicial de X de- 
termina o tamanho da pausa entre dois 
ruídos, independentemente do que acon- 
tece com Y. 

O registro Y continha inicialmente o 
nümero 256 — ou zero. Portanto, após 
256 passagens pela linha 50, o valor de 
Y se torna zero, e o desvio da linha 60 
nào ocorre. O programa, entáo, pros- 
segue na linha 70 — DEC —, que 
diminui em uma unidade o valor em 
$384 (contador que controla a duração 
da nota). Assim, independentemente do 
que acontece com X, a cada 256 voltas 
do laço principal, o endereço $384 é di- 
minuído. Quando ele se torna zero, a li- 
nha 80 — BEQ FIM — envia o proces- 
sador para a linha 120, onde o coman- 
do RTS retorna ao BASIC. O valor ini- 
cialmente colocado em $0384 controla, 
dessa maneira, a duração da nota. 





Como usar o monitor-Disassembler? 
Uma ferramenta muito útil aos usuá 


rios do Apple, e indispensável aos do 
TK-2000, é o monitor-Disassembler. 
Embora não precisemos de monitor pa- 
ra montar os programas código por có- 
digo, ele nos permitirá verificar se a 
montagem foi bem-sucedida. 

Para entrar no monitor, digite: 


CALL -151 
ou LM no TK-2000. 


Para listar um programa que come- 
ce no endereço 800, digite (após ter 
entrado no monitor): 


320L 





Agora você pode produzir sons em 
programas BASIC. Para ter uma idéia 
de como proceder, digite este exemplo: 


С] 


FOR S = 1 TO 255 
20 POKE 900,50 
30 РОКЕ 901,5 
40 CALL 800 
50 NEXT 


O programa consiste em um lago, on- 
de S tem a função de controlar a fre- 
qüéncia da nota — de fato, S é propor- 
cional ao período da nota, que é o in- 
verso da freqüéncia. 

O endereco 900, que corresponde a 
$384 em hexadecimal, contém a dura- 
ção da nota. A linha 20 estabelece esse 
parâmetro por meio de um POKE. A 
mesma instrução é usada na linha 30 pa- 
ra definir a tonalidade S da nota. O nú- 
mero 901 em decimal corresponde a 
$385 em hexadecimal. 

Finalmente, a instrução CALL 800 
chama a rotina em código, produzindo 
notas cada vez mais graves à medida que 
as voltas do laço se sucedem. 


[d] 


Os usuários do TK-2000 podem com- 
parar a rotina em código com o coman- 
do SOUND apagando as linhas de 20a 
40 e acrescentando: 


30 SOUND S,50 


Conhega os comandos que permitem 
ao computador ““olhar” sua própria tela. 
Eles sáo muito úteis na manipulacáo 

de gráficos complicados e, sobretudo, 
em jogos onde ocorrem colisóes. 


Ao criar uma tela gráfica detalhada, 
como garantir que uma figura náo coin- 
cida com outra já presente? 

Uma alternativa seria tomar nota das 
áreas da tela que estáo sendo ocupadas. 
Mas a tarefa, além de fatigante, muitas 
vezes é impossível — como no caso de 


DE OLHO 
NATELA 


gráficos em movimento. E esse tipo de 
problema se coloca sempre que progra- 
mamos um jogo, onde, por exemplo, 
naves e alienígenas movem-se pela ga- 
láxia ou robós tentam sair de um labi- 
rinto. Nos dois casos, precisamos nos 
assegurar de que duas figuras não serão 
desenhadas no mesmo lugar ou que al- 
go especial acontecerá se elas colidirem 
— uma explosão, digamos. 


COMO CTAR UMA FIGURA 


Suponhamos que vocé queira escre- 
ver um programa no qual uma bola fi- 


COMO DETECTAR UMA FIGURA 

Б 05 COMANDOS ATTR, 
SCRN, POINT, PPOINT 

E PROGRAMA DA BOLA ELÁSTICA 
COMO DETECTAR COLISÕES 


que batendo nas bordas da tela. Não se- 
rá difícil: conhecendo coordenadas dos 
quatro lados da tela, bastará incluir um 
teste de condição IF... THEN para veri- 
ficar se a bola está ou não batendo na 
borda. Para isso, as coordenadas da bo- 
la são comparadas com as coordenadas 
já conhecidas das bordas. Mas o que 
aconteceria se quiséssemos checar se a 
bola bateu na borda de um objeto cuja 
forma é mais complicada — um círcu- 
lo, por exemplo? 

Poderíamos usar o mesmo método: 
um certo número de IF...THEN, con- 
tendo informações sobre as coordena- 
das do círculo, verificaria se a bola ba- 








teu na borda deste. A forma curvilínea 
é relativamente mais complexa e, por is- 
so, precisaríamos fazer muitos testes. 
Como sabemos, o computador demora 
para realizar um teste IF...THEN. As- 
sim, um programa cheio deles se torna- 
ria extremamente lento. 

Existe um limite de velocidade de exe- 
cucào num programa em BASIC, mas o 
Spectrum, o MSX, o TK-2000, o Apple 
€ o TRS-Color possuem um comando 
que permite detectar qualquer objeto na 
tela mais rapidamente do que pela che- 
cagem de suas coordenadas — mesmo 
que não conheçamos sua posição. 


A COR PELO NUMERO 


Os comandos ATTR no Spectrum, 
SCRN no Apple e o POINT ou 
PPOINT no TRS-Color e no MSX de- 
volvem, como resposta, a cor que está 
localizada em uma determinada posigáo 
(ou pixel, como é o caso do PPOINT no 
TRS-Color). Dessa maneira, para detec- 
tar a presenca de qualquer objeto, bas- 
ta atribuir-lhe uma cor e, depois, veri- 
ficar todas as posições de tela. 

No exemplo da bola, o círculo ver- 
melho devolveria o número (código) re- 
lacionado à cor vermelha em todas as 
posições que aparecesse. Por meio da 
simples verificação desse código, pode- 
ríamos, por exemplo, fazer a bola ba- 
ter no circulo e voltar. 

O Spectrum devolve um número en- 
tre 0 e 255, levando em conta todos os 
ATTR (atributos) de cada posição de te- 
la: as cores do PAPER e INK, se o 
BRIGHT está ligado ou não, e se o ca- 
ractere se encontra sob a ação do co- 
mando FLASH. Os significados dos nú- 
meros nos atributos de cada posição da 
tela foram explicados na página 47. 

O comando SCRN no Apple retorna 
um valor de O a 15, correspondente a 
uma cor da letra gráfica. Se obtivermos 
o número 13, por exemplo, para uma 
certa posição de tela, saberemos que na- 
quela posição existe um caractere ama- 
relo, pois 13 é o código estabelecido pa- 
ra a cor amarela. 

O comando POINT no MSX devol- 
ve um número entre 0 e 16, correspon- 
dente à cor de um dos 256x192 pontos 
de sua tela. Este comando funciona 
igualmente bem tanto em alta quanto 
em baixa resolugáo gráfica. 

O TRS-Color retorna um número en- 
tre -1 e 8, que se relaciona com a cor da 
posição de tela (ou pixel, para o caso do 
comando PPOINT). Obtemos o curio- 
so resultado de -1 quando tentamos ve- 
rificar a cor de uma letra: o texto só po- 
de ser verde ou preto (e a cor preta é, 


justamente, o inverso da verde). 

A sintaxe de cada um desses coman- 
dos é basicamente a mesma. Em todos 
eles, as coordenadas das posições de te- 
la devem vir sempre entre parênteses. A 
única diferença é que, no ATTR do 
Spectrum, a coordenada Y aparece an- 
tes da X. Um exemplo seria: 


PRINT ATTR(10,20) 


onde 10 é a coordenada Y e 20 é a coor- 
denada X da posição de tela cuja cor 
queremos saber. 

Nos demais microcomputadores a or- 
dem das coordenadas é a usual, ou se- 
ja, primeiro aparece a coordenada X e 
depois a Y. Para as mesmas coordena- 
das do exemplo anterior, teríamos: 


PRINT SCRN(20,10) 
para o Apple e 
PRINT POINT(20,10) 


para o MSX e o TRS-Color. O Spec- 
trum possui um arquivo de atributos ao 
qual podemos fornecer, via comando 
POKE, diferentes valores — e, portan- 
to, alterar o estado de certa posição de 
tela. Já o TRS-Color não tem um arqui- 
vo de cores separado, mas podemos mu- 
dar sua tela pela impressão (PRINT) de 
caracteres de outras cores. 

Como exemplo do uso dos comandos 
ATTR, SCRN e POINT, digite e rode 
o seguinte programa: 


10 BORDER O: 
15 CLS 

20 FOR n=22528 TO 22559: POKE 
n,48: POKE n+672,48: NEXT n 
30 FOR n=22560 TO 23168 STEP 
32: POKE n,48: POKE n+31,48: 
NEXT n 

40 FOR n=1 TO 30: PRINT 
PAPER 6;AT INT (RND*8)*2*3, 


PAPER 0: INK 9 





INT (RND*13)*2*3;" ": NEXT n 
50 LET x=15: LET y=10: LET xv 
LET yv=1 
80 PRINT AT y,x;”0": LET oy=y 
LET ox=x 
90 LET x=x+xv: LET y=Y+yV 


140 IF ATTR (y,x-1)=48 OR ATTR 
(y,x+1)=48 THEN LET xv=-xv 
145 IF ATTR (y-1,x)=48 OR ATTR 
(y+1,x)=48 THEN LET yv=-yv 
190 PRINT AT oy,ox;" GOTO 
80 





O display do Spectrum ocupa toda a 
tela: é um quadrado de bordas amare- 
las, contendo uma série de blocos tam- 
bém amarelos impressos aleatoriamen- 
te, Ao rodar o programa, o computa- 
dor comega a movimentar a bola diago- 
nalmente, para baixo e para a esquer- 


da. Quando bate nas bordas ou em um 
dos blocos, ela volta, mas em outra 
diregáo. 


COMO DETECTAR COLI. 





ES 





Cabe ao comando ATTR verificar se 
a bola bateu nas bordas ou em algum 
dos blocos. Como estes sáo posiciona- 
dos aleatoriamente na tela, só teríamos 
uma outra alternativa: guardar em va- 
riáveis as posições dos blocos em rela- 
ção às coordenadas X e Y. Se usássemos 
duas variáveis para cada posição, ocu- 
paríamos grande quantidade de memó- 
ria. Além disso, precisaríamos incluir 
muitas verificações IF... THEN по pro- 
grama, tornando-o muito lento. 

Não enfrentaríamos os mesmos pro- 
blemas se utilizássemos IF... THEN pa- 
ra verificar se a bola bateu nas bordas, 
já que suas coordenadas são facilmente 
calculadas. Mas, como recorremos ao 
comando ATTR para checar se a bola 
está batendo num bloco amarelo, é mais 
conveniente usá-lo também para as bor- 
das, especialmente porque estas têm a 
mesma cor dos blocos. 

O programa começa definindo as co- 
res da tela e criando a moldura amare- 
la. As linhas 20 e 30, responsáveis pela 
moldura, inserem valores diretamente 
no arquivo de atributos, em vez de im- 
primirem espaços ou caracteres vazios. 
Dois laços FOR...NEXT percorrem os 
endereços de memória que contêm os 
atributos para posições ao redor da te- 
la. Cada endereço recebe, via comando 
POKE, o número 48, que é o código pa- 
ra PAPER amarelo e INK preto (com 
BRIGHT e FLASH desligados). 

A linha 40 imprime blocos aleatoria- 
mente (desta vez, espaços). Os números 
randômicos que controlam a disposição 
dos blocos são projetados de maneira 
que pelo menos duas posições de tela os 
separem da borda (para se evitar que al- 
gum bloco seja desperdiçado, caindo na 
moldura). 

A linha 50 estabelece o valor inicial 
de algumas variáveis — x e y para a po- 
sição inicial da bola, e xv e yv para a di- 
reção inicial da bola nas coordenadas X 
e Y, respectivamente. 

Em seguida, o computador salta pa- 
raa linha 80, onde imprime a bola e de- 
fine mais duas variáveis: ox e oy, que 
guardam os valores anteriores de x e y. 
Esses valores sáo usados para apagar a 
bola, uma vez que x e y já foram atuali- 
zados pelos cálculos que determinam o 
movimento da bola. 

A linha 90 efetua os cálculos, soman- 
do os vetores de diregáo, determinados 
pelas variáveis xv e yv, às respectivas 
coordenadas x e y. 











Display do Spectrum: os blocos sáo distribuidos aleatori 


dentro de uma moldura quadrada. 


0 US0 D0 ATTR 


As linhas 140 e 145 sáo as mais im- 
portantes, já que executam a verificação 
da cor dos quatro quadrados que cercam 
a bola 
“omo se vê no programa, a função 
R assume a seguinte forma: 





A 





ATTR (coordenada y, coordenada x) 


Mas este não é um comando direto 
— como PRINT e LOAD, por exemplo 
—, devendo sempre vir embutido em 
outro comando (no nosso caso, uma de- 
claração I HEN). 

Em ambas as linhas existem declara- 
ções LET logo após as condições. Elas 
simplesmente revertem o vetor de velo- 
cidade se o quadrado com o qual a bola 
bateu for amarelo (ATTR = 48 represen- 
ta um quadrado amarelo) 

Na prática, a bola bate no quadra 
do e volta num ângulo diferente de 90º. 
Ela deve estar vindo de cima ou de bai- 
xo (na direção y) ou de um dos lados 
do obstáculo (na direção x) no momen- 
to em que o atinge. Se ambos os veto- 
res de velocidade fossem revertidos, a 
bola simplesmente voltaria pelo mesmo 
caminho. Por isso, a verificação só al- 
tera seu movimento na direção em que 
ela bate. Sua velocidade na outra dire- 
ção (aquela em que ela não bateu em na- 
da) continua sendo a mesma. Assim, 
se a bola está prestes a atingir um blo- 
co amarelo logo abaixo, ela começa a 
se movimentar para cima, mas sua ve- 
locidade horizontal (na direção x) não 
é afetada. 

Depois de realizar duas verificações, 

















Display do TRS-Color: apresenta cantos diagonais coloridos; 


a distribuição dos blocos não é aleatória. 





o Spectrum apaga a bola “velha”, 
sobrepondo-a com um espaço vazio (li- 
nha 190), e volta para a linha 80 para 
continuar o movimento, 


10 CLSO 

20 PRINT STRING$ (32,223) ; 
9448, STRINGS (32,223) ; 
30 FOR Kel TO 7:PRINT €32*K,CHR 
$ (223) +STRINOS (7-K,191) ; 

40 PRINT €32*K+24+K,STRINGS (7-K 
,175)*CHR$ (223) ; 

50 PRINT 8448-32*K,CHR$(223)*8T 
RINGS (7-K,175);:PRINT €448-32*K 
*24*K, STRINGS (7-K, 191) *CHR$ (223 
di 

60 NEXT 

70 FOR Kel TO 16:READ A,B:POKE 
1024+A,B:NEXT 

80 DATA 137,143,114,159,111,159 
,112,159,113,159,150,255,118,25 
5,203,239,276,239,296,255,264,2 
55,366,159,367,159,368,159,365, 
159,406,143 

90 X=32:Y=16:VX=2-RND(39)/10:VY 
=2-RND(39)/10 

100 SET(X,Y,5) 

110 P1=POINT(X+UX,Y+VY) :P2=POIN 
T(X+UX, Y) :P3"POINT(X,Y+VY) :IF P 
1-0 АМО P2=0 AND P3=0 THEN 190 
120 IF P2=0 AND P3=0 THEN 160 
130 IF P2>0 THEN VX=-VX:IF P2<4 
THEN VX-VX-SGN (VX) XRND(0) ELSE 
IF P2>3THENVX-VX | SCN (VX) *RND (0) 
140 IF P3>0 THEN VY=-VY:IF P3<4 
THEN VY-VY-SGN(VY)*RND(0) ELSE 
IF P2>3THENVY=VY+SGN (VY) XRND(0) 
150 GOTO 190 

160 VX=-VX:VY=-VY 

170 IF PY>3 THEN VX=VX+SGN (VX)* 
RND (0) :VY=VY+SGN (VY) *RND (0) 

180 IF P1<4 THEN VX=VX-SGN (VX)* 
АМО (0) :VY=VY-SGN (VY) *RND (0) 


: PRINT 








190 
200 
ух) 
210 
220 
VY) 
230 RESET(X,Y):X=X+UX:Y=Y+UY 
240 GOTO 100 


IF ABS(VX)<l THENVX=SGN (VX) 
IF ABS(VX)>2 THEN VX=2*SGN( 


IF ABS(VY)<ITHEN VY=SGN(VY) 
IF ABS(VY)>2 THEN VY=2*SGN( 


O programa do TRS-Color exempli- 
fica bem a utilidade do comando 
POINT. O display que aparece na tela 
desse computador é um pouco diferen- 
te daquele que aparece nos outros. Ele 
náo contém blocos espalhados aleatoria- 
mente, r cantos diagonais coloridos 
Usar var s para checar se a bola es- 
tá batendo em algum desses cantos se- 
ria complicado e deixaria o programa 
muito lento. E, considerando que pre- 
cisaríamos ainda adicionar vários 
IF...THEN para detectar colisóes da bo- 
la com algum dos blocos no meio da te- 
la, podemos concluir que tal processo é 
praticamente inviável. 


VERIFICANDO MAIS DE UMA COR 


O POINT permite a detecção de três 
quadrados ao redor da bola com pou- 
cas linhas de programa. E, se escolher- 
mos cuidadosamente as cores, podere- 
mos fazer a verificação de várias delas 
com apenas duas checagens. 

O programa começa limpando a tela 
com um fundo preto e colocando os 
cantos, dois vermelhos e dois azuis (li- 
nhas 10 a 60). A linha 70 lê os dados dos 
blocos restantes (linha 80) e os imprime 
com POKE. Usando esse comando, em 
vez de PRINT, economizamos umas 
quatro linhas de programa. 



































A linha 90 determina as coordenadas 
iniciais da bola, x e y, e também as ve- 
locidades iniciais xv e yv — que, na ver- 
dade, são componentes do vetor de ve- 
locidade nas direções X e Y, respectiva- 
mente. A bola, representada por um 
ponto de baixa resolução, é então im- 
pressa nas posições x € y. 

Para a checagem das cores, definem- 
se três variáveis (linha 110): P1, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), e P2 e P3, 
para os quadrados nas posições x e y se- 
guintes. Partindo do princípio segundo 
o qual não é necessário que sejam che- 
cados quadrados das direções em que a 
bola não se movimenta, concluímos que 
esses três testes já são suficientes. 


0 uso POINT 


Como podemos ver na linha 110, o 
comando POINT toma a seguinte 
forma: 


POINT (coordenada x, coordenada y) 


Essa linha também é incumbida de 
verificar se os três quadrados são pre- 
tos (cor de número 0, que também é a 
cor de fundo). Em caso afirmativo, о 
computador vai para a linha 190, saltan- 
do os testes de reflexáo, pois a bola náo 
está batendo em nada, 

Se as próximas posições x e y (dire- 
ções horizontal e vertical, respectiva- 
mente) forem pretas, mas a diagonal se- 
guinte não, a bola precisará voltar exa- 
tamente na mesma direção de que veio. 
Assim, o computador salta para a linha 
160, que contém os procedimentos ne- 
cessários para esse caso especial de co- 
lisão diagonal. Os dois vetores de velo- 
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cidade (na diregáo x e na diregáo y) sáo 
invertidos, fazendo com que a bola re- 
troceda. 

As linhas seguintes também alteram 
a velocidade da bola, de acordo com a 
cor em que ela bate. 

Se nenhum dos testes executados até 
a linha 130 for verdadeiro, a bola deve 
estar atingindo algum objeto (seja ele 
um canto, seja ele um bloco) pelas late- 
rais. A linha 130 verifica se o quadrado 
atingido está na horizontal (lados direi- 
to ou esquerdo) e, constatando que sim, 
inverte o vetor relevante da velocidade. 
O vetor relevante é oposto ao eixo de co- 
lisào — portanto, no nosso exemplo, o 
vetor y é invertido. Em seguida, o com- 
putador efetua o teste a fim de identifi- 
car a cor do quadrado atingido. 
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DA BOLA 


Os números 1, 2 e 3 correspondem ao 
verde, ao amarelo e ao azul. Se a cor 
do quadrado atingido for uma destas, 
a velocidade será diminuída; se for ver- 
melho, cinza, ciano, magenta ou laran- 
ja (número maior que 3), a bola será, 
entáo, acelerada. 

A vantagem de se escolher as cores 
(ou categoria de cores) com cuidado é 
evidente. Elas se agrupam em duas ca- 
tegorias: uma que causa diminuição de 
velocidade (1, 2 e 3) e outra que causa 
aumento (4 a 8). Ao selecionar núme- 
ros próximos em cada categoria, dimi- 
nuímos a quantidade de comandos 
IF... THEN, economizamos memória e 
agilizamos o programa. 

A linha 140 faz basicamente a mes- 
ma coisa que a 130, só que efetua a che- 
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cagem na vertical. Depois, o computa- 
dor salta para a linha 190, onde se ini- 
cia a rotina que verifica o valor da ve- 
locidade. Se esta for maior que 2, 
obtém-se um estranho efeito na tela, 
pois, para simular movimento, o com- 
putador salta sobre um quadrado. Um 
salto muito grande pode, eventualmen- 
te, fazer a bola ultrapassar um bloco co- 
lorido sem o perceber. Daí a importán- 
cia da rotina que checa a velocidade. 

O mesmo tipo de problema aconte- 
ceria com uma velocidade menor que 1; 
mas um outro teste cuida disto. Obser- 
ve que todos os valores estáo em módu- 
lo (ABS), ou seja, seus sinais sáo igno- 
rados. Embora -1 seja menor que 1, à 
magnitude da velocidade é a mesma pa- 
ra ambos os valores — o sinal menos in- 
dica que o sentido é contrário. O ABS 
simplesmente elimina o sinal antes de 
testar o valor da velocidade. 

A linha seguinte, isto é, a 230, atri- 
bui à bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100, Esta dá continuidade ao mo- 
vimento da bola. 


10 SCREEN 3:COLOR 15,1,3:R=RND( 

TIME) 

20 LINE (0,96)-(96,0),6:PAINT ( 

0,0),6 

30 LINE (255,96)- (160,191) ,6:PA 
INT (255,191),6 

40 LINE (0,96)-(95,191) ,4: PAINT 
(0,191),4 

50 LINE (255,96)-(158,0),4:PAIN 

T (255,0),4 

60 LINE (0,0)-(255,0),3:LINE- (2 

55,191) , 3:LINE- (0,191) , 3:LINE-( 

0,0),3 

70 FOR I=1 TO 8:READ X1,Y1,X2,Y 
2,C:LINE (X1,Y1)-(X2,Y2),C,BF:N 

EXT 

80 DATA 130,30,160,45,11,100,17 

0,130,155,11,80,30,95,65,2,170, 
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135,180,160,2,90,90,100,120,13, 
0, 160, 110, 13,60,100,70,140 
.55,200,95,9 

90 "X-120+16*RND(1): Y=90+16*RND( 
1) :VX=4* (-1)^INT(10*RND(1)):VY= 
4% (-1)^INT(10*RND(1)) 

100 PSET(X,Y) 

110 Pl-POINT(X*UX,Y*UY) :P2=POIN 
T(X*UX, Y) : P32POINT (X, Y*UY) :IF P 
1=1 AND P2=1 AND P3-1 THEN 190 
115 PLAY "О5А64" 

120 IF P2=1 AND P3=1 THEN 160 
130 IF P2>1 THEN VX=-UX 

140 IF P3>1 THEN VY=-VY 

150 GOTO 190 

160 УХ--УХ:УҮ--УҮ 

190 PRESET(X,Y) :X=X+UX: Y=Y+UY 
240 GOTO 100 






A primeira linha seleciona a tela de 
baixa resolugáo, define as cores e ativa 
o gerador de números randómicos. 

A tela do MSX náo contém blocos es- 
palhados aleatoriamente, mas cantos 
diagonais coloridos. Utilizar variáveis 
para checar se a bola está batendo em 
algum desses cantos seria complicado e 
deixaria o programa extremamente len- 
to. E, considerando que precisaríamos 
ainda adicionar vários IF...THEN pa- 
ra detectar colisóes da bola com algum 
dos blocos no meio da tela, podemos 
concluir que tal processo é praticamen- 
te inviável. 


VERIFICANDO MAIS DE UMA COR 


Com algumas linhas de programa, o 
POINT possibilita a detecção de três 
quadrados ao redor da bola. E, se esco- 
lhermos cuidadosamente as cores, pode- 
remos fazer a verificação de várias de- 
las com apenas duas checagens. 

O programa começa ajustando o fun- 
do: limpa a tela com um fundo preto, 
coloca os cantos — dois vermelhos e 
dois azuis — e desenha uma moldura 
verde (linhas 10 a 60). A linha 70 lê os 
dados dos blocos restantes que estão na 
linha DATA 80 e os coloca na tela via 


LINE. Como você pode observar, este 
programa é um bom exemplo de como 
os comandos gráficos funcionam em al- 
ta e em baixa resolução. 

“A linha 90 determina as coordenadas 

is da bola, X e Y, e as velocidades 
iniciais, VX e VY, que são componen- 
tes do vetor de velocidade nas direções 
X e Y, respectivamente. A bola, repre- 
sentada por um ponto de baixa resolu- 
ção, é, então, impressa nas coordenadas 

Para a checagem das cores, definem- 
se três variáveis (linha 110): P1, para o 
quadrado diagonalmente à frente da bo- 
la (qualquer que seja a direção em que 
ela esteja se movimentando), P2 e P3, 
para os quadrados nas posições de bai- 
xa resolução seguintes (cada bloco de 
baixa resolução tem quatro por quatro 
pontos). Partindo do princípio de que 
não é preciso checar os quadrados das 
direções nas quais a bola não se movi- 
menta, concluímos que esses três testes 
são suficientes. 

A linha 110 também verifica se os três 
quadrados são pretos (cor de número 1, 
que também é a cor de fundo). Em ca- 
so afirmativo, o computador vai para a 
linha 190, saltando os testes de reflexão, 
pois a bola não está batendo em nada. 

Se a posição x de baixa resolução se- 
guinte (quatro pontos adiante na dir 
ção horizontal) e a posição y seguin 
(quatro pontos na direção vertical) fe 
rem pretas, mas a próxima não, a bol! 
precisará voltar exatamente na mesma 
direção de que veio. Assim, o compu- 


































































tador salta para a linha 160, que con- 
tém os procedimentos necessários para 
esse caso especial de colisão diagonal. 
Os dois vetores de velocidade (na dire- 
ção x e na direção y) são invertidos, fa- 
zendo a bola retroceder. 

Se nenhum teste executado até a li- 
nha 130 for verdadeiro, a bola deve es- 
tar atingindo algum objeto (seja ele um 
canto ou um bloco) pelas laterais. A li- 
nha 130 verifica se o quadrado atingido 
está na horizontal (lados direito ou es- 
querdo), e, constatando que sim, inver- 
te o vetor relevante da velocidade. O ve- 
tor relevante é oposto ao eixo de coli- 
são — portanto, no nosso exemplo, o 
vetor y é invertido, 

A linha seguinte, ou seja, a 190, atri- 
bui à bola a cor de fundo, apagando, as- 
sim, sua última posição. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dá continuidade ao mo- 
vimento da bola. 











10 HOME : GR : COLOR= 13 
20 FOR X = 0 TO 39: PLOT X,0: 
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PLOT X,39: NEXT 
30 FOR Y = 0 TO 39: PLOT 0,Y: 
PLOT 39,Y: NEXT 

40 FOR N = 1 TO 30 

50 RX = INT ( RND (1) * 34) + 
3 

60 RY = 
3 

70 PLOT RX,RY: NEXT 
80 X * 19:Y = 19:XU = 
1 


INT ( RND (1) * 34) + 


> 1:1Y 


90 COLOR= 3: PLOT X,Y:0X = X:0 
Y =- y 


100 X = X + XV:Y = Y + YV 

110 TX = SCRN( X + XV,Y) 

120 TY = SCRN( X,Y + YV) 

130 IF TX = 13 THEN XV = - XV 
140 IF TY = 13 THEN YU = - YU 
150 COLOR= 0: PLOT OX,OY 

160 GOTO 90 
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Para o TK-2000, substitua os nüme- 
ros 13, no programa do Apple, por 5. 
As linhas alteradas ficam assim: 


10 HOME : GR : COLOR- 5 
130 IF TX = 5 THEN XV = 
140 IF TY = 5 THEN YV = 


- ху 
= y 


O programa para o Apple e o 
TK-2000 nào difere muito daquele do 
Spectrum. Ele comega limpando a tela, 
definindo o modo gráfico de baixa re- 
solução e especificando a cor amarela 
(número de código 13), tanto para os blo- 
cos como para as bordas. Em gráficos 
de baixa resolução temos uma tela ini- 
cial de 40x40, com uma janela para tex- 
to. Se indicarmos algum ponto da tela, 
aparecerá naquela posição um retângu- 
lo na cor que estiver em vigor. No 
TK-2000, o código da cor é 5 
(vermelho). 

A linha 20 é responsável pelas partes 
superior e inferior das bordas. Observe 
que mantivemos o valor da coordenada 
y constante e variamos o valor da coor- 
denada x, traçando, assim, as duas li- 
nhas horizontais. 

A linha 30 segue o mesmo princípio 
da linha 20, mas varia os valores da 
coordenada y e traga os lados esquerdo 
e direito das bordas. 

Os blocos espalhados aleatoriamen- 
te pela tela sáo gerados entre as linhas 
40 e 70. A linha 50 atribui à coordena- 
da RX um valor randómico entre 3 e 36, 
ealinha 60 atribui a RY um valor nesse 
mesmo intervalo. 

RX e RY são as coordenadas do blo- 
co a ser plotado (traçado no gráfico). A 
linha 80 define as coordenadas iniciais 
do retângulo que, no caso, representa a 
bola, e também ajusta os sentidos dos 
vetores de velocidade XV e YV. 


A linha 90 define a cor da bola — o 
número 3 é o código para a cor púrpu- 
ra no Apple e branca no TK-2000 —, 


imprimindo-a, em seguida, nas coorde- * 


nadas x e y. A mesma linha define duas 
outras variáveis importantes: OX e OY, 
que armazenam as coordenadas da po- 
sição anterior da bola para que esta pos- 
sa ser apagada mais tarde. 

A posição da bola é atualizada pela 
linha 100 do programa, que incrementa 
as coordenadas da bola na direção do 
vetor da velocidade. 

A cor do quadrado situado imedia- 
tamente ao lado da bola — ou seja, 
aquele no qual a bola está prestes a ba- 
ter pela horizontal — é guardada em 
TX, por meio do comando SCRN. A 
cor do quadrado logo acima ou abaixo 
(depende da trajetória) da bola é guar- 
dada na variável TY. As linhas 130 e 140 
verificam se esses quadrados que estão 
no caminho da bola são amarelos (cor 
13) ou, no caso do TK-2000, vermelhos 
(cor 5). Se o quadrado da horizontal for 
amarelo ou vermelho, inverte-se o vetor 
de velocidade horizontal da bola. 
Tratando-se do quadrado de cima ou de 
baixo, o vetor invertido será o da com- 
ponente vertical. 

Para apagar a bola, utilizamos o já 


conhecido artifício de redesenhá-la па. 


mesma posição, só que na cor de fun- 
do. Para isso, a linha 150 seleciona a cor 
O (preta), que é a cor de fundo, e plota 
um quadrado no local definido pelas 
coordenadas OX,OY — coordenadas 
“velhas” da bola. 

O programa continua na linha 160, 
que envia o computador de volta para 
a linha 90 e tudo se repete. 

Observe que o programa não inclui 
testes para a verificação de quadrados 
dispostos diagonalmente à trajetória 
percorrida pela bola, Assim, eles são ig- 
norados e eliminados. Não é difícil 
acrescentar uma linha que faça esse tes- 
te, mas o efeito seria uma bola indo e 
voltando pelo mesmo caminho. 


Ex iaa 12) 


É muito fácil transformar os progra- 
mas em jogos, bastando adicionar-lhes 
algumas linhas. O programa de TRS- 
Color, por exemplo, constituiria uma 
boa base para um jogo tipo fliperama. 
Podemos fazer o computador executar 
várias operações depois das condições 
IF...THEN — por exemplo, soar um 
bip cada vez que a bola atinge um blo- 
co ou borda, ou mesmo acrescentar um 
placar. Outros artigos de INPUT utili- 
zaráo os comandos vistos aqui em diver- 
sas rotinas de jogos. 
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O TRS-Color náo dispóe apenas do 
POINT, usado na tela de baixa resolu- 
ção. Há outro comando, o PPOINT, 
que pode ser utilizado na tela de alta re- 
solução. No MSX, o mesmo comando 
POINT se aplica à alta resolução. 

Em vez de devolver o código da cor 
de um certo quadrado, como faz o co- 
mando POINT, o PPOINT devolve o 
código da cor de um ponto. 

Digite e rode o programa a seguir e 
veja como empregar esse comando. 


10 PMODE 1,1 

20 PCLS 3 

30 SCREEN 1,0 

40 LINE(20,20)-(235,171),PRESET 
,BF 

50 VX*RND (7) -4: VY*RND (7) -4 

60 BX=127:BY=95 

70 PSET(BX,BY,4) 

80 IF PPOINT(VX+BX,BY)=3 THEN Y 
X=RND (3) * ((VX>0) - (VX<0)) 

90 IF PPOINT(BX,BY+VY)=3 THEN Y 
Y=RND (3) * ((VY>0) - (VY<0)) 

100 PRESET (BX,BY) 

110 BX=BX+VX:BY=BY+VY 

120 GOTO 70 


ns 


10 SCREEN 2:COLOR 1,15,15:R-RND 





(-TIME) 

40 LINE (16,16)-(238,177),4,B:P 
AINT(0,0),4 

50 VX*INT (RND (1) *8-4) : VY*INT (RN 
D(1)*8-4) 


60 BX=127:BY=95 

70 PSET(BX,BY),4 

80 IF POINT(VX+BX,BY)=4 THEN VX 
--UX 

90 IF POINT(BX,BY*UY)-4 THEN VY 
=-VY 

100 PRESET(BX,BY),15 

110 BX=BX+VX:BY=BY+VY 

120 GOTO 70 


Uma bola movimenta-se pela tela, 
batendo e voltando. O comando 
PPOINT — ou POINT, no MSX — é 
usado para verificar se a bola bateu na 
parte azul. As linhas 80 e 90 checam se 
o ponto à frente da bola é azul. Em ca- 
so afirmativo, a bola é revertida pelo 
restante das duas linhas, que calculam 
uma velocidade aleatória para o movi- 
mento da bola (no programa do MSX 
a velocidade é apenas invertida). 

Em geral, usa-se PPOINT (ou POINT, 
no MSX) para detectar colisões. Se ti- 
vermos, por exemplo, um gráfico coli- 
dindo com outro, podemos checar a co- 
lisão verificando a cor de um deles. 











MÚSICA EM 
SEU MICRO 


Bach ou Beethoven? Pink Floyd ou The 
Cure? Seja qual for a sua escolha 
musical, vocë pode tornar-se um ótimo 
instrumentista, dedilhando 

o teclado de um microcomputador 





Com exceção do Apple, todos os mi- 
crocomputadores mencionados neste ar- 
tigo contam com algum tipo de coman- 
do capaz de produzir sons. O funciona. 


mento de comandos sonoros, aliás, já 
foi explicado anteriormente em Quebre 
a Barreira do Som (página 168). Um ar- 
tigo posterior — Apple e TK-2000: Efei- 
tos Sonoros — abordou o fun: 





to de uma rotina em código de máqui- 
na, que será utilizada no programa des- 
te artigo; ela permite que os micros des- 
sas linhas produzam sons 

De um modo geral, é possível selecio- 
nar tanto a tonalidade como a duração 
da nota emitida. No MSX e no TR 
Color, outros parâmetros também po- 
dem ser modificados. 





RANSFORME 1j COMPUT С 
IM ÓRGÃO MU E CAL 








A forma de produzir sons por meio 
de um programa em BASIC varia de 
computador para computador. No 
M podemos tocar até três notas ao 
mesmo tempo, o que possibilita a exe- 
cução de acordes musicais. Os demais 
produzem só uma nota por vez. O M 
permite que controlemos outros pará- 
metros essenciais para certas aplicagóes. 





A 











Nenhuma dessas diferenças é relevan- 
te no momento. De fato, melodias sim- 
ples podem ser executadas em qualquer 
um dos cinco computadores abordados 
neste artigo, que pretende ser apenas um 
guia para principiantes. Começaremos 
com algumas noções de teoria musical, 
necessárias à compreensão do progra- 
ma, que transforma parte do teclado de 
seu micro em um instrumento simples, 
Em artigo posterior, veremos de que 
maneira tirar maior proveito dos recur- 
sos musicais do computador. 

Antes de iniciar, devemos explicar o 
significado de dois termos fundamen- 
tais. O primeiro deles é a expressão ““al- 
tura”, que aqui quer dizer o mesmo que 
tom ou tonalidade. Ele permite classifi- 
car as notas musicais em graves e agu- 


das. Assim, uma nota mais alta que ou- 
tra será mais aguda que ela; uma nota 
mais baixa será mais grave. O segundo 
termo, “intervalo”, indica a distância 
musical entre duas notas de tonalidade 
diferente. 
ы UMA ESCALA SIMPLES 
Uma escala é uma série ascendente de 
SI |DÓ 









notas musicais, cada uma mais alta que 
a anterior. Embora em computacáo se- 
ja tecnicamente melhor recorrer a letras 
do alfabeto — de A a G — para desig- 
nar as notas (como acontece na Europa 
e nos Estados Unidos), o sistema ado- 
tado no Brasil emprega os nomes tradi- 
cionais — dó, ré, mi, fá, sol, lá, si. As- 
sim, uma escala comega com dó e vai 
“subindo” até o próximo dó, num to- 
tal de oito notas. 
Essa escala ““dó-ré-mi” é chamada de 
pee “escala maior''. Ela é definida por uma 
relação musical entre as notas. Assim, 
qualquer seqüéncia de notas com o mes- 
o mo padráo de intervalos musicais entre 
si é uma “escala maior”. 


E AS TECLAS PRETAS? 


As teclas brancas de um piano cor- 
respondem ás notas (letras) A, B, C, D, 
E, F e G, num ciclo que se repete pelo 
teclado afora — C é dó, D é ré, F é mi 
etc. A “escala maior” corresponde a oi- 
to teclas, começando num C e terminan- 
do no próximo C. Essa escala é deno- 
minada escala de '*C maior"', por mo- 
tivos óbvios. Como dissemos antes, uma 
“escala maior” pode iniciar-se em qual- 
quer tonalidade, mas a escala de ''C 
maior” deve começar necessariamente 
num C, que tem uma altura específica. 
A escolha dessa letra como primeira no- 
ta fixa a tonalidade da escala. 


| 
iso | LÁ 














Para que servem entáo as teclas pre- 
tas do teclado? Acontece que a “escala 
maior” não contém todas as notas pos- 
síveis entre a primeira e a última letras. 
Entre dó e ré, por exemplo, existe uma 
nota que náo pertence á “escala maior”; 
o mesmo ocorre com outros pares de no- 
tas. As teclas pretas correspondem a esse 
tipo de som intermediário. Assim, a te- 
cla preta entre C e D (dó e ré em “C 
maior”) é chamada de C sustenido ou 
D bemol (““sustenido”” significa mais al- 
to e “bemol”, mais baixo), conforme 
usemos a nota acima ou abaixo dela co- 
mo referência. 

A nota entre D e E é D sustenido ou 
E bemol, e assim por diante. Note que 
não há tecla preta entre E e F (mi e fá 
ет “С maior") nem entre B e C (sie 
dó em “'C maior”). 

O intervalo existente entre duas teclas 
vizinhas (mesmo que elas tenham cores 
diferentes) é chamado de semitom, de 
maneira que os intervalos entre C e C 
sustenido, C sustenido e D e entre E e 
F sào todos semitons. Um intervalo que 
contenha dois semitons é denominado 
tom “inteiro”, 

O arranjo de tons e semitons que de- 
finem uma escala maior é: 


dois semitons = um tom entre dó e ré 
(C e D em “C maior”). 


dois semitons = um tom entre ré e mi 
(D e E em “C maior”) 


um semitom entre mi e fá (E e F em “C 
maior"). 


dois semitons = um tom entre fá e sol 
(F e G em “C maior”). 


dois semitons = um tom entre sol e lá 
(Ge A em “C maior”). 


dois semitons = um tom entre lá e si (A 
e Bem “C maior"). 


um semitom entre si e dó (B e C em “C 
maior”). 


OUTRAS E: AS MAIORES 


Segundo o que foi exposto, existem 
doze semitons entre o primeiro e o se- 
gundo dó de uma ““escala maior” (to- 
tal de oito notas). 

Suponhamos agora que precisamos 
de uma “escala maior'' em outra tona- 
lidade — comegando em G, por exem- 
plo. Nela, G seria dó e A seria ré; mas, 
se tocássemos as seis teclas seguintes, о 
arranjo de intervalos não seria o de uma 
“escala maior”: os intervalos entre lá e 


si, e si e dó não estariam corretos. Para 
obtermos uma “escala maior” verdadei- 
ra, F deve ser substituído por F susteni- 
do (ou si, em nossa nova escala), resta- 
belecendo o padráo correto de interva- 
los. Para entender melhor, estude o dia- 
grama da página anterior ou use um te- 
clado de verdade. 

Uma ““escala maior" começando em 
F seria então: F, G, A, B bemol, C, D, 
E e F. (B deve ser bemol, caso contrá- 
rio a nota fá e os intervalos mi-fá e fá- 
sol estaráo errados). 

Podemos obter uma *'escala maior” 
começando em qualquer nota, desde que 
respeitemos o arranjo de intervalos, Mas 
qualquer escala não iniciada em C de- 
verá usar uma ou mais teclas pretas: 
apenas a escala “*C maior” usa só teclas 
brancas. Fica explicado porque ela é táo 
popular: é mais fácil tocar usando só as 
teclas brancas, 

Muitas músicas simples — como can- 
tigas de ninar, músicas folclóricas e al- 
guns hinos — podem ser tocadas na es- 
cala maior. A canção Três Ratinhos Ce- 
gos, por exemplo, começa assim: 


mi, ré, dó 
mi, ré, dó 
sol, fá, fá, mi 
sol, fá, fá, mi 


e as primeiras notas de Atirei o Pau no 
Gato são: 


sol, lá, mi, ré, mi, fá, sol, sol, 
sol, fá, sol, lá, lá, lá, 
sol, lá, mi, mi, mi... 


Escrevemos aqui apenas as tonalida- 
des; o ritmo fica por conta do leitor. Só 
com notação musical — um tema que 
não abordaremos agora — poderíamos 
transmitir a informação completa a res- 
peito da melodia — altura, ritmo, inten- 
sidade, entre outras coisas. 

Músicas mais complexas não poderão 
ser executadas somente com as teclas 
brancas. Geralmente, começamos em 
uma escala e, com o desenvolvimento da 
música, passamos temporariamente pa- 
ra outras escalas, usando notas que não 
aparecem na primeira. 

Veja, por exemplo, o caso de Yester- 
day, música composta por John Lennon 
e Paul McCartney que se tornou um dos 
grandes sucessos dos Beatles: 


ré, dó, dó, mi, fá, fá sustenido, sol sus- 
tenido, lá, si, dó, si, lá, lá... 


Essas notas, estranhas à escala origi- 
nal, são um requinte; elas dão um to- 
que especial a muitas melodias. 


М(15 00 5/6ТЕМ005? 


Por que se usa o termo ““sustenido”” 
(em F sustenido) na escala **G maior"', 
e “bemol” (em B bemol) na escala “Е 
maior”? Afinal, F sustenido e G bemol 
correspondem á mesma tecla preta. Por 
que náo usar só um dos termos, deixan- 
do o outro de lado? Quem tentar criar 
novas “escalas maiores” — começando 
em notas diferentes de C — terá a res- 
posta. Na verdade, os dois termos são 
necessários para garantir que, em qual- 
quer escala, cada nota seja representa- 
da por uma letra diferente. Assim, a 
substituição do B bemol da escala “F 
maior”' por A sustenido, resultaria em: 
F, G, A, A sustenido, C, D, Ee F. Em 
tal seqüéncia de notas aparecem dois A 
e nenhum B, o que pode gerar confusão. 

Da mesma maneira, a substituição de 
F sustenido por G bemol em “С 
maior”, resultaria em uma escala com 
dois G e nenhum F. Já o emprego de be- 
móis no lugar de sustenidos, ou vice- 
versa, é tão deselegante como erros de 
ortografia em um texto. Programas pa- 
ra compor música que usem só bemóis 
— ou sustenidos —, com a justificativa 
de que C sustenido é igual a D bemol, 
deixam muito a desejar. 


FREQUÉNCIA E INTERVALOS 


Som é o efeito produzido pelas vibra- 
ções no ar. Quanto mais rapidamente es- 
tas se repetirem, ou quanto maior for 
sua freqüéncia, mais aguda será a nota 
correspondente. A unidade usada para 
exprimir freqüência é cps (ciclos por se- 
gundo) ou Hz (hertz, que significa a 
mesma coisa). 

Se tomarmos a nota C, cuja freqüên- 
cia é igual a 256 Hz, e dobrarmos esse 
valor, obteremos outra nota C uma oi- 
tava acima da primeira — mais aguda, 
portanto (uma oitava é o intervalo entre 
o dó mais baixo e o dó mais alto). Do- 
brando novamente o valor da freqüên- 
cia, ele passará de 512 para 1024 Hz, que 
corresponde à próxima nota C — uma 
oitava acima da anterior. Desse modo, 
quando multiplicamos a freqüência de 
uma nota, adicionamos a ela um inter- 
valo musical. 

Já vimos que há doze semitons em 
uma oitava (treze teclas, oito brancas e 
cinco pretas, com doze semitons entre 
si). Se, dobrando a freqüência, subimos 
uma oitava, por que fator devemos mul- 
tiplicar a freqüência de uma nota para 
subir um semitom? No caso de uma oi- 
tava acima, temos a equação: 








freqüéncia da nota x 2 — freqüéncia da 
nota uma oitava mais alta. 


Chamamos de X o fator necessário 
para subir um semitom. Teremos entào: 


freqüéncia da nota 

xXXxXxXxXxXxXxXxXxXxXxXxX = 
freqüëncia da nota uma oitava mais alta. 
*X*X*X*X*X*X*X*X*X*X*X*X = 


O número que divide a razáo 2:1 em 
doze partes iguais é a décima segunda 
raiz de 2 (para calcular esse valor em 
BASIC, use a expressão 21(1/12)). Se 
multiplicarmos 256 por esse valor, ob- 
teremos a nota um semitom mais alta. 
Uma nova multiplicação adiciona mais 
um semitom. Se repetirmos o processo, 
após doze multiplicações consecutivas, 
chegaremos à freqiiência da oitava se- 
guinte. Por tudo isso, a décima segun- 
da raiz de dois é uma constante funda- 
mental da música. 


MELODIAS NA "ESCALA MAIOR 


Se quisermos tocar uma müsica usan- 
do o programa do final deste artigo, te- 
remos que adivinhar qual nota é dó, 
qual é ré, e assim por diante. A questáo 
é: como tocar “de ouvido"? 

Existirá algum método para fazer 
com que a música possa ser tocada so- 
mente nas teclas brancas, facilitando sua 
execução? Neste caso também, um ca- 
minho possível é descobrir qual nota da 
música é um dó, deduzindo, a partir daí, 
as posições das demais notas. Muitas 
melodias começam ou terminam com es- 
sa nota; além disso, o dó acaba funcio- 
nando como o ““centro de gravidade”” 
de certas músicas simples. Uma vez en- 
contrada, essa nota nos servirá de guia, 
e, com um pouco de sorte, descobrire- 
mos as outras. Tente tocar a música des- 
de o início, nota por nota; preste muita 
atenção no que estiver ouvindo, procu- 
rando perceber se a tonalidade está su- 
bindo ou descendo naquele ponto e se 
a nota seguinte se encontra na tecla vi- 
zinha, ou mais além. 

Se nos enganarmos sobre qual é a no- 
ta dó, algumas notas parecerão muito 
graves ou muito agudas e teremos de 
procurar o dó “'certo””. Com paciência 
e perseverança, porém, qualquer um po- 
de desenvolver uma espécie de “intui- 
ção musical” e alguns serão capazes de 
tocar músicas inteiras no teclado de um 
microcomputador. 

Para facilitar o trabalho dos princi- 
piantes, contudo, este artigo menciona 
as notas de algumas melodias mais ou 
menos conhecidas. 





É assim que o diagrama do teclado aparece 
na tela dos micros da linha TRS-Color. 


UM TECLADO MUSICAL 


Os programas a seguir transformam 
a parte superior do teclado do seu com- 
putador em um pequeno órgáo. As le- 
tras Q, W, E, R, T, Y, U, I serão as no- 
tas dó, ré, mi etc. As teclas da direita 
avançam na oitava seguinte. As teclas 
2, 3, 5, 6, 7 funcionam como as teclas 
pretas do piano. Um diagrama de seu te- 
clado fica mais ou menos assim: 


23 567 etc. 
QWERTYU I etc. 
dr d 
óéiáoáió 


O programa coloca na tela um dia- 
grama semelhante para orientar o tecla- 
dista. Além disso, quando forem toca- 
das as notas da primeira oitava da ““е5- 
cala maior”, seus nomes aparecerão 
num canto do vídeo. 

Digite a seguir o programa específi- 
co para o seu micro e siga as instruções 
que o acompanham para se tornar um 
“virtuose”. 


O programa do Spectrum transforma 
as duas linhas superiores do teclado em 
um órgão. Para ouvir uma nota, basta 
pressionar a tecla correspondente. 

A listagem começa estabelecendo os 
valores das variáveis que correspondem 
à duração das notas, ao endereço do la- 
ço principal (guardado na variável loop, 
para economizar memória), e à coorde- 
nada x do comando PRINT AT, usado 
para impressão das notas na tela. Ela 
continua selecionando as cores da tela, 
e entra a seguir na porção responsável 
pela produção de sons. 

A variável loop contém o número da 
linha para o qual o programa retornará 








após executar uma nota; ele aguardará 
então que você pressione a tecla seguin- 
te. Quando isso acontecer, o código do 
caractere correspondente será colocado 
na variável nota, com o auxílio do co- 
mando CODE. 

O computador irá então para a linha 
cujo número está em nota. Os números 
de linha correspondem aos códigos das 
teclas usadas (de 48 a 121). O comando 
SOUND em cada uma dessas linhas é 
ajustado para tocar a nota correspon- 
dente à tecla (Q, por exemplo, corres- 
ponde a dó). Se consultarmos o manual 
— ou o artigo Quebre a Barreira do Som 
—, veremos que o primeiro número 
após SOUND corresponde à duração da 
nota (aqui representada pela variável d) 
e o segundo, à tonalidade. 

Quando a tecla apertada for de uma 
nota da “escala maior", o nome desta 
também será impresso na tela, pela mes- 
ma linha que a executa. 

Depois de emitir o som, o computa- 
dor retorna à linha 1000, onde espera 
uma nova tecla ser pressionada. 





1 GOTO 900 
47 GOTO loop 
48 SOUND d,15: GOTO loop 
50 SOUND d,1: GOTO loop 
51 SOUND d, GOTO loop 
53 SOUND d,6: GOTO loop 
54 SOUND d,8: GOTO loop 
55 SOUND d,10: GOTO loop 
57 SOUND d,13: GOTO loop 
101 PRINT AT y,x;"MI": SOUND d 
,4: GOTO loop 
105 PRINT AT y,x;"DO": SOUND d 


,12: GOTO loop 


111 SOUND d,14: GOTO loop 

112 SOUND d,16: GOTO loop 

113 PRINT AT y,x;”DO”: SOUND d 
,0: GOTO loop 

114 PRINT AT y,x;"FA": SOUND d 
,5: GOTO loop 

116 PRINT AT y,x;"SO": SOUND d 
17: GOTO loop 

117 PRINT AT y,x;"SI": SOUND d 
+11: GOTO loop 

119 PRINT AT y,x;"RE": SOUND d 
,.2: GOTO loop 

121 PRINT AT y,x;"LA": SOUND d 
‚9: GOTO loop 

800 GOTO loop 

900 LET D=.03: LET X=5: LET lo 
op=1000 

901 BORDER 4: PAPER 4: CLS 


902 PRINT AT 8,6;"d rmf as 1 


sd” 

903 PRINT AT 9,6;^ oeiaoa 
i o" 

910 LET a$-" 2 3 567 90 
920 FOR y-3 TO 4: GOSUB 990 
930 NEXT y 

940 LET a$="Q WERTYUIO 
р" 

941 PAPER 7: ІМК 0 

950 FOR y=4 TO 6: GOSUB 990 





960 NEXT y 
980 LET x=15: LET y=15: GOTO 1 
оор 


990 FOR i-1 TO LEN a$ 
991 IF a$(i)<>CHRS 32 
PRINT AT y,x*i;a$(i); 
992 NEXT i: RETURN 

1000 PRINT AT y,x;CHR$ 


THEN 


32; CHR$ 


32 

1005 LET a$-INKEYS: IF 
EN GOTO 1000 

1100 LET nota=CODE a$: GOTO not 
a 


а$="" ТН 


Aqueles que possuem micros da li- 
nha Spectrum importados devem subs- 
tituir o comando SOUND pelo coman- 
do BEEP, que tem a mesma sintaxe. 

Após iniciar a execugáo do programa, 
mantenha uma das teclas pressionadas 
para ouvir um som pulsante correspon- 
dente á auto-repetigáo da tecla. O som 
náo é emitido continuamente, como 
num órgáo, pois o comando SOUND 
produz sons com duragáo limitada. As- 
sim, o que o programa realmente faz é 
tocar a mesma nota repetidas vezes. 


¡EAN 


Vejamos agora o que acontece com 
os modelos da linha MSX. 

Os microcomputadores dessa linha 
contam com poderosos comandos sono- 
ros gracas a um microprocessador inter- 
no dedicado inteiramente à produção de 
sons, e capaz de funcionar simultanea- 
mente com a unidade central. Para pro- 
gramá-lo em BASIC, precisamos recor- 
rer a vários comandos SOUND, com o 
propósito de definir diversos parâmetros 
do som — ou ruído — que estamos que- 
rendo emitir. Uma introdução a esse as- 
sunto foi apresentada no artigo Quebre 
a Barreira do Som, onde abordamos vá- 
rios sons não-musicais. 

Contudo, para transformar a parte 
superior do teclado num programa se- 
melhante ao dos outros micros, pode- 
mos usar o comando PLAY, que torna 
o programa mais simples e curto. 

A primeira linha do programa esta- 
belece os parâmetros iniciais das notas: 
volume, duração, velocidade de execu- 
ção. As linhas 20 e 30 colocam todas as 
notas usadas pelo programa dentro da 
variável indexada N$, recorrendo ao co- 
mando READ e aos dados da linha DA- 
TA. A linha 40 cria um cordão conten- 
do todas as teclas usadas e um outro que 
permite dar nome a algumas das notas 
(dó, ré, mi etc). As linhas que vão de 50 
a 100 cuidam da organização do video. 
A primeira delas seleciona a tela de tex- 
to com 32 colunas, escolhe as cores e 
desliga as teclas de função. 

Nas três linhas seguintes — ou seja, 


55, 60 e 65 —, o comando VPOKE é uti- 
lizado para modificar a tabela de cores 
— BASE (6) —, permitindo, assim, a 
impressão de letras coloridas. Se você 
não gostar das cores, pode mudar os có- 
digos nos locais onde eles aparecem — 
para maiores informações, veja o arti- 
go Os Comandos PEEK e POKE (pági- 
na 261). 

Na linha 70 , o comando VPOKE é 
novamente utilizado, desta vez para es- 
crever na tela. O FOR... NEXT contido 
nessa linha imprime parte do diagrama 
do teclado na tela, obtendo com READ 
os códigos dos caracteres de cada uma 
delas na linha 75 e modificando a tabe- 
la de nomes — BASE(5). O restante do 
diagrama é feito do mesmo modo pelas 
linhas 80 e 85. 

As linhas 90 e 100 completam o qua- 
dro, imprimindo o nome das notas sob 
as teclas correspondentes. 

A linha 120 espera que acionemos 
uma tecla. A 130 descobre qual das no- 
tas do cordào M$ corresponde à tecla 
pressionada; se a tecla nào pertencer ao 
conjunto predefinido, a linha 120 será 
repetida. 

A linha 140 é a que realmente execu- 
ta a nota, usando o PLAY. A altura da 
nota é selecionada pela variável NT, que 
é usada para escolher o elemento de N$ 
que contém os operandos adequados do 
PLAY. 

A seguir, um comando ON GOTO na 
linha 150 imprimirá o nome da nota no 
canto superior esquerdo da tela, se ela 
pertencer à primeira oitava de ''C 
maior”. O programa retorna então pa- 
ra verificar uma nova tecla. 


10 PLAY "V15L64T255" 

20 DIM N$(21):FOR K=0 TO 16:REA 
D N$(K):NEXT 

30 DATA C,C4,D,D4,E,F,F4,G,G4,A 
,А%,В,04С,04С%,040,040%,04Е 

40 М5-"0243ЕН5Т6Ү71/1900Р”:р5-"0 
WERTYUIO" 

50 SCREEN 1:COLOR 1,6,6:KEY OFF 
55 FOR I=6 TO 7:VPOKE BASE(6)+I 
,15*16*1:NEXT 

60 FOR 1=8 TO 11:VPOKE BASE(6)+ 
I,16*15:NEXT 

65 FOR I=12 TO 15:VPOKE BASE(6) 
*1,16*10:NEXT 

70 FOR K*0 TO 6:READ A:N*2*A-20 
*INT(A/10) :VPOKE BASE (5)+71+N,A 
:УРОКЕ ВАЗЕ (5) +103+М,А:МЕХТ 

75 DATA 50,51,53,54,55,57,48 

ВО РОВ K=0 TO 9:READ A:VPOKE BA 
SE(5)+102+K*2,A:VPOKE BASE (5) +1 
34+K*2,A:VPOKE BASE (5) +166+K*2, 
A:NEXT 

85 DATA 81,87,69,82,84,89,85,73 
+79,80 

90 LOCATE 4,9:PRINT "dr mf s 
1 ва" 

100 LOCATE 4,10:PRINT "oe ia 


o a i o" 

120 AS-INKEYS:IF AS-"" THEN 120 
130 NT-INSTR(MS,AS):IF NT-0 THE 
N 120 

140 PLAY "O3"*N$(NT-1) 

150 LOCATE 0,0:D*INSTR(D$,A$):0 
N D GOTO 170,180,190,200,210,22 





0,230,170 

160 PRINT 120 
170 PRINT 120 
180 PRINT 120 
190 PRINT 120 
200 PRINT 120 
210 PRINT "SO":GOTO 120 
220 PRINT "LA”:GOTO 120 
230 PRINT "SI^:GOTO 120 


do RN 


O programa do Apple utiliza a roti- 
na de produgáo de sons do artigo Ap- 
ple e TK-2000: Efeitos Sonoros. O 
TK-2000 nào precisa dela, já que dispõe 
do comando SOUND. 

A linha 10 limpa o vídeo e ativa a te- 
la gráfica de baixa resolugáo. A linha 20 
transfere para a memória os códigos da 
rotina de geração de som, contida na li- 
nha 30. 

A linha 35 cuida de colorir a tela, 
usando uma série de traços horizontais 
— verdes, no Apple — desenhados por 
comandos HLIN. As linhas 40 a 70 de- 
senham um teclado de piano. As teclas 
brancas e pretas são feitas por coman- 
dos VLIN. As coordenadas para uso 
desses comandos ficam nas linhas DA- 
TA 50 e 70. 

As linhas 80 e 90 imprimem as letras 
das teclas correspondentes ao desenho 
do piano, para orientar o usuário. Ob- 
serve que há dois espaços entre cada par 
de letras. A linha 100, por sua vez, im- 
prime o nome das notas (os tradicionais 
dó, ré, mi...) 

A seguir, O programa espera que se- 
ja pressionada uma tecla, colocando seu 
caractere em K$. 

Na linha 110, o comando POKE 
900,60 define a duração das notas —o 
endereço 900 é usado justamente para 
conter essa duração. 

Depois disso, uma grande quantida- 
de de linhas IF...THEN testa o conteú- 
do de K$ para descobrir qual tecla foi 
pressionada, emitindo a nota correspon- 
dente em cada caso. O endereço 901 é 
usado para determinar a tonalidade. A 
rotina de produção de som é executada 
pelo comando CALL 800. 

Detectada a tecla pressionada, o pro- 
grama retorna à linha 110 para aguar- 
dar uma nova nota. 











Por que as teclas musicais criadas 
pelo programa nos microcomputadores 
da linha TRS-Color não têm auto-repe- 
tição? 

O programa do TRS-Color usa habi- 
tualmente o comando INKEYS para ve- 
rificar o teclado. 

possível obtermos a auto-repeti- 
ção das teclas por intermédio do co- 
mando PEEK (essa forma tem sido mui- 
to utilizada por nós em rotinas de mo- 
vimentação do cursor). No entanto, o 
programa teria que acionar, neste ca- 
so, mais de vinte PEEK com diferentes 
números, um para cada tecla musical. 

Como tais números não teriam ne- 
nhuma relação entre si (as teclas, nes- 
te caso, são QWE... e não ABC...), se- 
ria preciso colocá-los em linhas sepa- 
radas ou armazená-los em uma linha 
DATA, tornando a execução do progra- 
ma muito demorada e complicada. É 
mais rápido, cômodo e simples pressio- 
nar uma tecla de cada vez. 


A duração de uma nota pod: 
controlada pelo tempo em que a tecla 
se mantém sob pressão? 

De um modo geral, a resposta é não. 
Na maioria dos computadores isso só 
seria possível com linguagem de má- 
quina, já que o programa teria que fa- 
zer duas coisas ao mesmo tempo: to- 
car a nota e verificar se a tecla conti- 
nua sendo pressionada. 

Contudo, no micro MSX esse con- 
trole é possível; é que, nesse compu- 
tador, o dispositivo de som funciona in- 
dependentemente da unidade de pro- 
cessamento central, 

A produção de acordes — emissão 
de mais de uma nota simultaneamen- 
te — para enriquecer uma molodia tam- 
bém é possível no MSX, que conta com 
três canais de som. 











10 HOME : GR 

20 FOR I = 0 TO 22: READ A: PO 
KE 800 + I,A: NEXT 

30 DATA 160,0,174,133,3,238,4 
8,192,136,208,5,206,132,3,240,6 
.202,208,245,76,34,3,96 

35 COLOR= 12: FOR I = 0 TO 39: 
HLIN 0,39 AT I: NEXT 

40 COLOR= 0: FOR I = 1 TO 7: R 
EAD À: VLIN 20,30 AT A: NEXT 

50 DATA 8,11,17,20,23,29,32 
60 COLOR= 15: FOR I = 1 TO 20: 
READ A: VLIN 20,39 AT A: NEXT 








70 DATA 6,7, 9,10, 12,13,15,1 
6,18,19, 21,22,24,25,27,28,30,3 
‚33,34 

80 ЧТАВ 21: HTAB 9: PRINT "2 








3"; TAB( 18);"5 6 TAB( 30 
2.9. 107 

90 VTAB 22: HTAB B: PRINT "Q 
W X RT Y O PF 

100 VTAB 24: HTAB 7: PRINT "DO 


RE MI FA SO LA SI DO”; 





110 GET K$: POKE 900,60 
120 IF KS = "Q" THEN POKE 901 
+96: CALL 800: GOTO 110 
130 IF KS = "2" THEN POKE 901 
+90: CALL 80 бото 110 
140 IF K8 = ”W” THEN POKE 901 
+85: CALL 800: GOTO 110 
150 IF K$ - "3" THEN POKE 901 
,80: CALL 800: GOTO 110 
160 IF KS - "E" THEN POKE 901 
+76: CALL 800: GOTO 110 
170 IF K$ = "Rº THEN POKE 901 
+72: CALL 800: GOTO 110 
180 IF K$ = "5" THEN POKE 901 


+67: CALL 800: GOTO 110 











190 IF K$ - "T" THEN POKE 901 
+64: CALL 800: GOTO 110 

200 IF K$ = "6" THEN POKE 901 
+60: CALL 800: GOTO 110 

210 IF K$ = "Y” THEN POKE 901 
+56: CALL 800: GOTO 110 

220 IF K$ = "7" THEN POKE 901 
+53: CALL 80 GOTO 110 

230 IF K$ = ” THEN POKE 901 
,50: CALL 800: GOTO 110 

240 IF K$ = "I" THEN POKE 901 
+47: CALL 800: GOTO 110 

250 IF KS - "9" THEN POKE 901 
,45: CALL 800: GOTO 110 

260 IF K$ = "O" THEN POKE 901 
,42: CALL 800: GOTO 110 

270 IF K$ - "0" THEN POKE 901 
,40: CALL 80 бото 110 

280 IF K$ - "P" THEN POKE 901 
+37: CALL 800: GOTO 110 

290 GOTO 110 


O programa acima funciona normal- 
mente nos micros da linha TK-2000. 
Contudo, muitos de seus usuários po- 
dem preferir usar o comando SOUND. 

Para isto, basta eliminar as linhas 20 
€ 30 e modificar a linha 110, dando-lhe 
a seguinte forma: 


110 GET K8: D = 60 
A seguir, modifique todas as ocorrën- 
cias de: 
POKE 901,F:CALL 800 
para 
SOUND F,D 


onde F nào é uma variável, mas o mes- 
mo número que ocorre após o POKE 
901 


Os usuários do TK-2000 podem mu- 
dar as cores nas linhas 35, 40 e 60, já 
que as cores do Apple sáo diferentes. 





O programa começa limpando a tela 
e colorindo-a de azul. A mesma linha 
também estabelece os parâmetros de vo- 
lume, duração e velocidade das notas 
que serão executadas pelo comando 
PLAY. O artigo Quebre a Barreira do 
Som explica a sintaxe desse comando. 

As linhas 20 e 30 posicionam as no- 
tas usadas pelo programa dentro da ma- 
triz N$. A linha 40 coloca num cordão 
as teclas que serão utilizadas e em ou- 
tro os nomes correspondentes a algumas 
delas (dó, ré, mi etc). 

As linhas 50 a 110 cuidam dos dese- 
nhos na tela, colorindo-os de laranja e 
preto. Depois disso, o computador es- 
pera que pressionemos uma tecla. Se es- 
ta não corresponder a uma nota, o com- 
putador voltará à linha 120 e esperará 
por outra. 

A linha 140 executa a nota com o au- 
xilio do comando PLAY. A tonalidade 
da nota é definida pela variável NT, que 
depende da tecla pressionada. NT é usa- 
da para selecionar o elemento da matriz 
N$ que contém os parámetros adequa- 
dos da instrugáo PLAY. 

Usando o comando ON...GOTO, o 
computador imprimirá na tela o nome 
da nota (se esta fizer parte da primeira 
oitava de ** C maior””), retornando em 
seguida para esperar uma nova tecla. 


10 CLS 3:PLAY"V31L4TB" : BS-CHR$ ( 
175) 

20 DIM NS(21):FOR K=0 TO 19:REA 
D N$(K) :NEXT 

MAE CAEDE ERE MIN 
,O4E,04F 





40 M$-"Q2W3ERST6Y7UISO0PE-"*CHR 
$(8) :D$*"QWERTYUIO" 

50 FOR K=0 TO 6:READ A:N=2*A-20 
*INT(A/10):POKE 1093*N,A:POKE 1 
125+N,A:NEXT 

60 DATA 50,51,53,54,55,57,48 

65 POKE 1113,45:POKE 1145,45 

70 FOR K=0 TO 11:READ A:POKE 11 
24+K*2,A:POKE 1156+K*2,A:POKE 1 
188+K*2,A:NEXT 

80 DATA 81,87,69,82,84,89,85,73 
.79,80,64,95 

90 PRINT 6260,"4"В5"г aer m"B$"f 
"B$"s"B$"1"B$ B$"d" 
100 PRINT 8292,"0"B$" 
a"B$"o"B$ B$"i"B$"o"; 
110 SCREEN 0,1 

120 AS=INKEYS:IF A: ” THEN 120 
130 NT=INSTR(MS,AS):IF NT=0 THE 
N 120 

140 PLAY"O3"*N$(NT-1) 

150 PRINT 80,;:D*INSTR(D$,A$):0 
N D GOTO 170,180,190,200,210,22 
0,230,170 

160 PRINT B$;B$;:GOTO 110 

170 PRINT"DO";:GOTO 110 

180 PRINT"RE";:GOTO 110 








B$"i"B$" 








PRINT"MI 
PRINT"FA 
PRINT"SO 
PRINT"^LA' 
PRINT"SI 


UMA SINFONIA DE BEETHOVEN 


O que podemos tocar nesse teclado 
musical que o programa acaba de criar? 
Que tal uma canção de ninar, por exem- 
plo? Ela começa com dó, de forma que 
a primeira tecla é Q; você terá que des- 
cobrir o ritmo “de ouvido”: 


Q,W,R,E 
Q,E,W. 
w, 


E, agora, esta passagem famosa da 
Nona Sinfonia de Beethoven, compos- 
ta quando o artista já estava surdo: 


E,E,R,T,T,R,E 
Q,Q,W,E,E,W,W 


Executemos a seguir o tema do filme 
A Noviga Rebelde: 


Nessa melodia existem apenas trés 
notas fora da escala (perto do final). 
Aqui estão as teclas para tocar o início 
de Jesus Alegria dos Homens, de Jo- 
hann Sebastian Bach: 


Infelizmente, neste ponto, a música 
“cai fora do teclado”. 













Neste artigo completaremos o jogo de 
palavras comegado na ligáo anterior. 
Nele vocé encontrará tudo o que ainda 
é necessário para começar a jogar. Di- 
gite as linhas que faltam e veja algumas 
aplicações interessantes para os coman- 
dos de manipulação de cordões alfanu- 
méricos do computador. Depois, desa- 
fie seus amigos para adivinhar palavras 
bem complicadas. 

Aqui estão as rotinas para cada uma 
das opções do jogo: comprar letras, adi- 
vinhar uma letra em uma posição espe- 
cífica da frase, e adivinhar a frase intei- 
ra. O programa também faz a contagem 
de pontos assim como do número de 
tentativas e de jogadas. 


370 IF 45<>"ХХ” АМр 49<>"22" 
AND LEN d$>1 THEN GOTO 360 
380 IF d$-CHR$ 32 THEN GOTO 
410 

385 IF d$-"ZZ" THEN 
: GOTO 900 

390 IF CODE d$«65 OR CODE d$» 
90 THEN GOTO 360 
400 IF d$-"XX" THEN 


LET d$-"" 


LET d$-"" 





COMPLETE O 
JOGO DE PALAVRAS 


: GOTO 500 
410 GOSUB 790 
420 LET e=0 
430 LET e=e+1 
440 IF e=1+1 THEN 

LET q$(m TO m+7)="": 
AT 4,0;q$: LET d$-"": 
450 IF s$(e)<>dS THEN 

430 
460 IF sS(e)=dS THEN 
)*d$: GOTO 430 
470 PAUSE 100: PRINT AT 14,0;: 
FOR r=1 TO 7: PRINT ” 
": NEXT r 

480 PRINT PAPER 2; INK 6;AT 1 
.22;tb;CHR$ 32: PRINT PAPER 2 
; INK 6;AT 14,0;z$: PRINT " TE 
NTATIVA ";f: LET f-f*l: IF s$- 
z$ THEN GOTO 730 
490 GOTO 360 
500 INPUT "QUAL CARACTER QUER 
ADIVINHAR ?", LINE d$ 
510 IF LEN d$>1 THEN GOTO 500 
520 IF dS=CHRS 32 THEN GOSUB 
790: GOTO 550 
530 IF CODE d$«65 OR CODE d$» 
90 THEN GOTO 500 
540 GOSUB 790 
550 PRINT PAPER 2; INK 6;AT 
18,0;d$: PRINT AT 18,2;"EM QUA 
L POSICAO ? - Use as tecl 


LET tb=tb-9 
PRINT 
GOTO 470 

сото 


LET z$(e 

















Nonada. É com essa palavra misteriosa 
que tem início Grande Sertáo: 
Veredas, de Guimaráes Rosa. Surpreenda 
seus adversários com expressóes 
como essa, jogando o jogo de palavras. 








as DIREITA e ESQUERDA e 
'0' para definir." 
560 PRINT PAPER 2; 
14,0:25: PRINT PAPER 6; 
ТАТ 14,b;28(b+1) 

570 PAUSE O: LET yS=INKEYS: IF 
yS="" THEN GOTO 570 

590 IF y$-"8" AND bX1-1 THEN 
LET b-b*l 

600 ТЕ yS="5" AND b>0 THEN 
LET b=b-1 

610 IF yS="0" THEN GOTO 680 


INK 6;AT 
INK 2 





640 IF b>=32 THEN LET w=15: 
LET v=b-32 

650 IF b€32 THEN LET w-14: 
LET v=b 

660 PRINT PAPER 2; INK 6;AT 
14,0;z$: PRINT PAPER 6; INK 2 


¡AT w,v;z5(b+1) 

670 GOTO 570 

680 IF 25(b+1)<>"*" THEN GOTO 
570 

690 IF sS(b+1)<>dS THEN LET 





tb=tb-9/2: PRINT FLASH T 
17,0;"QUE AZAR!": PAUSE 50: 
LET b=0: GOTO 470 


700 1F s$(b+1)=d$ THEN PRINT 
FLASH 1;AT 17,0;"MUITO BEM !": 
PAUSE 50: LET zS(b+1)=dS: LET 
tb=tb+o: LET b=0 

710 IF s$-z$ THEN GOTO 730 














720 GOTO 470 

730 PRINT INK 6; PAPER 2;AT 1 
.22;tb: PRINT AT 17,0;"PARABEN 
S, ";b$;TAB 0;TAB 3l;" ": 
PAUSE 100: CLS 
740 LET k=k+1: 
сото 880 

750 ET c$-a$: 
b$-c$ 

760 LET tc-ta: 
tb=tc 

770 LET q$-"": 
f=1 

780 GOTO 160 
790 LET m-(CODE d$-64)*8-7 
800 IF m--263 THEN LET m-209 
810 IF qS(m TO m*5)-"" THEN 





IF k-t*2 THEN 
LET a$*b$: LET 
LET ta=tb: LET 


LET d=0: LET 


GOTO 360 

820 LET g-VAL q$(m*2 TO m*3) 
830 RETURN 

880 IF ta»tb THEN CLS PRINT 
a$;" VENCEU POR ";ta;" A ";tb 
890 IF tb>ta THEN CLS PRINT 


b$;" VENCEU POR ";tb;" A ";ta 
892 IF ta-tb THEN CLS : PRINT 
" O0 RESULTADO FOI UM EMPATE !" 
895 STOP 

900 INPUT "INTRODUZA A FRASE", 
LINE h$ 

910 IF h$X»s$ THEN PRINT 
FLASH 1;AT 17,0;"ERRADO !": 








PAUSE 50: LET tb=tb-50: PRINT 

INK 6; PAPER T 1,22;tb: 

PRINT AT 15,0;"TENTATIVA ";f: 

LET f-f*1: GOTO 360 

920 FOR n*l TO 1: LET d$*z$(n) 
IF d$«»"*" THEN GOTO 950 

930 LET m-(CODE s$(n)-64)*8-7: 

IF m=-263 THEN LET m=209 

940 LET tb-tb*VAL q$(m*2 TO m* 

3) 

950 NEXT n: GOTO 730 








360 PRINT 6384," LINE INPUT " 

XX=ADIVINHAR LETRA 
ZZ=ADIVINHAR A FRASE 
A-Z=COMPRAR O CARACTER ?";D$ 

370 IF DS<>"XX” AND р5<>"22" АМ 

D LEN(D$)>1 THEN 360 

380 IF D$=CHR$(32) THEN 410 

385 IF D$-"ZZ" THEN D$-"":GOTO 

1000 

390 IF D$<"A” OR DS$>"Z” THEN360 

400 IF D$-"XX" THEN D$-"":GOTO 

500 

410 GOSUB 790 

420 E=0 










NOVAS ROTINAS PARA 
CONCLUIR O JOGO DE PALAVRAS 

1 COMPRE LETRAS 
п VERIFICACAO DO PALPITE 
DO JOGADOR 





COMO ADIVINHAR UMA LETRA 
EM POSIÇÃO ESPECÍFICA 

E ADIVINHE A FRASE COMPLETA 
A INSTRUÇÃO CALL NO APPLE 
E NO TK-2000 





440 IF E-L*1 THEN TB=TB-G:MIDS( 
05,М,8) =" ":PRINT 696,05 
:D$2"":GOTO 470 

450 IF MIDS(SS,E,1)<>DS THEN430 
460 IF MIDS(SS,E,1)=DS THEN MID 
$(Z$,E,1)*D$:GOTO 430 

470 GOSUB 950:PRINT €448:PRINT 
€416:PRINT €480,STRINGS (31,32); 
480 РВІМТ 654,ТВ:РВІМТ 6352,25: 
PRINT €320,"TENTATIVA"¡F:F=F+1: 
IF S$-2$ THEN 730 

490 GOTO 360 

500 PRINT 6448:PRINT €416:PRINT 
€448,"”;:LINE INPUT "QUER ADIV 
INHAR QUAL CARACTER ?”;D$ 

510 IF LEN(D$)>1 THEN 500 

520 IF DS=CHR$(32) THEN GOSUB 7 
90:GOTO 550 

530 IF D$«"A" OR D$2"Z" THENSOO 
540 GOSUB 790 

550 PRINT 6448,"EM QUAL POSICAO 
? - USE SETAS E '0' PARA DEFIN 
IR.”; 

560 PRINT 6352,Z$:POKE 1024*352 
*B, (ASC(MID$ (29, B*1,1) ) AND 191) 
570 YS-INKEYS:IF Y$-"" THEN 570 
590 IF Y$=CHR$(9) AND B<L-1 THE 
N B=B+1 

600 IF YS$=CHR$(8) AND B>0 THEN 
B=B-1 

610 IF Y$="0" THEN 680 











660 PRINT €352,Z3:POKE 352+1024 

+B, (ASC(MIDS (23,B+1,1))AND 191) 

670 GOTO 570 

680 PRINT €480,STRINGS(31,32);: 
IF MIDS(Z$,B+1,1)=D$ THEN TB=TB 

-G:PRINT 6448,"TRAPACEIRO!":FOR 
DE=1 TO 100:NEXT:B=0:GOTO 470 
690 IF MIDS(S$,B+1,1)<>D$ THEN 
TB*TB-G/2:PRINT 6448,"QUE AZAR! 
*:FOR DE=1 TO 100:NEXT:B=0:GOTO 
470 

700 IF MIDS(S$,B*1,1)*D$ THEN P 
RINT 6448,"MUITO BEM!":FOR DE-1 
TO 100:NEXT:MID$(Z$,B*1,1)*D$: 
TB=TB+G:B=0 

710 IF S$-Z$ THEN 730 

720 GOTO 470 

730 PRINT 8480,"PARABENS, ";B$; 
:GOSUB 950:CLS 

740 K=K+1:1F K=T*2 THEN 880 
750 CS=AS:AS=B$:B$=CS 

760 TC=TA:TA=TB:TB=TC 

770 Q8="":D=0:F=1 

780 GOTO 160 

790 M=(ASC(DS)-64)*8-7 

800 IF M=-263 THEN M=209 
810 IF MIDS(03,M,6)=" 

N 360 

820 G=VAL (MIDS (QS,M+2,2)) 
830 RETURN 

880 IF TADTB THEN CLS: PRINT AS; 
” VENCEU POR";TA;"A";TB 

890 IF TB>TA THEN CL 
” VENCEU POR"; TB;"A” 
892 IF TA*TB THEN CLS:PRINT"O R 
ESULTADO FOI UM EMPATE !" 
895 END 

1000 PRINT 6448:PRINT 6416:PRIN 
T €416,"INTRODUZA A FRASE -":LI 
NE INPUT GUS 

1010 IF GU$<>S$ THEN PRINT €416 
+ "ERRADO !":TB=TB-50:PRINT 654, 
TB:GOSUB 950:PRINT €320,"TENTAT 

IVA" ;¡F;:F=F+1:GOTO 360 

1020 FOR N=1 TO L:D$=MIDS(Z$,N, 


"THE 






PRINT B$; 
А 














1):IF D$<>"*” THEN 1050 
1030 M=(ASC(MIDS(S$,N,1))-64)*8 
-7:1F M=-263 THEN M=209 

1040 TB=TB+VAL (MIDS (08,M+2,2)) 
1050 NEXT N:GOTO 730 


PSU 


167. 88»"" 

360 LOCATE 0,21:PRINTSPC(77):LO 

CATE 0,21:PRINT"XX-Adivinha let 

ra ZZ-Adivinha frase":INPUT" 
A-Z Compra letra ";D$ 

370 IF D$«»"XX" AND р5<>"22" АМ 

D LEN(D$)>1 THEN 360 

380 IF D$-"" THEN D$-" ":GOTO 4 

10 

385 IF D$-"22" 

1000 

390 IF (DS<"A” 

$<>"С" THEN 360 


THEN D$="":GOTO 


OR D$>"Z2") AND D 


400 IF D$-"XX" THEN D$-"":GOTO 
500 

410 GOSUB 790 

420 Е-0 

430 Е=Е+1 

440 IF E=L+1 THEN TB=TB-G:MIDS( 





QS,M,7+ (N/5=INT (N/5))) =STRINGS ( 
8,32) :LOCATE 0,4: PRINTQS:DS-"": 
GOTO 470 

450 1F MIDS(S$,E,1)<>DS THEN 43 





0 

460 IF MIDS(S$,E,1)=DS THEN MID 
$(Z$,E,1)*D$:G0TO 430 

470 GOSUB 950 

480 LOCATE25,1:PRINTTB;"pontos” 
:LOCATE 0,12:PRINTZS:LOCATE 0,1 
5:PRINT"Tentativa "¡F:F=F+1:1F 

8$=Z$ THEN 730 

490 GOTO 360 

500 LOCATE 0,21:PRINTSPC(77):LO 
CATE 0,21:1NPUT"QUAL A LETRA";D 
$ 

510 IF LEN(DS)>1 THEN 500 

520 IF D$="" THEN DS=CHRS (32) :G 








OSUB 790:GOTO 550 
530 IF (D$€"A" OR D$>”Z”) AND D 
$«»"C" THEN 500 

540 GOSUB 790 

550 LOCATE 0,21:PRINTSPC(77) :LO 
CATE 0,21:PRINT"INDIQUE A POSIC 
AO USANDO AS SETAS PARA 
MARCAR TECLE <0>” 

555 B=0:V=12:BB=0 

560 LOCATE BB,V,1 

570 YS-INKEYS:IF Y$-"" THEN 570 
590 TF YS=CHR$(28) AND B<L-1 TH 
ЕМ В=В+1 

600 IF Y$=CHR$(29) AND B>0 THEN 
B=B-1 

605 BB=B:V=12:IF B>39 THEN BB=B 
-40:V=13LIST 600- 

610 IF Y$-"0" THEN 680 

670 GOTO 560 

680 IF MIDS(2$,B*1,1)-D8 THEN T 
B=TB-G:LOCATE 0,21:PRINTSPC(77) 
:LOCATE 0,21:PRINT"TRAPACEIRO!” 
:GOSUB 950:GOTO 470 

690 IF MIDS(S$,B+1,1)<>DS THEN 
TB=TB-G/2:LOCATE 0,21:PRINTSPC( 
77):LOCATE 0,21:PRINT"ERROU DES 
ТА VEZ...":GOSUB 950:GOTO 470 
700 IF MIDS(S$,B+1,1)=DS THEN L 
OCATE 0,21:PRINTSPC(77) : LOCATE 
0,21:PRINT"BOM PALPITE!":MIDS(Z 
$,B+1,1)=D5:GOSUB 950:TB=TB+G 
710 IF S$=Z$ THEN 730 

720 GOTO 470 

730 LOCATE 0,21:PRINTSPC(77) :LO 
CATE 0,21:PRINT"PARABENS! ACERT 
OU!":BEEP:GOSUB 950:BEEP:CLS 


740 K=K+1:IF K=T*2 THEN 880 
750 SWAP AS,BS 

760 SWAP TA,TB 

770 Q9="":D=0:F=1:S5="" 

780 GOTO 160 


790 M=INSTR(QS,DS) 

800 ТЕ DS="_" THEN DS=CHRS (32) 
810 IF MIDS(Q5,M,5)=STRINGS (5,3 
2) THEN 360 


820 G=VAL (MIDS (Q$,M+2,2)) 

830 RETURN 

880 IF TA>TB THEN CLS:PRINTAS;” 
GANHOU POR";TA;"PONTOS A";TB 
890 IF TB>TA THEN CLS:PRINTBS;” 
GANHOU POR";TB;"PONTOS A";TA 
892 IF TA-TB THEN CLS:PRINT"O J 
0GO TERMINOU EMPATADO EM":PRINT 
ТА;"РОМТО8" 

895 END 

950 FOR DE=1 TO 1000:NEXT:RETUR 


N 

1000 LOCATE 0,21:PRINTSPC(77):L 
OCATE 0,21:PRINT"DIGITE A FRASE 
COMPLETA:":LINEINPUT GUS 

1010 IF GUS<>S$ THEN LOCATE 0,2 
1:PRINTSPC (7) :LOCATE 0,21:PRINT 
"ERRADO!":TB*TB-50:LOCATE 25,1: 
PRINTTB;"pontos”:GOSUB 950:LOCA 
TE 0,15:PRINT"TENTATIUVA";F:F-F* 
1:GoTO 360 

1020 FOR N=1 TO L:DS=MIDS(ZS,N, 
1): IF р8<>"%" THEN 1050 

1030 IF DS=CHRS(32) THEN DS="_" 
:M=INSTR(Q$,DS) 

1040 TB=TB+VAL (MID$ (Q$,M+2,2)) 
1050 NEXT:GOTO 730 


(41%) 


370 IF D$ < > "ZZ" AND D$ < 

» "XX" AND LEN (DS) > 1 THEN 3 
60 

380 IF DS = "” THEN DS = CHRS 
(32): 6070 410 

385 ІР 0$ = "22" ТНЕМ 0$ = "”: 
GOTO 1000 

390 IF D$ € "A" OR D$ 5 "Z" TH 
EN 360 

400 IF D$ - "XX" THEN D$ - "": 
бото 500 

410 GOSUB 790 

420 E = 0 

430 Е = Е +1 


440 IF E = L + 1 THEN ТВ = ТВ 








= 6:08 = LEFTS (QS,M - 1) +” 
” + MIDS (QS,M + 8): VT 

AB 5: PRINT Q$:D$ - "": СОТО 47 

0 

450 IF MIDS (S$,E,1) < > DS 

THEN 430 

460 IF MIDS (S$,E,1) = DS THE 

N Z$ - LEFTS (ZS,E) + D$ + MI 

D$ (Z$,E * 2): GOTO 430 

470 FOR DE = 1 TO 300: NEXT 

480 УТАВ 2: НТАВ 25: PRINT TB; 

" PONTOS ^": УТАВ 12: НТАВ 40: 

PRINT Z$: VTAB 16: PRINT "TENTA 

TIVA "; >= F + 1: IF 89 = М 

D$ (28,2) THEN 710 

490 GOTO 360 

500 УТАВ 22: CALL - 958: INPU 

T "QUAL A LETRA ";D$ 

510 IF LEN (D$) > 1 THEN 500 

520 TF DS = "" THEN D$ - " ": 

GOSUB 790: GOTO 550 

530 IF D$ € "A" OR D$ 5 "Z" TH 

EN 500 

540 GOSUB 790 


550 VTAB 22: CALL ~- 958: PRIN 
T "COLOQUE O MARCADOR SOB A POS 


ICAO DESEJADA E TECLE [ENTER]"; 
:В =” ] 

560 УТАВ 14: САМ. - 868: НТАВ 
B: PRINT CHR$ (94) 

570 GET Y$: IF Y$ = CHR$ (13) 
THEN 680 

590 IF Y$ = CHRS (8) AND B > 
1 THENB = B - 1 

600 IF Y$ = CHR$ (21) AND B < 
L THENB = B + 1 

670 GOTO 560 

680 VTAB 14: CALL - 958: УТАВ 
22: IF MID$ (Z$,B,1) = D$ THE 


N PRINT "TRAPACEIRO!";:TB = TB 


- G: FOR DE = 1 TO 300: NEXT : 
GOTO 470 
690 IF MID$ (8$,B,1) < > DS 


THEN TB = TB - G / 2: PRINT "ER 
ROU DESTA VEZ...";: FOR DE * 1 


TO 300: NEXT : GOTO 470 
700 IF MIDS (S$,B,1) = DS THE 
N PRINT "BOA! ";:TB = TB + G:Z 





$ = LEFT$ (ZS,B) * D$ * MID$ 
(Z$,B * 2): FOR DE = 1 TO 300: 
NEXT 

710 ІҒ 55 - МІП8 (25,2) THEN 
FLASH : VTAB 13: PRINT S$: CAL 
L - 868: NORMAL : GOTO 730 
720 GOTO 470 

730 УТАВ 22: САМ. - 958: PRIN 

T "PARABENS!": GOSUB 950: HOME 


740 J " J * 1: TF J = T * 2 THE 
N 880 

750 CS = AS:AS = BS:BS = CS 

760 TC = TA:TA = TB:TB = TC 

770 Q$ = :D = 0:F = 1 

780 GOTO 160 

790 M = ( ASC (D9) - 64) * 8 - 





6 
800 IF D$ * CHR$ (32) THEN M 
- 218 





805 IF DS = "2" ТНЕМ М = 210 
810 IF MIDS (08,M,2) =" " T 
HEN POP : GOTO 360 

820 G = VAL ( MIDS (Q$,M + 2,2 
3) 

830 RETURN 

880 IF TA > TB THEN HOME : PR 
INT : PRINT AS;" GANHOU POR ";T 
A;" PONTOS A 

890 ТЕ ТА < TB THEN HOME : PR 
INT : PRINT B$;" GANHOU POR ";T 
B;" PONTOS A ";TA 

892 IF TA = TB THEN HOME : PR 
INT : PRINT "0 JOGO TERMINOU EM 
PATADO EM ": PRINT TA;” PONTOS! 
895 END 

950 FOR DE = 1 TO 3000: NEXT 
RETURN 

1000 VTAB 22: CALL - 958: INP 
UT "ENTRE A FRASE: ";GUS 


1010 
22: CALL 


IF GU$ < > S$ THEN VTAB 
- 958: PRINT "ERRADO 











Por que as linhas em que há a instru- 
ção CALL diferem nos programas do 
Apple e do TK-2000? 

Porque a instrucáo CALL seguida de 
um certo nümero de linhas serve para 
acionar uma rotina em linguagem de 
máquina. No nosso caso, essas linhas 
constituem rotinas intrínsecas do com- 
putador, ou seja, sáo rotinas próprias 
da máquina. 

No Apple, a instrução CALL — 958 
faz com que a tela seja apagada desde 
o cursor até a última posição de vídeo, 
sem alteração na posição do cursor. No 
TK-2000, ela faz a mesma coisa, mas 
com uma diferença: agora, o cursor é 
colocado na primeira posição da tela. 
Assim, ele deve ser reposicionado após 
o comando. 

Já a instrução CALL — 868 ргоуо- 
ca, no Apple, o apagamento da linha 
em que está o cursor a partir da posi- 
ção deste. A mesma instrução no TK- 
2000 não tem um efeito necessário pa- 
га о nosso programa. 














1":TB = TB - 50: VTAB 2: HTAB 2 
5: PRINT TB;” PONTOS”: VTAB 16: 
PRINT "TENTATIVA Fe F+1 
* FOR DE * 1 TO 30 NEXT : GOT 





о 360 

1020 FOR N = 2 TO L + 1:DS = 
MIDS (ZS,N,1): IF D$ € » "*" T 
HEN 1050 

1U4U M * ( ASC ( MIDS (SS,N - 1 
›1)) - 64) * 8-6: IF M= - 2 


62 THEN M - 218 
1035 IF M - 202 THEN M - M * 8 


1040 TB - TB * 
M * 2,2)) 

1050 NEXT :2$ - " " + S$: GOTO 
710 


Para executar o programa no TK- 
2000, faça as seguintes modificações: 


500 VTAB 22: CALL - 958: УТАВ 
22: INPUT "QUAL A LETRA ";D$ 
550 УТАВ 22: CALL - 958: VTAB 
22: PRINT "COLOQUE O MARCADOR 
SOB A POSICAO DESEJADA E TECLE 
[ENTER]^;:B = 1 

560 УТАВ 14: PRINT SPC( 40): 
VTAB 14: HTAB B: PRINT CHRS (9 
4) 

680 УТАВ 14: САМ. - 958: УТАВ 
22: IF MIDS (Z5,B,1) = DS THE 
N PRINT "TRAPACEIRO!";:TB * TR 
- G: FOR DE * 1 TO 300: NEXT : 
GOTO 470 

710 IF SS * MID$ (Z$,2) THEN 
UTAB 13: PRINT SS: GOTO 730 
730 УТАВ 22: CALL - 958: УТАВ 


VAL ( MIDS (05, 


22: PRINT "PARABENS!”: GOSUB 9 
50: HOME 
1000 УТАВ 22: CALL - 958: UTA 


B 22: INPUT "ENTRE A FRASE: ";G 
us 

1010 IF GU$ < > SS THEN VTAB 
22: CALL - 958: VTAB 22: PRIN 


T "ERRADO!":TB = TB - 50: VTAB 


2: HTAB 25: PRINT TB;” PONTOS”: 
VTAB 16: PRINT "TENTATIVA ” 
F = Е + 1: FOR DE = 1 TO 300: N 
EXT : GOTO 360 





Como na parte anterior da listagem, 
existem pequenas variações entre as må- 
quinas, mas, de maneira geral, os pro- 
gramas são muito parecidos. 

As linhas 370 a 410 manipulam a op- 
ção do jogador — comprar letras, adi- 
vinhar letras ou mesmo descobrir a fra- 
se toda. A rotina identifica o tipo de pal- 
pite e evita que sejam feitas entradas 
ilegais. 


С! MPRAR LETRAS 


Se o jogador decidir comprar uma le- 
tra, o computador verificará imediata- 
mente qual o valor dessa letra. Para is- 
so, é acionada uma sub-rotina que co- 
mega na linha 790. Esta encontra o va- 
lor ASCII da letra para saber até que po- 
sigáo da tabela de valores deve ir. Se o 
computador encontrar um espaco em 
branco na posição, isso significa que a 
letra já foi comprada e o programa vol- 
tará à linha 360. Do contrário, será li- 
do o valor da letra, por intermédio da 
função VAL. Esse valor é utilizado pa- 
ra calcular o novo número de pontos do 
jogador. 

A rotina que cuida da compra de le- 
tras começa na linha 430. As linhas 430 
a 460 passam pela frase procurando 
ocorrências da letra. A cadeia de aste- 





шос. 











riscos é atualizada, substituindo-se os 
asteriscos pela letra comprada, quando 
isso ocorrer. A nova cadeia é então mos- 
trada na tela e o valor da letra subtraí- 
do do total de pontos. O número de ten- 
tativas é incrementado de 1. A linha 440 
apaga a letra escolhida da tabela, indi- 
cando que ela nào está mais disponível. 


DIVINHE LETRAS El А РО5ІС: 


Se o jogador quiser tentar acertar 
uma letra em posigáo específica, deve 
primeiro selecionar XX. Esse procedi- 
mento faz o programa pular para a li- 
nha 500. O jogador deve entáo dizer que 
letra vai ser usada. Várias verificações 
evitam que se faça uma entrada ilegal, 
Em seguida, é preciso mover o marca- 
dor para a posição desejada e pressio- 
nar O (no Apple, pressione <EN- 
TER>). O programa verifica se a letra 





está disponível e faz um teste para ver 
se o palpite é correto. 

Caso o jogador erre o palpite, a li- 
nha 690 enviará uma mensagem, sub- 
traindo metade do valor da letra do to- 
tal de pontos. Se letra e posição coinci- 
direm, a linha 700 emitirá uma mensa- 
gem de felicitações e somará o valor da 
letra ao total de pontos do jogador. 
Quando a frase é completada, a linha 
710 envia o programa para a 730, que 
dá a boa notícia ao jogador. 


A FRASE PLETA 


Se o jogador for mais ambicioso, po- 
de querer adivinhar a frase inteira. Pa- 
ra isso, deve primeiro digitar ZZ. A li- 
nha 385 manda o programa para a linha 
900 (no Spectrum) ou 1000 (nos outros 
micros). À rotina pede que a frase seja 
digitada e a compara com a original. Se 
elas não forem iguais, o jogador perde- 








rá cinquenta pontos e o contador de ten- 
tativas será incrementado. Se o palpite 
for correto, o valor de todas as letras 
ainda nào adivinhadas será somado ao 
total de pontos, e a linha 730 avisará o 
jogador que a frase está correta. 


FIM DO JOGO 


Adivinhada a frase, o programa ve- 
rifica o número de jogadas realizadas. 
Este nào pode ser maior que o determi- 
nado no início do jogo. Se o nümero 
ainda for menor, o próximo jogador se- 
rá chamado, depois que uma nova fra- 
se tenha sido introduzida. Quando o jo- 
go acaba, o programa passa á linha 880. 
Os pontos sáo comparados e o resulta- 
do final é apresentado, 

O jogo termina aqui, mas vocé pode 
implementar uma rotina do tipo ''joga 
novamente?" para deixá-lo completo. 








Os computadores da linha TK-2000 
SIMBOLOS GRAFICOS зт 


de caracteres gráficos que podem ser 
- entrados diretamente pelo 
teclado, ou usados em um programa. 


As telas gráficas no computador (GR 
e HGR) podem ser programadas por 
meio de diversas instruções extrema- 
mente poderosas, em média e alta reso- 
lução, tais como VLIN, HLIN, PLOT, 
HPLOT, DRAW e outras 

Entretanto, o TK-2000 tem um recur- 
so gráfico adicional, habitualmente pou- 
co explorado, que os compatíveis com 
a linha Apple não têm. Trata-se dos ca- 
racteres gráficos, que estão disponíveis 
para o programador através de dois 
meios: entrada direta pelo teclado e in- 
serção por intermédio da função CHRS, 
do BASIC 

O que são caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, que teoricamente podem variar en- 
tre 0 e 255. Cada caractere correspon- 
de, portanto, a um byte da memória de 
vídeo. Parte dessa codificação, conven- 
cionada internacionalmente, é o chama- 
do código ASCII, que vai de 32 a 126. 
Os códigos de O a 31 são normalmente 
utilizados em funções de controle do ví- 
deo e dependem do tipo de computador 
que está sendo usado 

O mesmo acontece com os códigos 
que vão de 127 a 255. Nessa faixa, os 
fabricantes utilizam geralmente os códi- 
gos para acomodar caracteres gráficos 
(que podem ser tipos especiais, como 
naipes de baralho, notas musicais etc., 
ou blocos gráficos formando linhas, ân- 
gulos e cantos). 


GRÁFICOS DA ROM 


Tais caracteres gráficos sáo também 
chamados de gráficos da ROM, pois já 
vém pré-programados. Nos computado- 
res da linha TK-2000, os caracteres es- 
peciais ocupam a faixa da tabela de ca- 
racteres que vai de 193 a 242. 

Os sinais gráficos que mais nos inte- 
ressaráo neste artigo sáo os blocos ge- 
ralmente utilizados na composigáo de 
desenhos formados por linhas retas, tais 
como tabelas ou formulários de entra- 
da. A vantagem desses blocos consiste 
em simplificar a programação, tornan- 
do desnecessária a mistura da tela grá- 
fica com o texto. Tal simplificação dei- 
xa aberto o caminho para o emprego de 
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a SÍMBOLOS GRÁFICOS 
_ GRÁFICOS DA ROM 
COMO ENTRAR GRÁFICOS 
LLL PELO TECLADO 
Ш SIMPLIFIQUE A PROGRAMACAO 





comandos mais diretos, como VTAB, 
HTAB, PRINT, INPUT etc. 


ENTRADA PELO TECLADO 


Da mesma maneira que os caracteres 
convencionais do código ASCII (demar- 
cados sobre as teclas do microcomputa- 
dor), os sinais gráficos podem ser digita- 
dos pelo teclado. Para isso, é necessá- 
rio, em primeiro lugar, pressionar simul- 
taneamente as teclas « CONTROL» e 
« B». Esse procedimento coloca o te- 
clado em modo gráfico. 

Em seguida, deve-se acionar simulta- 
neamente a tecla <SHIFT >, e uma das 
teclas alfanuméricas, ou então as teclas 
<SHIFT>, <CONTROL> e uma 
terceira. Com isso, o caractere deseja- 
do aparece diretamente na tela (por 
exemplo, dentro de uma cadeia alfanu- 
mérica). 

O manual de programação do TK- 
2000 exibe um desenho esquemático do 
teclado, no qual são assinalados todos 
os caracteres gráficos, em relação à dis- 
posição das teclas. Consulte também a 
tabela que apresentamos a seguir. 

Ao se terminar de digitar os caracte- 
res gráficos em uma linha, deve-se pres- 
sionar novamente <CONTROL> e 
<B>, para sair do modo gráfico. 

Por exemplo, se quisermos digitar o 
símbolo tradicional do naipe de paus, 
devemos teclar <CONTROL > <B> 
e, em seguida, <SHIFT><R>. 

O programa abaixo demonstra como 
isso pode ser feito. Ele desenha uma ta- 
bela simples na tela, utilizando blocos 
gráficos e coloca depois os diversos no- 
mes digitados nas linhas da tabela. 





200 HOME 


210 PRINT ” Е 
220 PRINT ” е. | МОМЕ Е 
230 PRINT " mm——— ———— ^ 


240 FOR I=1 TO 10 
250 PRINT "| К 
260 NEXT 1 

270 PRINT "LL — L1 — — — 
275 FOR I-1 TO 10 

280 VTAB 20:HTAB 1 

290 INPUT "NOME : "¡NS 

300 VTAB I+3:HTAB 4: PRINT I 
310 VTAB I*3:HTAB 10: PRINT М8 
320 NEXT I 

330 VTAB 20:HTAB 1:8TOP 





CARACTERES GRÁFICOS 
EM PROGRAMAS 

A FUNCAO CHR$ 

_OS NAIPES DO BARALHO 


п 
п 
п 
а _TABELA DE REFERÉNCIA 


Os tragos devem ser digitados nesta 
seqüëncia: 





Linha 210; 

<SHIFT> A 

<SHIFT> « CONTROL » F (4 vezes) 
<SHIFT> H 

«SHIFT » « CONTROL» F (11 vezes) 
«SHIFT» S 

Linha 220: 

«SHIFT » «CONTROL» C 
Linha 230; 

«SHIFT » « CONTROL» H 
« SHIFT » « CONTROL » G (4 vezes) 
«SHIFT» «CONTROL» B 

«SHIFT » «CONTROL» G 

«SHIFT» «CONTROL» N 

Linha 250: como a linha 220 

Linha 270 

«SHIFT» Z 

« SHIFT» «CONTROL » F (4 vezes) 
<SHIFT> G 
<SHIFT><CONTROL> F (11 vezes) 
<SHIFT> X 


(11 vezes) 


Tanto na linha 220 quanto na linha 
250, os espaços em branco e as letras po- 
dem ser digitados normalmente, sem 
precisar sair do modo gráfico. Em ou- 
tras palavras: nas linhas que têm carac- 
teres gráficos (210, 220, 230, 250 e 270), 
basta pressionar <CONTROL > <B> 
uma vez, logo após digitar o sinal de 
abre aspas; em seguida, teclar os gráfi- 
cos e/ou as letras, e novamente < CON- 
TROL > <B>. Só depois disso, digita- 
se o sinal de fecha aspas. 

Existem duas desvantagens nessa for- 
ma de entrada de caracteres gráficos: 
primeiro, as teclas não têm qualquer 
marcação que auxilie o usuário a encon- 
trar o gráfico correto. Torna-se neces- 
sário entáo consultar o manual, o que 
faz o processo bastante moroso. Em se- 
gundo lugar, o programa náo pode ser 
listado em uma impressora náo gráfica, 
ou que náo seja específica para a linha 
TK-2000. 


CARACTERES GRÁFICOS NO PROGRAMA 


Existe ainda um outro truque para es- 
pecificar caracteres gráficos dentro de 
um programa sem precisar digitá-los di- 
retamente. A função que permite fazer 
isso é a utilíssima CHRS. 

Os caracteres normais, especiais e 
gráficos com códigos na faixa de 32 а 
255 podem ser impressos na tela a par- 
























tir de um programa, contendo a CHR$ 
acompanhada do nümero de código do 
caractere desejado. Por exemplo, para 
imprimir na tela o símbolo de paus (nai- 
pe de baralho), digitamos: 


PRINT CHR$(242) ;CHR$ (231) 


Portanto, para combinar códigos grá- 
ficos com a função CHRS, é preciso 
“avisar” o computador que o código se- 


rá usado como gráfico. Para isso, recor- 
remos a dois bytes: CHR$(242), segui- 
do de CHRS(n), onde n é o código do 
caractere gráfico na tabela. O próximo 
programa mostra a tabela de correspon- 
déncia entre códigos numéricos e gráfi- 
cos na tela do TK-2000: 

10 HOME 

20 FOR J=193 TO 242 STEP 6 

30 FOR I-J TO J+5 



















































































4 
CARACTERES GRÁFICOS PARA O TK-2000 

Código Teclas Caractere 218 CONTROL SHIFT V [1 

193 CONTROL SHIFT1 O 219 CONTROL SHIFTC П 

194 CONTROL SHIFT2 O 220 CONTROL SHIFT J 

195 CONTROL SHIFT3 q 221 CONTROL SHIFTM $ 

196 CONTROL SHIFT 4 ыш 222 SHIFT T 

197 CONTROL SHIFT 5 ш 223 SHIFT J 

198 CONTROL SHIFT6 Wi 224 SHIFT G 

199 CONTROL SHIFT7 E 225 SHIFT H 

200 CONTROL SHIFTO П 226 SHIFT B gm 

201 CONTROLSHIFTW [1 227 SHIFT N E 

202 CONTROL SHIFTE m 228 SHIFT Q ^ 

203 CONTROL SHIFTR [E 229 SHIFT W ` 

204 CONTROL SHIFTT Ы 230 SHIFT E * 

205 CONTROL SHIFTY E 231 SHIFT R a 

206 CONTROL SHIFTU BE 232 SHIFT D 9 

208 CONTROL SHIFTG E 233 SHIFT F E 

208 CONOS EM SHIFT C E 40 PRINT I;" ";CHR$(242);CHRS$( 

210 CONTROLSHIFTB Œ 235 SHIFT V g Күк 
60 PRINT 

211 CONTROL SHIFTN  H 236 SHIFT A 2 70 NEXT J 

— | 80 УТАВ 20:HTAB 1: PRINT 

212 CONTROLSHIFTA (4 237 SHIFT 5 K "PRESSIONE RETURN” 
90 GET AS 

213 CONTROL SHIFTS Ы 238 SHIFT 2 3 Os caracteres sáo impressos ordena- 
damente em fileiras, por meio dos dois 

214 CONTROL SHIFTZ N 239 SHIFT X E lagos que comegam nas linhas 20 e 30. 
O primeiro lago varia J de 193 a 242 (fai- 

215 CONTROL SHIFTX Pi 240 SHIFT U x xa de códigos correspondente aos carac- 
teres gráficos), de 6 em 6. O laco seguin- 

216 CONTROLSHIFTD [7 241 SHIFT Y te percorre todos os valores entre J e 
J-- 5. O PRINT da linha 60 serve para 

217 CONTROL SHIFTF Ы 242 SHIFT M m encerrar uma fileira de seis códigos e 
suas representaçóes gráficas, que sáo 
mostradas na linha 40. 























Se quiser usar caracteres gráficos com 
certa frequência em um programa, de 
ve armazenar o código de controle em 
uma variável alfanumérica, como no 
exemplo abaixo. Neste caso, os quatro 
símbolos dos naipes do baralho são ar 
mazenados em N$ e seus nomes, em E$: 


5 HOME 

10 FOR I=1 TO 4 
20 READ ES(I) 
30 LET N$(I) 
CHR$ (227*1) 
40 PRINT N$(I),ES(I) 
50 NEXT I 

60 DATA ESPADAS, COPA: 
PAUS 


CHR$ (242) * 


OUROS, 


Assim, toda vez que precisarmos im- 
primir na tela um dos quatro símbolos, 


digitaremos PRINT N$(N), onde N éo 
código do naipe (1 = espadas, 2= copas, 
3— ouros e 4 — paus). 

Do mesmo modo quando quisermos 
utilizar uma cadeia de caracteres gráfi 
cos em vários pontos de um programa, 
devemos armazená-lo em uma variável 
alfanumérica. Como o TK-2000 nào tem 
a funcáo STRINGS, que permite fazer 
isso com um ünico comando, é preciso 
escrever um laço de acumula: 


10 HOME 

20 INPUT "CODIGO GRAFIC 
(193-242) : "; е 

30 INPUT "COMPRIMENTO (1-39) 
zit 

40 PRINT:PRINT 
50 LET S$-"" 


RINT 


FOR I=1 TO L 
LET S$-SS*CHRS (242) *CHR$ (C) 
NEXT I 

90 PRINT 88 

100 GOTO 10 


A cadeia alfanumérica S$ tem L ve- 
zes dois códigos, pois é necessário en- 
trar um código 242 antes de cada códi- 
go gráfico C (náo funciona colocar ape- 
nas um código 242 como primeiro c 
ractere de S$). Se rodar esse programa 
com vários códigos ao acaso — ou en- 
trando-os em seqüéncia para ver o re- 
sultado —, constatará que às vezes sur- 
ge uma interferéncia na tela inteira. Se 
isso ocorrer, experimente interromper 
o programa, usando <CONTROL> 
<C> e digitando RUN novamente 











MAIS TÉCNICAS DE 
ORDENACAO 


Todas as técnicas usadas para colo- 
car dados em ordem apontam falhas, se- 
ja por dispenderem muito tempo, seja 
por exigirem um grande espago de me- 
mória. Dessa forma, em cada aplicação 
específica é preciso procurar o método 
de ordenação mais eficiente, pois não 
existe uma técnica ideal que responda a 
todas as necessidades. 

Já estudamos alguns dos métodos 
mais populares de ordenação de dados; 
a seguir, mostraremos outros, com a res- 
salva de que alguns deles são apenas re- 
finamentos dos que foram apresentados 
anteriormente. Como você verá, estes 
são bem mais eficientes do que as ver- 
sões originais. 


SUBSTITUIÇAO RETARDI 


O principal defeito da ordenagáo ti- 
po bolha — a lentidào — torna-se par- 
ticularmente evidente quando é preciso 
organizar uma grande quantidade de 
itens. No entanto, com uma pequena 
modificação no algoritmo original, 
pode-se reduzir o tempo gasto pratica- 
mente à metade. 

A ordenação tipo bolha usa boa parte 
do tempo em comparar os diversos nú- 
meros da linha, trocando-os de posição 
até encontrar um valor maior. Nesse 
processo, várias trocas são feitas com 
grande dispêndio de tempo. 

A rotina de substituição retardada 
funciona de modo semelhante, mas di- 
fere no fato de que nenhuma troca é rea- 
lizada até que toda a linha tenha sido 
comparada, Vejamos um exemplo que 
emprega uma seqüência similar àquela 
estudada no artigo Ordenação pelo Mé- 
todo de Bolhas (página 292): 


início fim 


67 35 72 19 47 38 11 86 
O primeiro valor, 67, é comparado 
(mas náo trocado) com 35, como acon- 
teceria na rotina de bolha normal; o 
mesmo acontece em relação ao primei- 
ro número maior que ele, 72. Este últi- 
mo é tomado como o novo maior nú- 
mero e comparado sucessivamente com 
19, 47, 38e 11, antes de encontrar o va- 
lor máximo da seqüéncia: 86. Este per- 


manece na última posição. O quadro 
que se segue mostra como tudo aconte- 
ce, passo a passo. Alguns nümeros apa- 
recem entre colchetes. O primeiro deles 
é 86, o maior valor da primeira seqüén- 
cia. Nas próximas linhas, os colchetes 
assinalam o maior nümero incorreta- 
mente localizado e o valor que ocupa seu 
lugar. Esses números sáo trocados na li- 
nha seguinte. Assim, na segunda linha, 
72 é identificado como o maior incor- 
retamente posicionado, e trocado com 
o 11, e assim por diante. 


início fim 
67 35 72 19 47 38 11(861 
67 35 [72] 19 47 38 [11] 86 
(67135 11 19 47 [38] 72 86 
38 35 11 19 [47] 67 72 86 
(381 35 11 (191 47 67 72 86 


19 (351111) 38 47 67 72 86 
(1911111 35 38 47 67 72 86 
11 19 35 38 47 67 72 86 


O número de comparações feito é o 
mesmo da rotina tipo bolha, mas o de 
trocas é muito menor. 

Uma parte do programa a seguir é 
igual a um dos programas que aparecem 
no artigo Rotinas de Ordenação. Para 
executá-lo, basta adicionar as linhas de 
4000 em diante (cuidado para não con- 
fundir a letra 1 com o número 1, ao fa- 
zer a digitação). Os usuários do Apple 
e do MSX devem fazer as modificações 
no programa principal conforme o in- 
dicado para todas as máquinas. 


10 POKE 23658,8: LET T=0: 
INPUT "NUMERO DE ITENS ";АА: 
IF AA<2 THEN СОТО 10 


15 DIM A(AA) 
20 PRINT PRINT "TABELA DESO 
RDENADA": PRINT 


30 FOR Z=1 TO AA 
40 LET A(Z)=INT (RND*100)+1 


50 PRINT TAB T;A(Z);: LET T=T 
+4: IF T>30 THEN LET T=0 

60 NEXT Z 

70 PRINT : PRINT : PRINT "PRE 
SSIONE 'O' PARA ORDENAR” 

80 LET K$=INKEYS: IF K$<>"0” 


THEN GOTO 80 
90 GOSUB 4000 


100 PRINT PRINT "TABELA ORDE 
NADA”: PRINT 
110 LET T=0: FOR Z=1 TO AA 


Veja como pequenos melhoramentos nas І 
rotinas de ordenagáo mais 

comuns podem aumentar sua velocidade 

de operação, E conheça 

uma rotina que bate todas as outras. 





120 PRINT TAB T;A(Z);: LET TeT | 
+4: IF T>30 THEN LET T=0 І 
130 NEXT Z 

140 GOTO 10 l 


3999 REM ORDENACAO POR SUBSTIT 
UICAO RETARDADA I 


4000 FOR I=1 TO AA-1 

4010 LET K=I 

4020 FOR J=1+1 TO AA { 
4030 IF A(J)<A(K) THEN LET K=J | 
4040 NEXT J 

4050 IF I<>K THEN ГЕТ Т=А(К): 
LET A(K)=A(I): LET A(I)=T 


4060 NEXT I 
4070 RETURN 


ium dc) sy 


10 PRINT:PRINT:INPUT "NUMERO DE 
ITENS";AA:IF AA«2 THEN 10 

15 DIM A(AA) 

20 PRINT:PRINT"TABELA DESORDENA 

DA”: PRINT 

30 FOR Z-1 TO AA 

40 A(Z)=RND(100) 

50 PRINT A(2); 

60 NEXT Z 

70 PRINT:PRINT:PRINT "PRESSIONE 
'O' PARA ORDENAR” 

80 K$=INKEYS:IF K$<>”0” THEN 80 
90 GOSUB 4000 

100 PRINT:PRINT:PRINT "TABELA O 
RDENADA" 

110 PRINT:FOR Z=1 TO AA 























120 PRINT A(Z); 
130 NEXT Z 

140 RUN 

3999 ORDENACAO POR SUBSTITUICAO 
RETARDADA 

4000 FOR I=1 TO AA-1 

4010 K=I 

4020 FOR J=I+1 TO AA 

4030 IF A(J)<A(K) THEN K=J 

4040 NEXT J 

4050 IF I<>K THEN T=A(K):A(K)=A 
(1) :A(1)=T 

4060 NEXT I 

4070 RETURN 


Para que o programa acima rode no 
MSX substitua as seguintes linhas: 


5 R=RND(-TIME) 

40 A(Z)=INT(RND(1)*100+1) 

50 PRINTA(Z), 

120 PRINTA(Z), 

4050 IF I<>K THEN SWAP A(K),A(I 
) 


Para que o programa acima rode nos 
micros da linha Apple 11 e TK-2000, 
substitua as linhas a seguir: 


40 A(Z)=INT(RND(1)*100+1) 


Ш ORDENAÇÃOPOR 
SUBSTITUIÇÃO RETARDADA 
п ORDENACAO POR 


ESPALHAMENTO: FAZ O QUE 





CARTAS OU POR INSERÇÃO 
Ш ORDENACAO INSTANTÁNEA: 





SE FARIA MANUALMENTE 


50 PRINTA(Z), 
80 GET K$:IF K$<>"0" THEN 80 
120 PRINTA(Z), 


ORDENAÇÃO POR ESPALHAMENTO 


A ordenação por espalhamento é ou- 
tra rotina cuja velocidade se aproxima 
à da ordenação tipo bolha quando am- 
bas são usadas para listas parcialmente 
ordenadas. Neste caso, uma matriz se- 
cundária é criada para uma ordenação 
preliminar parcial. Os valores inicial e 
final são determinados no início, en- 
quanto outros itens só podem ser adi- 
cionados à lista quando esta estiver to- 
talmente ordenada. 

Embora essa rotina seja relativamen- 
te rápida, o uso de uma matriz secun- 
dária para armazenar dados diminui a 
memória disponível do micro. 

Note que se deve especificar o valor 
máximo, o que é feito por meio da li- 
nha 5010. No nosso caso, esse valor é 
100, que é o maior número aleatório 
permitido na linha 40. 

Adicione as linhas seguintes ao pri- 
meiro programa: 


90 GOSUB 5000 
4999 REM ORDENACAO POR ESPALHAM 
ENTO 
5000 DIM B(1.2*AA+30) 
5010 FOR J=1 TO AA: LET K=INT ( 
A(J) *ÀA/100) *1 
5020 IF B(K)*0 THEN LET B(K)*A 
(J): NEXT J: GOTO 5040 
5030 LET K=K+1: GOTO 5020 
5040 LET J=1: FOR K=1 TO 1.2*AA 


+30: IF B(K)=0 THEN NEXT K: GO 
TO 5060 
5050 LET A(J)*B(K): LET JeJ*1: 
NEXT K 
5060 FOR J=AA-1 TO 1 STEP -1: L 
ET Fe-1 


5070 FOR K=1 TO J 


5080 IF A(K)>A(K+1) THEN LET F 


=0: LET T=A(K): LET A(K)=A(K+1) 
: LET A(K+1)=T 

5090 NEXT K: IF F=0 THEN NEXT 
J: RETURN 





90 GOSUB 5000 


A MAIS RÁPIDA DE TODAS 


4999 REM **ORDENACAO POR ESPALH 
AMENTO** 
5000 DIM B(1.2*AA*30) 
5010 FOR J=1 TO AA:K=INT(A(J)*A 
A/100)+1 
5020 IF B(K)*0 THEN B(K)=A(J):N 
EXT:GOTO 5040 
5030 K-K*1:GOTO 5020 
5040 J=1:FOR Kel TO 1.2*AA*30:I 
Ғ В(К)-0 THEN NEXT:GOTO 5060 
5050 A(J)=B(K) :J=J+1:NEXT 
5060 FOR J=AA-2 TO 1 STEP -1:F= 
=} 
5070 FOR K=1 TO J+1 
5080 IF A(K)>A(K+1) THEN F=0:T= 
A(K) :A(K) =A(K+1) :A(K+1)=T 
5090 NEXT:IF F=0 THEN NEXT 
5100 RETURN 

Os usuários do MSX podem trocar a 
segunda metade da linha 5080, que faz 
a troca de valores entre as variáveis A(K) 
e A(K + 1) para SWAP A(K), A(K + 1). 
O valor 1.2 na linha 5000 pode ser ajus- 
tado para fornecer o espaço necessário 
à matriz. Essa rotina de ordenação imi- 
ta, de certa forma, a maneira normal- 
mente usada para ordenar um grupo de 
informações: uma vez misturados os da- 
dos, e determinados o maior e o menor 
valor, tudo vai sendo posicionado con- 
forme as prioridades. 


ORDENAÇÃO POR INSERÇÃO 


Uma opção para muitas aplicações é 
a rotina de ordenação por inserção. Su- 
pondo que os números abaixo sejam 
cartas de baralho, disponha-os na or- 
dem dada, da esquerda para a direita: 
esq. dir. 

9 4 5 7 2 


O processo comega a partir da es- 
querda (ou pelo primeiro valor da lista 
a ser ordenada). Ele procura pela pri- 
meira ocorréncia de um número menor 
fora de ordem. Um rápido exame de li- 
nha mostra o 4 fora de lugar. Ele é en- 
táo reposicionado (inserido) antes do 9, 
formando a nova seqüéncia: 


esq. dir. 
4 9 5 7 2 


As cartas 4 e 9 estào agora na seqüén- 
cia correta, mas, quando incluímos os 
outros nümeros (5, 7 e 2) em nossa ob- 














servacáo, a ordem desaparece. A cada 
passada, contudo, as cartas váo sendo 
reordenadas, até que alcancemos a se- 
qüéncia correta: 


esq. dir. 
4 9 5 7 2 
4 5 9 7 2 
4 5 7 9 2 
2 4 5 7 9 


Como se pode ver, nào há aqui se- 
paração de grupos ou comparações par 
a par de valores, como na maioria dos 
métodos já estudados: as cartas (núme- 
ros) são alinhadas da esquerda para a di- 
reita em ordem crescente, depois de al- 
gumas trocas de posição. 

Esse processo é muito semelhante ao 
usado por um jogador de baralho ao 
analisar e ordenar uma mão de cartas. 
De fato, a ordenação por inserção é 
também conhecida como ordenação do 
jogador de cartas. 

Vejamos agora um grupo de núme- 
ros um pouco maior, num estágio em 
que alguns valores já foram ordenados: 


grupo não ordenado g. ordenado 
34 


47 
59 
87 
102>>>>>>>> 
26 144 
73 167 


193 


O número 102 é colocado na sua po- 
sigáo correta e a rotina prossegue des- 
locando os valores remanescentes: 


grupo náo ordenado g. ordenado 
26>>>>>>>> 
73 34 
193 47 


Em seguida, o número 73 é inserido 
na sua posição; resta agora, como se po- 
de observar, apenas um valor nào or- 
denado: 
grupo nào ordenado g. ordenado 

26 
34 
47 
59 
73>>>>>>>> 
193 87 


E, para completar: 


193>>>>>>>> 


Adicione as linhas abaixo ao progra- 
ma de demonstração para observar a ve- 
locidade dessa rotina de ordenação: 


90 GOSUB 6000 


5999 REM ORDENACAO POR INSERCAO 
6000 FOR I=1 TO AA-1 

6010 LET K-A(I*1) 

6020 FOR, J=1 TO 1 STEP -1 


6030 
6040 
6050 
6060 


IF K>=A(J) THEN GOTO 6070 
LET A(J+1)=A(J) 

NEXT J 

LET J=0 

6070 LET A(J+1)=K 

6080 NEXT I: RETURN 


uium ud lel 


90 GOSUB 6000 

5999 REM **ORDENACAO POR INSERC 
AO** 
6000 
6010 
6020 
6030 


FOR I=1 TO AA-1 
К-А(1%1) 
FOR J=I TO 1 STEP -1 
IF K>=A(J) THEN 6070 
6040 A(J+1)=A(J) 
6050 NEXT J 
6060 J=0 
6070 A(J*1)-K 
6080 NEXT I:RETURN 

O valor da variável K é o próximo nü- 
mero da lista nào ordenada a ser com- 
parado. O laco externo que comeca na 
linha 6000 “varre” a lista ordenada, 
passando dos menores para os maiores 
valores, até encontrar a posição para K. 
Então, a rotina das linhas 6020 a 6050 
expande a lista ordenada para que haja 
lugar para o novo item. O programa 
continua até que todos os valores da lis- 
ta não ordenada tenham sido colocados 
nos seus lugares. 


ORDENAÇÃO INSTANTÂNEA 


Embora seja considerada bastante rá- 
pida, a rotina de ordenação por inser- 
ção parece lenta quando comparada 
com a rotina de ordenação instantânea 
(ou quicksort, se você preferir). Esta úl- 
tima, contudo, além de ser complexa, 
exige muito espaço de memória. Assim, 


ela não é encontrada com grande fre- 
qiiência em programas especialmente 
desenhados para as limitadas memórias 
dos micros domésticos. 

Seja como for, a ordenação instan- 
tânea é, sem dúvida, a mais veloz de to- 
das as rotinas que já examinamos até 
agora. Além disso, ela vai mais longe do 
que uma simples rotina de comparação 
e troca. E, embora seu algoritmo seja 
bastante complexo (a ponto de não po- 
dermos explicá-lo aqui), vale a pena 
conhecê-la e usá-la! 


90 GOSUB 7000 
6999 REM ORDENACAO INSTANTANEA 
7000 LET K=0: LET I=0: DIM S(AA 


) 

7010 
A 

7020 
7030 
7040 
7050 
7060 
=B+1 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 


LET S(1+1)=1: LET S(1+2)=A 
LET K=K+1 

IF K=0 THEN RETURN 

LET K=K-1: LET I=K+K 

LET A=S(I+1): LET B=8(I+2) 
LET Z-A(A): LET U=A: LET L 


LET L=L-1 | 
IF L=U THEN GOTO 7150 

IF Z<=A(L) THEN GOTO 7070 
LET A(U)=A(L) 

LET U=U+1 

IF L=U THEN GOTO 7150 

IF Z>=A(U) THEN GOTO 7110 
LET A(L)=A(U): GOTO 7070 

LET A(U)=Z 

7160 IF B-U>=2 THEN LET I=K+K: 
LET S(I+1)=U+1: LET S(I*2)-B: 
LET K=K+1 

7170 IF L-A>=2 THEN LET I=K+K: 
LET S(I*1)-A: LET S(I*2)-L-1: 
ТЕТ К=К+1 

7180 GOTO 7030 


анаи 14 5) 


90 GOSUB 7000 

6999 REM **ORDENACAO INSTANTANE 
A** 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 


K=0:I=0:DIM S(AA) 
18 (1+2) =АА 





IF K=0 THEN RETURN 
K=K-1:I=K+K 

A=S(1+1) :B=S(1+2) 

Z=A(A) :U=A:L=B+1 

L=L-1 

IF L-U THEN 7150 

IF Z<=A(L) THEN 7070 
A(U)*A(L) 

U=U+1 

IF L=U THEN 7150 

IF Z>=A(U) THEN 7110 
A(L)=A(U):GOTO 7070 

7150 A(U)=Z 

7160 IF B-U»-2 THEN I-K*K:S(I*l 
) =U+1:S(1+2)=B:K=K+1 

7170 IF L-A>=2 THEN I=K+K:S(I+ 
)=A:S(14+2) =L-1:K=K+1 

7180 GOTO 7030 
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PROGRAMAÇÃO DE 
MELODIAS NO MICRO 


CONVERSÃO DE PARTITURAS 
EM PROGRAMAS 
ACIDENTES 

ALE CRM, 
| EXECUÇÃO DE MELODIAS 














Seu micro é capaz de executar, 
sozinho, melodias inteiras. 

Aprenda a converter partituras 

em linhas de programas BASIC e ouça, 
então, suas canções prediletas. 


A música compõe-se de dois elemen- 
tos básicos: som e ritmo. Nosso primei- 
ro artigo sobre música em micros (veja 
Página 721) limitou-se à produção de 
notas musicais. O computador emitia 
uma nota conforme a tecla pressionada 
e o ritmo ficava a cargo do usuário. 
Mostraremos agora como informar ao 








computador o ritmo desejado. Além dis- 
so, daremos as noções de notação mu- 
sical necessárias à tradução de qualquer 
partitura, o que lhe permitirá executar 
no micro sua melodia predileta. 


NOTACÁO MUSICAL 


Em geral, as partituras musicais sáo 
escritas em um ou dois grupos de cinco 
linhas horizontais, paralelas e eqüidis- 
tantes, denominados pauta. Sobre uma 





ou entre duas linhas colocam-se os sím- 
bolos que representam as notas. A po- 
sigáo destas na pauta, no sentido verti- 
cal, determina a tonalidade; no sentido 
horizontal, a ordem de execução. O for- 
mato dos símbolos, por sua vez, deter- 
mina a duração da nota 

Notas alinhadas verticalmente devem 
ser tocadas ao mesmo tempo, em acor- 
des; estes, porém, não foram incluídos 
em nossos programas, que só tocam 
uma nota de cada vez. 
has verticais, as barras dividem 
a mú em grupos de notas. A dura- 
ção de cada um desses grupos deve ser 
a mesma, embora cada um deles possa 
ter um número diferente de notas. 
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O programa que apresentamos no ar- 
tigo anterior transformou seu computa- 
dor em uma espécie de instrumento mu- 
sical. Como vocé já deve ter observado, 
elé funciona muito bem. Contudo, o nú- 
mero de melodias que pode executar é 
reduzido, em razáo do pequeno núme- 
ro de notas disponíveis. Além disso, o 
usuário, que, muitas vezes, jamais to- 
cou qualquer tipo de instrumento, é 
obrigado a executar cada música. 

Pode-se facilmente converter uma 
partitura nos números que o computa- 
dor precisa para tocá-la, mesmo sem ter 
grandes informações sobre música. Na 
página 743, fornecemos uma tabela de 
conversão justamente com esta finalida- 
de. Antes, porém, devemos ampliar um 
pouco nossos conhecimentos a respeito 
de notação musical. 


LER EM VEZ DE OUVIR 


A figura 1 exibe um trecho de parti- 
tura. Nela estáo representadas todas as 
notas disponíveis no teclado, em uma sé- 
rie crescente — é a chamada escala cro- 
mática. 


Os símbolos no início das pautas são 
denominados claves: o da pauta de ci- 
ma é a clave de sol, mais aguda; o da 
pauta de baixo, a clave de fá, mais gra- 
ve. As claves determinam a tonalidade 
da pauta. Sem uma clave, as mesmas 
notas poderiam ser tocadas numa tona- 
lidade mais alta ou mais baixa. 

Os símbolos das notas ficam sempre 
entre duas ou exatamente sobre uma das 
linhas da pauta. Para escrever as notas 
que ficam acima ou abaixo destas, 
usam-se linhas suplementares. Na figu- 
ra 1, por exemplo, a oitava e as três úl- 
timas notas estão desenhadas sobre li- 
nhas suplementares. 

Para colocar as notas da partitura em 
um programa BASIC é necessário cal- 
cular os valores da duração bem como 
de tonalidade correspondentes a cada 
uma delas. Qualquer pessoa pode se 
confundir nessa demorada tarefa. Mas 
nào desanime: há uma maneira mais fá- 
cil de realizá-la. 

Voltemos á figura 1: observe que ca- 
da tecla foi marcada com um valor de 
1 a 37. Esses números seráo usados pa- 
ra calcular aqueles que, efetivamente, 
faráo parte do programa. 

Poderíamos consultar a mesma figu- 
ra sempre que quiséssemos ““traduzir”” 
uma melodia, mas o processo de com- 





paração entre a partitura e o desenho 
também seria bastante cansativo. Para 
simplificar o trabalho, o mais prático se- 
ria o uso de um dispositivo ou ““gabari- 
to” que, colocado sobre qualquer nota 
de partitura, mostrasse o valor corres- 
pondente à sua tonalidade. 


GABARITO MUSICAL 


Nào há nenhum segredo na constru- 
ção de um dispositivo desse tipo: preci- 
samos simplesmente desenhar uma es- 
cala musical numa folha de papel, o que 
leva alguns poucos minutos. Provavel- 
mente, melodias diferentes exigirão ga- 
baritos diferentes, já que o tamanho das 
pautas pode variar. 

A primeira coisa a fazer é pôr o pa- 
pel sobre a partitura e copiar as linhas 
das pautas, indicando todas as possíveis 
posições verticais de uma nota. Em se- 
guida, basta assinalar o valor correspon- 
dente a cada marca. Para identificar os 
valores que deveremos usar nos progra- 
mas, colocamos o gabarito sobre a par- 
titura e lemos nota por nota com sua 
ajuda. 

Os valores correspondentes a cada to- 
nalidade estão representados na tabela 
de conversão. O Spectrum, o Apple е о 
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TK-2000 usam números, enquanto o 
MSX e o TRS-Color usam letras. Para 
saber o que escrever junto a cada mar- 
ca do gabarito, compare os números da 
figura 1 com os da tabela e procure o 
valor correspondente na coluna dedica- 
da ao seu micro. 


BEMÓIS E SUSTENIDOS 


Nem todas as melodias sáo escritas na 
escala “C maior” (''dó maior”, como 
vimos no artigo anterior); portanto, às 
vezes precisaremos traduzir ós bemóis e 
sustenidos das partituras. 

Se observarmos os acidentes fixos — 
explicados mais adiante —, distinguire- 
mos os bemóis ou sustenidos da canção. 
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Poderemos, assim, substituir o valor da 
nota natural no gabarito pelo valor do 
bemol ou do sustenido. 

Bemóis e sustenidos são as teclas pre- 
tas, e o valor de suas tonalidades está 
na tabela. O menor valor de um C sus- 
tenido é 2 (usando os números da esca- 
la principal da tabela, você descobrirá 
o valor correspondente em sua máqui- 
na). D bemol tem o mesmo valor, que 
está entre 1 e 3 (valores de C e D, res- 
pectivamente). 

Símbolos para bemóis e sustenidos 
náo foram introduzidos na figura 1 pa- 
ra náo torná-la confusa. Quando se quer 
representar o sustenido de uma nota, ela 
aparece precedida pelo símbolo corres- 
pondente (parecido com o caracter 4 
"cardinal de seu computador). Da 









































Como o computador produz sons? 

Para que um dispositivo digital, co- 
mo o computador, possa gerar um fe- 
nómeno analógico (continuamente va- 
riável em intensidade), como o som, é 
necessário ligá-lo a um aparelho espe- 
cial, chamado conversor digital-analó- 
gico (DA), Este tem a função de con- 
verter uma lista de números armazena- 
da ou gerada no computador em uma 
onda continuamente variável, 

No nosso caso, cada número da lis- 
ta representa a amplitude ou intensida- 
de da onda em um determinado mo- 
mento. A lista de números, com valo- 
res de amplitude tomados a intervalos 
regulares (geralmente milissegundos), 
constitui, assim, uma amostragem da 
onda a ser produzida. O inverso do in- 
tervalo de amostragem, denominado 
freqüéncia de amostragem, depende- 
rá da freqüéncia máxima que ӛ som de- 
ve atingir. 

O conversor analógico-digital (AD) 
funciona de modo inverso ao conver- 
sor DA, transformando uma onda ana- 
lógica em uma lista de nümeros. Esse 
dispositivo é utilizado, por exemplo, em 
sistemas de reconhecimento de voz pa- 
ra microcomputadores ou na conversáo 
de entradas provenientes de joysticks 
analógicos. 

O conversor DA só pode ser empre- 
gado nos micros que dispóem de gera- 
dores internos de sons, como o TRS- 
Color, o MSX e o Spectrum. Colocan- 
do-se vários conversores DA lado a la- 
do, a placa geradora de som desses mi- 
cros torna-se capaz de emitir várias no- 
tas ao mesmo tempo. 




































mesma maneira, símbolos de bemol (pa- 
recidos com um b minúsculo) precedem 
as notas correspondentes. 

A figura 2 mostra as primeiras notas 
“C maior”, incluindo bemóis e suste- 
nidos, na clave de sol. Observe que C 
sustenido e D bemol sáo a mesma nota, 
mas ocupam posicóes verticais diferen- 
tes na pauta. Notas isoladas podem, as- 
sim, representar bemóis e sustenidos, 
desde que sejam precedidas pelos sím- 
bolos correspondentes — denominados 
acidentes. O efeito de um acidente du- 
ra, para a nota que o segue, até a próxi- 
ma barra, a menos que seja cancelado 
antes do fim do compasso. É um tercei- 
ro símbolo, chamado bequadro, que 
cancela o acidente e restaura a tonalida- 
de natural da nota. A figura 3 mostra 
um trecho de partitura onde aparece um 
G sustenido. O G seguinte tem sua to- 
nalidade natural preservada pelo bequa- 
dro que o precede. 


ACIDENTES FIXOS 


Quando uma canção é executada em 
uma escala que inclui um bemol ou um 
sustenido, essa nota será usada o tem- 
po todo, no lugar do valor natural cor- 
respondente. Para evitar a repetição do 
símbolo, ele é colocado após a clave, no 
início da pauta. Nesse local, o símbolo 
é chamado de acidente fixo e, por meio 
dele, pode-se identificar a escala em que 
é tocada a canção. 

A ausência de um acidente fixo indi- 
ca que a escala é ““C maior”, е, ao con- 
trário, qualquer acidente fixo indica que 
se trata de outra escala. Se, por exem- 
plo, uma pauta apresenta um sustenido 
como acidente fixo na linha do F, todos 
os F, em todas as oitavas, serão sus- 
tenidos. 

No artigo anterior, mostramos que 
um F sustenido é necessário para preser- 
var o arranjo de intervalos na escala “B 
maior””. Um sustenido na posição do F 
como acidente fixo indica ao músico que 
a melodia foi escrita em “'B maior”. 
ШІ Náo se esquega, portanto, de modificar 


no gabarito os valores das tonalidades 
correspondentes, sempre que a partitu- 
ra tiver acidentes fixos. 

A figura 4 mostra um trecho de par- 
titura em **F maior”. Nele vemos um 
acidente fixo bemol. Os valores das to- 
nalidades estáo indicados: note que o da 
quarta nota, um B bemol, é 23. Aqui o 
gabarito revela toda a sua utilidade. Se 
a música que está sendo transcrita tem 
um B bemol como acidente fixo, colo- 
camos o valor correspondente ao bemol 
na marca do B. Assim, a tradução dos 
acidentes se torna tão fácil quanto a das 
notas naturais. 

Mas tenha cuidado: muitas vezes al- 
guns acidentes isolados — e naturais iso- 
lados — têm prioridade sobre os aciden- 
tes fixos. 


RITMO 


Depois de calcular a tonalidade das 
notas, devemos cuidar da duração de ca- 
da uma delas e da tradução das pausas, 
que têm seus próprios símbolos. A figu- 
ra 5 mostra os símbolos das notas e das 
pausas com duração equivalente e o va- 
lor relativo da duração. 

Durações relativas são utilizadas pa- 
ra que um andamento — velocidade de 
execução — defina, posteriormente, a 
verdadeira duração. Podemos, assim, 
experimentar diversos andamentos, até 
que um deles nos soe melhor. O progra- 
ma do final do artigo permitirá esse ti- 
po de ajuste. 

As pausas mais longas são represen- 
tadas por meio de pequenos retângulos 
pretos, desenhados acima ou abaixo da 
linha média da pauta. Quando um pon- 
to sucede uma nota ou uma pausa, sua 
duração é multiplicada por um e meio. 
Uma nota pontuada duas vezes tem uma 
duração uma vez e três quartos maior 
que a nota sem pontos. 

Além do acidente fixo, junto à clave 
aparecem dois algarismos, dispostos co- 
mo fração numérica. O de baixo indica 
a espécie de notas em que o compasso 
está dividido; o de cima, o número des- 
sas notas no compasso. Na figura 6, por 
exemplo, vemos a fração 6/8 depois da 
clave, o que significa que há seis col- 
cheias por compasso. 

Para nossos fins essas noções de no- 
tação musical são suficientes: vamos ape- 
nas transcrever a partitura para criar um 
programa. 


TRADUÇÃO DE UMA MELODIA 


Vamos agora traduzir uma pequena 
partitura em números (ou letras, confor- 





SELEÇÃO DE PARTITURAS 

Se você sabe ler partituras, não te- 
rá a menor dificuldade em encontrar as 
músicas de sua preferência para “'to- 
car'' no computador, usando o progra- 
ma deste artigo. Mas, se vocé dispóe 
apenas de nocóes elementares de no- 
tação musical, precisará contornar 
suas deficiências selecionando partitu- 
ras simplificadas. Uma excelente fon- 
te são os álbuns de exercícios musicais 
para iniciantes de instrumentos menos 
complexos, como a flauta doce. Neles, 
melodias não harmonizadas (isto 6, 
sem acordes) são apresentadas na for- 
ma de partituras tão simples que você 
não terá dificuldade nenhuma em 
acompanhar. 

A seleção de músicas será um pou- 
co mais difícil para quem não lê abso- 
lutamente nada de uma partitura. Mas, 
ainda assim, resta o popular recurso de 
*tocar por números”, Alguns fabrican- 
tes de instrumentos musicais para 
criangas publicam partituras em que as 
notas sáo acompanhadas por números. 
Estes indicam a tecla a ser pressiona- 
da. Estabelecendo a correspondéncia 
entre os números e as teclas do com- 
putador, vocé poderá executar músicas 
completas sem saber sequer o que é 
um “dó”. 











me sua máquina) que o computador 
possa utilizar para determinar tonalida- 
des e durações de notas. 

A figura 6 mostra a partitura de uma 
canção infantil inglesa, Three Blind Mi- 
ce (Três Ratinhos Cegos) acompanhada 
dos números que representam a tonali- 
dade na escala principal, previamente 
definida. Para identificar os números 
correspondentes em seu computador, 
use a tabela de conversão. Os valores pa- 
ra a duração relativa também estão in- 
dicados. 

Observando a partitura em questão, 
você verá que, sempre que três colcheias 
(veja figura 5) aparecem juntas, elas são 
ligadas por um traço horizontal. Não es- 
tranhe: a única finalidade dessa forma 
de notação — não obrigatória — é fa- 
cilitar a leitura. As notas permanecem 
exatamente as mesmas, não havendo 
modificações nem na altura nem na 
duração. 

Já no oitavo compasso, há duas no- 
tas ligadas, mas por uma linha curva, e 
não reta. Nesse caso há mudança: a li- 
nha, chamada ligadura, indica que a se- 
gunda nota não deve soar separadamen- 











te, ou seja, que o som da primeira se 
prolongará pelo tempo correspondente 
à duração de ambas as notas. Podería- 
mos ter, também, ligaduras com várias 
notas. Para transcrevé-las em dados 
computáveis, bastaria somar as dura- 
ções correspondentes, o que nos daria 
uma nota mais longa. 


LINHAS DATA 


Os nümeros das tonalidades e dura- 
ções devem ser colocados em linhas DA- 
TA, para que o programa possa obtê- 
los com READ no decorrer da execu- 
ção. Os números correspondentes à can- 
ção da figura 6 foram incorporados ao 
programa dessa maneira. Cada linha 
contém dois compassos (exceto no TRS- 
Color e no MSX), o que torna mais fá- 
cil a compreensão das linhas DATA. 

A duração total de cada compasso 
deve ser a mesma — doze unidades, no 
nosso caso. Assim, se você transcrever 
uma música e o ritmo parecer incorre- 
to, verifique se cada compasso tem a 
mesma duração, corrigindo os erros en- 
contrados. Use as funções de edição de 
seu computador para duplicar compas- 





sos iguais ou semelhantes, economizan- 
do tempo de digitação. 


АМОАМЕМТО 


Os valores da duração de cada nota 
são relativos, já que podemos variar o 
andamento (velocidade) que se imprime 
à execução de um trecho da melodia. O 
programa solicita um valor para o an- 
damento, logo que é executado. Como 
valores menores correspondem a maio- 
res velocidades de execugáo, podemos 
considerar o valor que fornecemos co- 
mo o inverso do andamento. 

Há um detalhe importante sobre o 
funcionamento do programa que se apli- 
ca a todos os micros. Suponhamos que 
a melodia contenha um compasso com 
uma ünica nota bem longa, seguido por 
outro compasso com várias notas cur- 
tas. No segundo caso, as linhas que léem 
e testam os dados são executadas mais 
vezes que no primeiro. Devido ao tem- 
po de operação extra, a velocidade de 
execução do segundo compasso será um 
pouco menor. Deve-se imprimir, por- 
tanto, a maior velocidade possível à exe- 
cução dessas linhas BASIC. Por isso, 


não há no programa linhas que testem 
o fim dos dados: o programa termina 
simplesmente com uma mensagem de er- 
ro indicando que não há mais dados. 

Se, porém, ao traduzir suas músicas 
prediletas, você quiser um final mais ele- 
gante, coloque um laço FOR...NEXT 
que leia exatamente a quantidade de nú- 
meros que as linhas DATA contêm. 

Seguem-se os programas que execu- 
tam a partitura da figura 6 


10 INPUT "TEMPO 
LET t-t/100 
20 IF t«0.001 
GOTO 10 

30 FOR n=0 TO ] STEP 0 
a,b: SOUND a*t,b: NEXT n 
100 DATA 6,4,6,2,12,0,6,4,6,2, 
12,0 

110 DATA 6,7,4,5,2,5,12,4,6,7, 
4,5,2,5,10,4,2,7 


(1-50)",t: 





OR t>0.5 THEN 


READ 


120 DATA 4,12,2,12,2,11,2,9,2, 
11 

130 DATA 4,12,2,7,4,7,2,7 

140 DATA 2,12,2,12,2,12,2,11,2 
,9,2,11 

150 DATA 4,12,2,7,4,7,2,7 

160 DATA 2,12,2,12,2,12,2,11,2 
.9,2,11 

170 БАТА 4,12,2,7,4,7,2,5 


180 DATA 6,4,6,2,12,0 


Ao rodar o programa, devemos res- 
ponder, com um número entre 1 e 50, 
à solicitação do computador de um va- 
lor para o andamento. Como já foi ex- 
plicado, trata-se do inverso do anda- 
mento. O programa nada mais faz do 
que multiplicar cada duração pelo va- 
lor do andamento — portanto, quanto 
maior o valor, menor a velocidade. 

Usamos o inverso do andamento pa- 
ra tornar o programa mais simples e rá- 
pido. Um comando IF...THEN verifi 
ca se o andamento está na faixa permi- 
tida. A linha 30 executa a melodia. Um 
lago FOR...NEXT obtém com READ 









































6 € o coloca logo após ““L”. O *'03” que 
se segue determina a oitava (eventual- 
mente, é cancelado pelo '*04" de uma 
nota). Finalmente, a variável A$ esta- 
belece a altura da nota. 
Para executar a música, usamos um 
laço FOR...NEXT (linhas 40 a 70). Evi- 
tamos, assim, a emissão de uma men- 
E 6 sagem de erro que, além de deselegan- el 
Tonalidade17 15 13 17 15 13 20 18 18 17 te, causa problemas no MSX. Como es- ni 
Duração 6 6 12 6 6 12 4574-74 12 se computador possui um microproces- r€ 
sador específico para a produção de M 
sons, a música continua tocando, mes- 
mo após a execução do programa. Ha- 1 pi 
vendo uma mensagem de erro, o siste- 5 
ma operacional do MSX suspende ime- çi 
diatamente todas as atividades periféri- ré 
cas em andamento — tela gráfica, mo- 
20 18 18 7 20 25 2524 22 24 25 20 20 20 tor do gravador e som. Assim, se dei- 3 
Буи а 10 2 A A 4 24 2 xássemos passar um erro, a música se- p 
ria interrompida. ) se 
m 
[6 [с ШШШ : 
10 HOME li 
20 FOR I = 0 TO 22: READ A: PO | e 
KE 800 * I,A: NEXT 
252525 242224 25 20 202020 25 25 242224 KE OOO AVTAR NESE o 13303 23908 q 
A IA C223 2.2 4 22:212 8,192,136,208,5,206,132,3,240,6 а 
,202,208,245,76,34,3,96 | 
40 INPUT "ANDAMENTO (1-50)";T 
50 T = T / 3.3 ni 
60 READ А,В d 
70 POKE 900,1 * B * T: POKE 90 li 
a z 1,A: CALL 800 z 
d 80 FOR I = 1 TO 100: NEXT el 
252020 20 18 7 15 13 20 сото 54 E оған 
0 DATA ,6,85,6,96, 
DEA E 52 110 DATA 76,6,85,6,96,12 3 
120 DATA 64,6,72,4,72,2,76,12 g 
130 DATA 64,6,72,4,72,2,76,10 
‚64,2 і el 
dois valores para cada nota: um paraa 1040 DATA G,2,04C,4,04C,2,B,2,A 255 РМА: АЛИША: БО озо I 
tonalidade e outro para a duração. Um .2,В,2,04С,4,6,2,6,4,6, . 150 DATA 47,4,64,2,64,4,64,2 E 
comando SOUND emite o som antes 1050 DATA 04C,2,04C,2,04C,2,B,2 160 DATA 47,2,47,2,47,2,50,24 
que outros dados sejam lidos. .А,2,В.2,04С,4,6,2,6,2,6,2. 50,2,50,2 


Ao executar suas próprias canções, 
acerte os valores do laço FOR...NEXT 
para a leitura do número exato de no- 
tas. Por enquanto, o laço nunca termi- 
na, pois tem um STEP de valor 0. 


o EFE EE 


10 INPUT "ANDAMENTO (1-50)";TP 
20 IF TPX1 THEN 10 

30 PLAY "T"+STRS (INT(32+223/TP) 
) . 

40 FOR I-1 TO 48 

50 READ AS,D 

60 PLAY "L"*STR$(INT(1*63/D))*" 
03"+AS 

70 NEXT 1 

1000 DATA E,6,D,6,C,12 

1010 DATA E,6,D,6,C,12 

1020 DATA G,6,F,4,F,2,E,12 
1030 DATA G,6,F,4,F,2,E,10 





1060 DATA 04C,4,04C,2,B,2,A,2,B 
12,04C,2,G,2,G,2,G,4,F,2 
1070 DATA E,6,D,6,C,12 











O programa do MSX comega pedin- 
do que o usuário informe o andamento 
desejado. A linha 20 verifica se o valor 
escolhido é válido — se náo for, o pro- 
grama volta á linha 10. A linha 30 cui- 
da de estabelecer o andamento, selecio- 
nando um valor adequado para o argu- 
mento'*T" do comando PLAY. O va- 
lor escolhido no início deve ser transfor- 
mado em cordão pela instrucào STR$, 
para que possa servir como argumento 
de PLAY. 

A linha 50 obtém os valores de tona- 
lidade e duração das notas. A linha 60 
produz o som, também usando o co- 
mando PLAY. Para determinar a dura- 
ção de cada nota, STR$ transforma em 
cordão o valor obtido nas linhas DATA 
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170 DATA 47,4,64,2,64,2,64,2, 
64,2 

180 DATA 47,4,47,2,50,2,56,2 
,50,2 

190 DATA 47,2,64,2,64,2,64,4, 
72,2 

200 DATA 76,6,85,6,96,12 


O programa do Apple usa a rotina 
em código explicada no artigo da pági- 
na 706. As linhas 20 e 30 colocam essa 
rotina na memória, depois que o HO- 
ME da linha 10 limpou a tela. 

A linha 40 solicita o valor desejado 
para o andamento da cangáo e a linha 
50 corrige seu valor. O fator de corre- 
ção aqui escolhido é compativel com du- 
rações relativas com valores até 16 (se- 
mibreve). Como em nossa canção não 
existem notas com duração tão longa, 
podemos alterar o valor para 2.5, se qui- 
sermos. Nesse caso, porém, a duração 
máxima de cada nota deverá ser 12 (mí- 
nima pontuada). 

A linha 60 obtém os valores de tona- 
lidade e duração e à linha 70 cabe exe- 
cutar a nota. Para chamarmos a rotina 
(CALL 800) que produz o som, o ende- 
reço 900 deve conter a duração e o 901, 
a tonalidade. 

O problema de tempo, que mencio- 
namos ao tratar dos demais computa- 
dores, não se aplica ao micro Apple. A 
linha 80 produz um pequeno atraso, fa- 
zendo com que a música não seja exe- 
cutada muito rapidamente. 

A linha 90 manda o programa de vol- 
ta á linha 60 para que o programa obte- 
nha o valor de uma nova nota. O pro- 
grama termina com uma mensagem de 
erro, informando o fim dos dados. 


Embora o programa anterior funcio- 
ne no TK-2000, seus usuários devem fa- 
zer algumas modificações. Primeiro, co- 
mo a rotina de produção de sons não é 
necessária, as linhas 20 e 30 podem ser 
apagadas. Além disso, devemos substi- 


tuir os comandos na linha 70 do progra- 
ma do Apple pelo comando SOUND. A 
linha 80 também precisa ser modifica- 
da, já que o TK-2000 é mais lento que 
o Apple. Aqui estão as modificações: 


70 SOUND A, 1+B*T 
B0 FOR I-1 TO 40:NEXT 


10 INPUT"ANDAMENTO (1-50)";TP 
20 IF TPX1 THEN 10 

30 READ AS,D 

40 PLAY”T"+STRS(INT(1+255/(TP*D 
)))*"03"*A9 
50 GOTO 30 
1000 DATA E 
1010 DATA E 
1020 DATA G 
1030 DATA G 
1040 DATA O: 


+2,04C,2,6,2,6,2,6,4,F,2 
1070 DATA E,12,D,12,C,12 


O programa do TRS-Color começa 
pedindo o valor da velocidade de exe- 
cução desejada — ou andamento — por 
meio de um comando INPUT. 

















A linha 20 verifica se o valor forne- 
cido está dentro dos limites válidos, re- 
tornando à linha 10 se o andamento for 
menor que 1. 

A linha 30 lê dois valores para cada 
nota: um para a tonalidade — represen- 
tada por meio de uma letra — e outro 
para a duração. Para simbolizar os sus- 
tenidos, usamos um sinal **cardinal”” ou 
um **mais"' antes da nota e, para os be- 
móis, um sinal **menos'' no mesmo lu- 
gar. A linha 40 toca a nota, através de 
um comando PLAY. O T entre aspas 
faz com que o nümero que vem a seguir, 
entre 1 e 255, determine o andamento 
da melodia. Esse nümero é calculado 
invertendo-se o valor inicialmente for- 
necido ao programa. Para ser utilizado 
como argumento de PLAY, o nümero 
deve ser convertido em um cordáo por 
intermédio do comando STRS. 

O cordão “03” seleciona a oitava 
apropriada; a parte final da linha ( + A$) 
cuida da tonalidade da nota. 

Após produzir o som de uma nota, 
o programa volta à linha 30, onde 
READ lé um novo par de dados nas li- 
nhas DATA. Isto se repete até que o 
conteúdo das linhas DATA se esgote. O 
programa é interrompido com uma 
mensagem de erro, ao tentar prosseguir 
a leitura de dados — que já acabaram. 











UM VIDEOGAME 
EM ASSEMBLER 


Comecamos aqui à programacáo de um 
videogame completo: Avalanche. Em cada 
nova seção você encontrará uma 
surpresa... e aprenderá um pouquinho 
mais sobre código de máquina! 


Os princípios mais importantes da 
linguagem de máquina podem ser ensi- 
nados por meio da programação de jo- 
gos. E, sem dúvida, aprender desse jei- 
to é muito mais divertido. Desenvolve- 
mos, assim, um videogame completo, 
especialmente construído para demons- 
trar os recursos de programação do 
Spectrum, do MSX e do TRS-Color. 
Náo haverá programas para as linhas 
Apple, TK-2000, TRS-80 e ZX-81. 

Avalanche é um videogame no estilo 
de Keystone Kappers, exigindo rapidez e 
agilidade do jogador, que precisa cor- 
rer e saltar para escapar dos perigos que 
o ameaçam. 

Serão criadas quatro telas, uma pa- 
ra cada nível de dificuldade — o jogo 
vai se tornando cada vez mais difícil. O 
personagem central de toda a ação é 
Willie, Nosso herói decide fazer um pi- 


quenique em uma montanha à beira- 
mar. Depos de eno ntrar um bom lu- 
gar para sua , vai dar um 


que pelas.fedondezas. Ao voltar, 
ritos monteses 
espalharam seu lanche por toda a encos- 


ta. Para recuperar o que trouxe, preci- 


sará ir até o topo da montanha — o que 
deve fazer o mais rápido possível, 
levando-se em conta que a maré está su- 
bindo. Willie morrerá afogado se não 
chegar lá em cima a tempo. 

Na primeira etapa do jogo, nosso he- 
rói é bombardeado por uma avalanche 
de pedras que rolam montanha abaixo. 
Para isso, utilizamos a primeira tela, que 
mostra as pedras descendo a encosta. 
Willie precisa saltá-las, se-quiser conti- 
nuar vivo — qualquer descuido pode ser 
fatal, A corrida e os saltos do persona- 
gem são controlados pelas teclas N eM. 
Se uma pedra atingi-lo, é morte certa. 
Felizmente, ele tem cinco vidas, 

Quando Willie chega ao topo da 
montanha e recupera parte do que per- 
deu, é obrigado a voltar ao nível do mar. 
O jogo recomeça, então, na segunda te- 
la. Desta vez, ao tentar subir o monte, 


cos, verdadeiras armadilhas cavadas na / 
encosta. Se cair num deles ficará enter-, 


trar toda a sua habilidade, pois será 
bombardeado pela avalanche enquanto. 
salta sobre os buracos habitados pelas. 
serpentes “assassinas”. 

Nas quatro etapas do jogo a rapidez 


> 
> А 


encontrará pelo caminho enormes bura- Ja 


rado... e morto. 

Chegando ao cume da segunda mon- 
tanha, nosso herói será colocado aos pés 
da terceira e precisará enfrentar uma no- 
va escalada. A encosta continua cheia 
de buracos, mas, agora, cada um deles 
é habitado por uma serpenie venenosa, 
que tentará picar o personggem quan- 
do este saltar; 


Na quarta (eia, Willié terá qué mos 


p 
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é fundamental, pois a maré está sempre 
subindo. Os pontos do jogador sáo con- 
tados conforme seu sucesso em escalar 
a montanha, havendo um bónus para 
quem conseguir passar as quatro telas 
sem perder nenhuma vida. 

Além de ensinar os truques da pro- 
gramação em código de máquina, Ava- 
lanche é um jogo envolvente e cheio de 
emoções. Publicaremos suas seções em 
várias partes. O funcionamento de ca- 
da uma e seu papel na estrutura global 
do programa serão explicados detalha- 
damente na medida em que forem apre- 
sentadas. Sempre que possível, indica- 
remos as alternativas de utilização de de- 
terminadas rotinas. No final da série, 
você terá um videogame tão bom como 
os disponíveis em cartuchos. 


A ESTRUTURA DO PROGRAMA 


O cenário e os caracteres móveis sáo 
todos desenhados com blocos gráficos. 
Colocamos o cenário na tela por meio 
de laços que obtêm os caracteres corres- 
pondentes em bancos de blocos criados 
previamente na memória. 

Os buracos e as cobras são superpos- 
tos ao cenário original, de maneira que 
não precisamos redesenhá-lo para mon- 
tar as demais telas. 

A parte principal do programa con- 
siste em uma rotina de controle que de- 
termina o andamento e a prioridade dos 
eventos. Cada evento em si é executado 
por uma sub-rotina específica, 

A animação do personagem central 
e das serpentes “assassinas” é feita em 
saltos de meio caractere, procedimento 
viabilizado pela criação de dois conjun- 
tos de caracteres. 

Com esse tipo de animação, pode-se 
obter suavidade nos movimentos sem 
complicar demais o programa ou atrasá- 
lo — o que comprometeria o desenvol- 
vimento do jogo, já que a velocidade, 
no caso, é muito importante. 


A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o tí- 
tulo. Embora a rotina de impressão es- 
teja em código de máquina, será mais 
fácil colocar as letras na memória usan- 
do um programa BASIC. 

Antes de executar o programa, pro- 
teja a região da memória corresponden- 
te com CLEAR 57434. 


10 LET X=57435 


o 20 READ AS 


FOR N-1 TO 38 

POKE X,CODE AS(N) 

LET X-X*1 

NEXT N 

DATA "AVALANCHECRIACAO:A.D 
OEPROGRAMA: P . CLARK" 


O programa cria na memória uma ta- 
bela com os códigos ASCII das letras 
que compóem a tela. Essa parte da me- 
mória deve ser gravada juntamente com 
o resto do programa em código; assim, 
na realidade, o programa BASIC náo 
será necessário á execugáo do jogo. 
Grave-o, contudo, para auxiliar na 
montagem do programa completo. 

Para que o Assembler de INPUT 
funcione a contento, faca as seguintes 
modificações: na linha 5120, troque o 
número 6 por 22; na linha 6110, adicio- 
ne :GOSUB 6150; na linha 6150 troque 
GOSUB 6260 por GOSUB 6160. Carre- 
gue, então, o Assembler e digite esta pri- 
meira rotina: 


40 REM org 58035 
50 REM ti call cl 
60 REM Id a,2 
70 REM out 254,a 
80 REM 1d a,16 
90 ВЕМ 14 (23674).а 
100 REM 14 іх,57435 
110 REM 1d b,9 
120 REM ld a,70 
130 REM 1d hl,299 
140 REM call me 
150 REM 1d b,15 
160 REM 1d a,7 
170 REM 1d hl,616 
180 REM call me 
190 REM 1d b,18 
200 REM Id hl,679 
210 REM call me 
220 REM 1d b,2 
230 REM ldp ld h],65000 
240 REM 1d de,0 
250 REM 144 dec hl 
260 REM push hl 
270 REM sbc hl,de 
280 REM pop hl 
290 REM Jr nz, Ida 
300 REM danz ldp 
301 REM nop 
302 REM nop 
303 REM nop 
304 REM nop 
305 REM nop 
306 REM nop 
307 REM nop 
308 REM nop 
310 REM ret 
Grave os mnemónicos usando a op- 
ção correspondente do Assembler. De- 
pois, monte a primeira rotina e grave o 
programa em código — se preciso, re- 
corra ao monitor de linguagem de má- 
quina. Digite, então, mais esta rotina: 


10 REM org 58146 
20 REM ktt ld a,253 


90 
100 
110 
120 
130 
140 
150 
160 
1/0 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 
REM 
REM 
REM 
REM 
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in a,254 
bit l,a 

3r nz,ktt 

ret 

me push bc 
push af 

ld a, (1x+0) 
call asc 

pop af 

call print 
inc hl 

inc ix 

pop bc 

danz me 

ret 

asc push hl 
Jd h1,15608 
1d de,B8 

1d b,31 

sub b 

ash add hl,de 
dec a 

3r nz,ash 
push hl 

pop bc 

pop hl 

ret 

cl ld 1x,16384 
1d h1,6912 

1d a,0 
clp 1d 
inc ix 
dec hl 
push hl 
ld de,0 
sbc hl,de 
pop hl 

Jr nz,clp 
ret 

print push af 
push hl 

push bc 

push hl 

pop de 

14 а,а 

cp 1 

jr c,next 
push de 

ld de,1792 
add hl,de 
pop de 

1d a,d 

ср 1 

jr z,next 
push de 

ld de,1792 
add hl,de 
pop de 

next push de 
1d de,16384 
add hl,de 
pop de 


14 а,В 
рор bc 

push af 

гері ld a, (bc) 
ld (hl),a 

inc h 

inc bc 

pop af 

dec a 

ar z,exit 





(1x*0),a 






































750 REM push af 

760 REM 3r rept 

770 REM exit pop hl 
780 REM pop af 

/90 REM push de 

800 REM ld de,22528 
RIO REM add hl,de 
820 REM pop de 

830 АЕМ 19 (hl),a 
840 REM push de 

850 REM pop hl 

B60 REM ret 


Grave essas duas rotinas separada- 
mente. O programa pode ser executado 
pelo comando RAND USR 58035, co- 
mo de costume. Lembre-se, porém, de 
que a tabela com dados em ASCII — 
que começa em 57435 — deve estar na 
memória para que o programa funcione. 


O PROGRAMA BASIC 


O programa escrito em BASIC 
resume-se a um laco FOR...NEXT que 
coloca as letras das palavras da página 
inicial na memória, formando uma ta- 
bela ASCII que o programa em código 
pode utilizar. Ele apenas ajuda a mon- 
tar o programa, nào sendo necessário ao 
funcionamento do jogo depois que a ta- 
bela tiver sido gravada. 


0$ CÓDIGOS 


O programa consiste em uma rotina 
principal que chama as demais rotinas. 
Podemos, assim, cuidar de cada rotina 
separadamente, o que facilita muito a 
detecção e correção de erros. 

A primeira instrução call cl chama a 
sub-rotina de limpeza da tela. Os co- 
mandos ld a,2 e out 254,a definem as co- 
res da borda, como foi explicado na pá- 
a 556. O uso do comando out modi- 
apenas temporariamente a cor da 
moldura. Para tornarmos essa alteração 
permanente, precisamos modificar o va- 
lor da variável do sistema corresponden- 
te, que fica na posição 23624. 

A cor da moldura especificada no co- 
mando out é 2, ou vermelho. Mas, pa- 
ra que o 2 seja colocado em 23624, de- 
vemos “*deslocá-lo”" — operação SHIFT 
— três bits para a esquerda, resultando 
no valor 16. 


IMPRESSAO NA Ti 


A rotina rotulada com me controla 
a impressáo de caracteres na tela. Cer- 
tos parámetros devem ser fornecidos a 
ela para que possa imprimir o texto cor- 
reto na posigáo desejada. 

















O comando ld ix,57435 coloca no re- 
gistro IX o endereco do primeiro byte 
da tabela ASCII, a fim de que a rotina 
de impressào saiba o que imprimir. 

O acumulador contém o atributo do 
caractere que será impresso. Tanto em 
linguagem de máquina quanto em BA- 
SIC o funcionamento é o mesmo. Quan- 
do o bit 7 está ligado, o caractere é cin- 
tilante — FLASH. O bit 6 dá brilho ao 
caractere — BRIGHT. Os próximos trés 
bits determinam a cor do fundo, e os 
trés seguintes sào responsáveis pela cor 
dos caracteres. 

No programa-fonte, colocamos 70 — 
01000110 em binário —, que tem o bit 
6ligado, os bits que controlam a cor do 
fundo nulos e os bits dos caracteres va- 
lendo 6. Teremos, assim, caracteres 
amarelos sobre fundo preto, brilhante 
e náo cintilante. 

O registro B funciona como contador 
de caracteres. O valor nele colocado de- 
termina o comprimento do texto que se- 
rá impresso. Na primeira vez que a ro- 
tina me é chamada, B contém 9 — as 
nove letras de AVALANCHE. 

O registro HL contém a posição da 
tela a partir da qual o texto deve ser im- 
presso. Essa posição é calculada em nú- 
meros de posições a partir do canto es- 
querdo da tela. Quando HL contém 
139, o primeiro caractere da primeira ca- 
deia de caracteres — ou seja, o “A” de 











AVALANCHE — é colocado na quin- 
ta linha da tela, onze posições a partir 
do lado esquerdo. 

A rotina me é chamada três vezes pa- 
ra imprimir cada uma das três linhas da 
tela inicial. 


PROGRAMAÇÃO DE PAUSAS 


Para que o jogador possa ler o títu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 2 no registro B, de 
modo que o laço responsável pela pau- 
sa seja executado duas vezes. 

O número 65000 é colocado no regis- 
tro HL. O conteúdo desse par diminui 
em uma unidade a cada volta do laço in- 
terno — rotulado com Idq. HL é guar- 
dado e recuperado da pilha somente pa- 
ra ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteúdo de DE — de HL a cada vol- 
ta do laço. Mas trata-se apenas de um 
recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hi, de executar a próxima sub- 
tração, o resultado obtido será zero; ati- 
vado o indicador de zeros, o processa- 
dor sairá do laço. 

Quando completo, o programa pros- 

























































seguirá imprimindo a página de instru- 
ções. Mas, por enquanto, a instrução ret 
provoca o retorno ao BASIC. 

Não se importe com os comandos 
пор дие aparecem no final do progra- 
ma. Eles nào tëm nenhum efeito sobre 
o microprocessador e sua função aqui 
é somente preencher espaço. 


ROTINAS AUXILIARES 


Algumas rotinas de apoio ao progra- 
ma principal foram montadas. A que 
tem o rótulo ktt aguarda que pressione- 
mos uma certa tecla, e ainda nào será 
usada. O princípio de verificação do te- 
clado aqui utilizado é igual ao explica- 
do no artigo da página 381. 

Arotina me, encarregada de contro- 
lar a impressão na tela, começa guar- 
dando os conteúdos de BC e AF na pi- 
lha. Em seguida, o conteúdo da posição 
de memória apontada pelo registro IX 
(que contém o endereço inicial da tabe- 
la ASCII) é colocado no acumulador 
por Id a,(ix + 0), comando que emprega 
o endereçamento indexado. 

Os registros IX e IY são chamados de 
registros-índices, e dispõem de dezesseis 
bits para acomodar um endereço de me- 
mória. A sintaxe desse tipo de coman- 
do — muito utilizado, aliás, quando tra- 
balhamos com tabelas — é ix+d ou 
iy+d, onde d é um valor entre O e 256 
que pode ser somado ao endereço apon- 
tado pelo registro-índice. 

Depois de colocar em A o código do 
caractere que deve ser impresso na tela, 
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o programa chama a sub-rotina asc, que 
calcula a posição do padrão do caracte- 
re dentro de uma tabela de padrões exis- 
tente na ROM (veja o artigo da página 
381). O endereço inicial do padrão do 
caractere está em BC, quando o proces- 
sador retorna da sub-rotina. Recupera- 
se o valor de AF da pilha e uma nova 
sub-rotina — Iprint, que cuida da im- 
pressão propriamente dita — é chama- 
da. Quando o processador retorna de 
Iprint, HL contém a posição da tela on- 
de houve impressão — na realidade, a 
posição do byte superior do padrão do 
caractere. A instrução inc hl aumenta es- 
te valor em uma unidade. O índice IX 
também é aumentado, passando a apon- 
tar para a próxima letra da tabela 
ASCII 

O par BC (B continha originalmente 
o comprimento do texto a ser impresso) 
é recuperado da pilha; enquanto seu 
conteúdo não for zero, a instrução djnz 
me diminui B em uma unidade e repete 
o processo de impressão. 

A rotina asc calcula a posição do pa- 
drão do caractere a ser impresso. Em 
primeiro lugar, ela coloca temporaria- 
mente na pilha, por push hl, a posição 
de impressão que está em HL, pois va- 
mos usar esse par de registros. Nele é co- 
locado o endereço inicial da tabela de 
padrões — 15608. O número 8 é, então, 
colocado em DE e o 31, em B. A ins- 
trução sub b subtrai 31 de A. A opera- 
ção é necessária porque a tabela de pa- 
drões começa com o caractere de códi- 
go 32 — espaço em branco. Os códigos 
com valores menores que 32 são coman- 
dos BASIC e não caracteres. 

Um caractere é formado por oito 
bytes, cada qual correspondendo ao pa- 
drão de uma das linhas que compõem 
aletra. Assim, cada oito bytes consecu- 
tivos na tabela de padrões correspondem 
a um caractere. O laço com o rótulo ash 
vai pulando de oito em oito bytes, até 
encontrar a posição do caractere que 
queremos imprimir. Para isso, utiliza A 
como contador. Em outras palavras, 
add hi, de soma 8 a HL e dec a subtrai 
um de A, A instrução jr nz, ash repete 
o processo até que A se reduza a zero. 
O endereço do byte inicial do padrão de- 
sejado estará, então, em HL. Este va- 
lor é transferido para a pilha e, em se- 
guida, recuperado em BC. O valor ori- 
ginal de HL — posição na tela — tam- 
bém é recuperado da pilha e a sub-rotina 
termina. 

A sub-rotina Iprint cuida da impres- 
são do caractere. Ela começa guardan- 
do na pilha os pares AF, HL e BC. A 
continha o atributo do caractere, HL, 
a posição de impressão na tela, e BC, 
o endereço inicial do padrão do carac- 





tere. As linhas seguintes realizam uma 
série de testes com a posição de impres- 
são. Ao final deles, DE contém a posi- 
ção de impressão na tela. 

O programa continua no rótulo next. 
Ali, push de coloca a posição de impres- 
são na pilha e Id de,16384 coloca em DE 
o endereço inicial da tela. O endereço da 
RAM em que vamos colocar o padrão 
do caractere é a soma da posição de im- 
pressão com o endereço inicial da tela 
— add hi, de. O resultado fica em HL. 
Recupera-se a posição de impressão em 
DE e o acumulador recebe o valor 8. BC 
recupera o endereço inicial do padrão e 
AF é colocado na pilha, onde A servirá 
de contador. 

O rótulo rept representa o laço que 
desenha a letra. A instrução ld a, (be) co- 
loca em A o byte que contém uma linha 
do caractere e Id (hl),a transfere este 
mesmo valor para a tela. BC aponta pa- 
ra a tabela de padrões, enquanto HL 
aponta para a tela. A instrução inc h so- 
ma uma unidade ao registro H, o que 
equivale a somar 256 a HL. O valor re- 
sultante aponta para o byte imediata- 
mente inferior ao anterior, de maneira 
que o caractere é desenhado linha por 
linha. 

BC também tem seu conteúdo au- 
mentado em uma unidade por inc bc. O 
contador do lago é recuperado da pilha 
— pop af — e A é diminuído em uma 
unidade. Se A náo for igual a zero, a ins- 
trução jr z, exit é ignorada, AF volta pa- 
ra a pilha e o processador retorna para 
desenhar mais uma linha do caractere. 

Como A continha inicialmente o va- 
lor 8, serão desenhadas exatamente oi- 
to linhas, uma abaixo da outra, comple- 
tando uma letra. Quando A contém ze- 
ro, jr z,exit desvia o programa para o 
rótulo exit. O atributo do caractere é, 
então, colocado na tabela de atributos. 
Esse parâmetro determina a cor do ca- 
ractere. Recupera-se a posição de im- 
pressão em HL e o atributo vai para А 
— pop hl e pop af. 

O conteúdo de DE volta para a pilha 
e este par recebe o endereço inicial da 
tabela de atributos — 22528. A instru- 
ção add hi,de calcula o endereço da 
RAM correspondente e o atributo é co- 
locado nele por Id (hl),a. A posição de 
impressão na tela, preservada ora em 
DE, ora na pilha, volta para HL e a sub- 
rotina termina. 

A sub-rotina cl limpa a tela, sendo 
chamada diversas vezes no decorrer do 
programa. Primeiro, o registro IX rece- 
be o endereço inicial da tela — 16384. 
HL, por sua vez, recebe o número de 
bytes da mesma — 6912 —, servindo co- 
mo contador. A instrução Id a,0 coloca 
Oem A. A instrução Id (ix + 0),a coloca 


0 па posição da tela apontada por IX, 
o que, efetivamente, limpa aquele byte. 
O registro IX, aumentado em uma uni- 
dade, passa a apontar para o próximo 
byte da tela. HL é diminuído em uma 
unidade e, enquanto não chegar ao va- 
lor zero, a instrução jr nz,clp retornará 
para apagar o próximo byte da tela. Na 
realidade, existem quatro linhas entre 
dec hi e jr nz,clp; contudo, elas só têm 
a função de prolongar o tempo, como 
o rótulo Idq da rotina anterior. 


NA 


A primeira coisa a programar é uma 
página anunciando o videogame. As li- 
nhas seguintes criam essa página, obten- 
do os dados necessários em uma tabe- 
la, que montaremos mais tarde. Por en- 
quanto, carregue o Assembler de IN- 
PUT com as seguintes modificações, pa- 
ra que funcione de maneira satisfatória: 
na linha 5120, troque o número 6 por 
22; na linha 6110, adicione :GOSUB 
6150; na linha 6150, troque GOSUB 
6260 por GOSUB 6160. Modifique a li- 
nha 5000 com CLEAR 1500,&CFFF, 
para proteger o topo da memória. Di- 
gite, em seguida, este programa: 


10 org -12288 
20 call 108 

30 ld de,296 
40 1d hl,-14000 
50 ld bc,9 

60 call 92 

70 1d de,493 
80 1d hl,-13991 
90 14 ьс,15 


100 са11 92 

110 14 de,572 
120 1d hl,-13976 
130 1d bc,18 

140 call 92 

150 1d b,10 

160 14р jd hl, 65000 
170 14 4е,0 

180  1dq dec hl 
190 push hl 

200  sbc hl,de 
210 pop hl 

220 г п?,144 
230 ајп2 1ар 

240 ret 

250 end 


Grave o programa-fonte e depois 
monte-o. O programa em código pode 
ser gravado depois disso. 


OS CÓDIGOS 


O programa liga a tela de texto de 
quarenta colunas por intermédio de uma 
rotina da ROM cujo endereço é 108, em 
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decimal. Em seguida, reserva uma por- 
ção da memória para os códigos ASCII 
do texto a ser impresso. Ela começa no 
endereço -14000. 

Uma outra rotina da ROM, que fica 
no endereço 92, encarrega-se da trans- 
ferência de uma área da RAM para a 
VRAM. Para que o texto certo seja co- 
locado na posição desejada, certos pa- 
râmetros devem ser fornecidos. 

O par DE precisa conter a posição 
inicial da área da VRAM em que vamos 
colocar o texto. O par HL, por sua vez, 
contém o endereço inicial da área da 
RAM que será transferida. BC, final- 
mente, funciona como contador de 
bytes, determinando que comprimento 
terá o texto que vai ser impresso. 

Essa rotina da ROM é chamada três 
vezes, uma para cada linha que aparece 
na tela inicial. Antes de cada comando 
call, os valores adequados são coloca- 
dos nos pares DE, HL e BC. 


PROGRAMACAO DE P. 





А5 


Para que o jogador possa ler o títu- 
lo, devemos incluir uma pausa no pro- 
grama. Colocamos 10 no registro B, de 
modo que o lago responsável pela pau- 
sa seja executado dez vezes. 

O número 65000 é colocado em HL, 
cujo conteúdo diminui em uma unida- 
de a cada volta do laco interno — rotu- 
lado com Idq. HL é guardado e recupe- 
rado da pilha só para ganharmos tempo. 

Pode parecer estranho subtrair zero 
— conteüdo de DE — de HL a cada vol- 
ta do laco. Mas trata-se apenas de um 








recurso utilizado para afetar o indica- 
dor de zeros, que não reage à instrução 
pop. O comando jr nz depende desse in- 
dicador para que o programa possa sair 
do laço. Quando HL for reduzido a ze- 
ro e sub hl, de subtrair zero dele, o re- 
sultado será igual a zero; ativado o in- 
асан de zeros, o processador sairá do 
aco. 

Quando o programa estiver comple- 
to, ele prosseguirá imprimindo a pági- 
na destinada à exibição das instruções. 
Mas, por enquanto, a instrução ret pro- 
voca o retorno ao BASIC. 


O PROGRAMA BASIC 


As linhas seguintes geram a tabela 
ASCII necessária ao funcionamento do 
programa em código. 


5 CLS:CLEAR 100,-14000 


l0 AS-"AVALANCHECriacáo: A. Doe 


Programa: R. Neder" 

20 FOR I*0 TO 41 

30 POKE -14000*T,ASC(MIDS (AS, T* 
1,1)) 

40 NEXT 


50 DEFUSRI=-12288 
60 X=USRI (0) 
70 CLS 
80 END 
A linha 5 limpa a tela e protege o to- 
po da memória que conterá a tabela. 
A linha 10 coloca o texto utilizado na 
página inicial dentro da variável AS. É, 
sem düvida, bem melhor digitar uma ta- 
bela na forma de um texto do que digi- 
tar os nümeros de todos os códigos AS- 
CII correspondentes. 











Em seguida, um laco FOR...NEXT 
coloca os códigos ASCII na memória, 
criando a tabela ASCII. 

O próprio programa testa, entào, a 
rotina em código — se ela estiver gra- 
vada na memória. 

O jogo nào vai precisar desse progra- 
ma BASIC depois que a tabela tiver si- 
do gravada. Guarde-o, porém, para aju- 
dar na montagem. 


A primeira coisa que se programa em 
qualquer jogo é uma tela exibindo o tí- 
tulo. Embora a rotina de impressáo es- 
teja em código, será mais fácil colocar 
os códigos ASCII das letras na memó- 
ria usando um programa BASIC: 





1 CLEAR 200,16999 

10 AD-17000 

30 READ AS 

40 FOR A=1 TO LEN(AS) :B=ASC (MID 
$(A$,5,1)) 

50 IF BX&H61 THEN POKE AD,B ELS 
E POKE AD,B-96 

60 AD=AD+1 





70 NEXT A 

80 DATA "avalanchecriacao: a.do 
e programa: s. kellaway e q. he 
dley” 


Quando ele é executado, a tabela ne- 
cessária ao jogo é criada na memória do 
microcomputador. Para gravar a tabe- 
la, utilize CSAVEM “DADOS”, 17000, 
17059, 19000. 

Se quiser usar o Assembler de IN- 
PUT, precisará ampliar a memória dis- 
ponível; se náo o fizer, o espago será in- 
suficiente para o Assembler e o progra- 
ma em código. Digite, entáo: 


POKE 25,6 
POKE 26,1 
NEW 


Depois, digite CLEAR 200,18999 pa- 
ra proteger o topo da memória e, em se- 
guida, o programa: 


10 ORG 19000 
20 JSR CLS 
30 LDX $1066 
40 LDY 417000 
50 LDB 49 


60 JSR LPRINT 
70 LDX $1384 


80 LDB 415 

90 JSR LPRINT 

100 LDX 41445 

110 LDB $21 

120 JSR LPRINT 

130 ГОХ 41481 

140 LDB 412 

150 JSR LPRINT 

160 LDA 45 

170 PAUSE LDX $65535 
180 PAUSEI LEAX -1,X 
190 BNE PAUSEI 

200 DECA 

210 BNE PAUSE 

220 JSR CLS 

230 RTS 

240 LPRINT EQU 19174 
250 CLS EQU 19148 


Os mnemônicos podem ser gravados 
por meio da opção correspondente do 
Assembler. Monte o programa e grave- 
o em código — se nào souber fazer is- 
to, utilize o monitor Assembler. 

Além desse programa e da tabela, as 
outras rotinas aqui apresentadas seráo 
necessárias para que vocé veja o resul- 
tado por meio de EXEC 19000. 


O PROGRAMA BASIC 


O programa em BASIC comega re- 
servando uma boa quantidade de me- 
mória para armazenar o programa em 
código. Em seguida, as letras utilizadas 
na primeira tela sáo colocadas na me- 
mória, representadas por seus códigos 
ASCII. Em geral, é preciso subtrair 96 
de cada código para que eles correspon- 
dam aos códigos de letras invertidas. Al- 
gumas letras, porém — códigos meno- 
res que 61, em hexadecimal —, não pre- 
cisam dessa ope 


ШЗ ПА ТІ 


A rotina em código começa em 
19000, depois da tabela ASCII, e salta 
para a sub-rotina CLS, que começa em 
19148. Na primeira rotina, o endereço 
desse rótulo é definido por uma instru- 
ção EQU, para que os desvios sejam cal- 
culados. Eis a sub-rotina: 





10 ORG 19148 

20 CLS LDX 41024 
30 LDA 4128 

40 CLSI STA ,X+ 
50 CMPX 41536 
60 BLO CLSI 

70 RTS 


O enderego inicial da tela — 1024 — 
é colocado no registro X e o código do 
espaço em branco — 128 —, em A, 





ШІ 











STA,X + coloca esse código na posigáo 
apontada por X; o conteúdo de X au- 
menta em uma unidade. A rotina é re- 
petida várias vezes até que X seja maior 
que 1536, endereco final da tela. 

Como o conteúdo de X aumenta an- 
tes da colocacáo de 128 em um endere- 
ço da tela, um comando BLO — desvio 
se for “menor que'* — é usado para sair 
do lago CLSI. Essa rotina deve ser gra- 
vada separadamente. 


IMPRES: 





МАТ 





Quando o microprocessador retorna 
da sub-rotina CLS, a rotina principal 
prepara os registros para que se faga a 
impressáo na tela. 

O registro X contém a posigáo que 
desejamos para o primeiro caractere da 
linha a ser impressa. O '*A” de Avalan- 
che será impresso, entáo, em 1066. 

O registro Y contém a posigáo de me- 
mória da tabela ASCII da primeira le- 
tra a ser impressa. Assim, 17000 é colo- 
cado em Y. O registro B contém o nú- 
mero de caracteres a ser impresso. Co- 
mo vamos começar escrevendo ''AVA- 
LANCHE”, 9 é colocado em B. Em se- 
guida, ocorre um salto para a sub-rotina 
LPRINT. Mais uma vez uma instrução 
EQU define o enderego 19174 para efei- 
to de cálculos de desvios. 


A ROTINA LPRINT 


Esta rotina começa em 19174. Sua 
função consiste em obter os dados da ta- 
bela ASCII, colocando os códigos na te- 
la, um de cada vez. 


10 ORG 19174 
20 LPRINT LDA ,Y+ 


30 STA ,X+ 
40 DECB 

50 ВМЕ LPRINT 
60 RTS 


Os códigos da tabela apontados por 
Y sáo colocados em A e o apontador 
volta-se para a próxima posição. O co- 
mando STA,X + coloca-os, então, na 
posição de tela apontada por X, e X au- 
menta em uma unidade, apontando pa- 
ra a posição seguinte. 

A instrução DECB subtrai uma uni- 
dade do conteúdo de B e a rotina é re- 
petida até que B chegue a zero. Quan- 
do isso ocorre, o microprocessador re- 
torna à rotina principal. Guarde esta ro- 
tina separadamente. 

A rotina prossegue até completar a 
página de rosto de nosso videogame, im- 
primindo linha por linha. 

Para escrever uma nova linha, a po- 


sição de impressão é colocada em X e 
o comprimento do texto, em B. 

Não há necessidade de colocarmos 
um novo valor em Y, já que esse apon- 
tador simplesmente percorre a tabela 
ASCII B caracteres de cada vez. 


A ROTINA DE PAUSA 


Quando a última linha da página ini- 
cial tiver sido impressa, o microproces- 
sador fará uma pausa no programa, pa- 
ra que possamos lé-la, antes de ser subs- 
tituída pela tela de instruções. 

O número 5 é colocado no acumula- 
dor e o registro X recebe o valor 65535, 
LEAX -1,X subtrai uma unidade de X 
e BNE PAUSEI retorna, de modo que 
vai diminuindo até ser reduzido a zero; 
A também é diminuído. O processo se 








repete até quê A também seja igual a ze- 
ro e o comando BNE permita que o pro- 
cessador deixe o laço. 


DOIS LAÇOS 





O laço externo PAUSE — baseado 
no acumulador — repete-se, assim, cin- 
co vezes; a cada repetição, o laço inter- 
no PAUSEI é executado 65535 vezes. O 
uso de dois laços tem a vantagem de 
possibilitar o acerto do tempo. O laço 
externo nos dá um ajuste grosseiro e o 
laço interno, um ajuste mais fino. 

Por fim, a rotina CLS limpa a tela 
novamente. Em seguida, o computador 
passa à página de instruções, que apre- 
sentaremos no próximo artigo desta sé- 
rie. Por hora, uma instrução RTS retor- 
na ao BASIC. 

















OJOGO 





Otelo é um jogo de estratégia que se 
desenvolve num tabuleiro de oito por oi- 
to posições — como os tabuleiros de ха- 
drez ou dama. As regras são bem fáceis 
e o jogo também. 

O objetivo é tomar o maior número 
possível de pegas do oponente. A joga- 
da consiste basicamente na colocação 
das peças no tabuleiro, uma a uma, por 
um jogador de cada vez, até preenchê- 
lo totalmente. Cada jogador começa 
com duas peças e tenta tomar as do opo- 
nente, ''cercando-as"', Para consegui-lo, 
deve colocar as pegas de maneira que as 
do oponente fiquem entre as suas — ou 
seja, que se forme uma trilha de pecas 
adversárias com pegas suas nas duas ex- 
tremidades. Ao tomar uma trilha adver- 
sária, esteja ela na horizontal, vertical 
ou diagonal, todas as pegas do oponen- 
te serão substituídas por peças do joga- 
dor em questão. 

O placar de cada jogador correspon- 
de ao número de peças que ele tem no 
tabuleiro naquele momento. Será ven- 
cedor aquele que tiver o maior número 
de peças no tabuleiro quando ele estiver 
totalmente cheio. 

Nesta versão para computador, esta- 
remos jogando contra a máquina que, 
além de mostrar o tabuleiro, também 
atualiza o placar. 


DICAS PARA VENCER 


Para quem nunca jogou Otelo, as di- 
cas que se seguem seráo muito úteis. 

As posições dos cantos são extrema- 
mente importantes, já que, uma vez con- 
quistadas, jamais serão roubadas. Em 
conseqüência, a ocupação de tais posi- 
ções é fundamental para garantir a vi- 
tória — mesmo que implique o sacrifí- 
cio de algumas de nossas pegas ou im- 
peça um'outro movimento que pudesse 
nos render mais peças do oponente. 

Se considerarmos que uma peça po- 
de completar mais de uma linha — na 
vertical, na horizontal e na diagonal —, 
concluiremos que o movimento aparen- 
temente mais óbvio nem sempre é o me- 
lhor, pois, nos estágios mais avançados 
do jogo, será possível tomar duas ou três 
linhas de peças do oponente com a sim- 
ples adição de uma peça. 


DO OTELO (1) ` 


Pense sempre adiante. Podemos in- 
duzir o adversário a criar situações que 
nos ajudem a tomar posições vitais, sim- 
plesmente simulando ou fingindo que fi- 
zemos uma má jogada. 


O PROGRAMA 


Uma das grandes vantagens da ver- 
sáo de Otelo para computador sobre o 
verdadeiro tabuleiro é que nela o com- 
putador fica com todo o “trabalho pe- 
sado”. Além de desempenhar o papel de 
adversário, ele substitui as peças con- 
quistadas e cuida do placar, deixando- 
nos livres para pensar só nas jogadas. 

O computador demora um pouco pa- 
ra fazer suas jogadas, pois leva em con- 
ta todos os movimentos possíveis. No 
decorrer do jogo, à medida que o nú- 
mero de posições vazias diminui, passa 
a tomar decisões com maior rapidez. 


JOGAND! 


Ao rodar o programa, o computador 
perguntará se vocé deseja fazer a primei- 
ra jogada ou não. Para executar uma jo- 
gada, é necessário fornecer-lhe duas 
coordenadas. Estas especificam a posi- 
ção da peça no tabuleiro e estão com- 
preendidas entre os valores 1 e 8. For- 
necemos primeiramente a coordenada 
da linha — ou seja, do eixo Y, com ori- 
gem no topo da tela — e, depois, a coor- 
denada da coluna — eixo X, com ori- 
gem no lado esquerdo do tabuleiro. Se 
fornecermos 0 (zero) para as coordena- 
das, o jogo será encerrado; se fornecer- 
mos 9, transferiremos o direito de jogar 
para o computador. 


AO 


Digite agora a primeira parte do jo- 
go do Otelo. Se vocé rodar o programa 
como está, verá o tabuleiro na tela, mas 
ainda náo poderá jogar. 

Salve as linhas digitadas em disco ou 
em fita cassete para mais tarde incorpo- 
rá-las à segunda parte do programa, que 
será apresentada num próximo artigo, 
completando o jogo. 


Embora suas regras sejam bastante 
simples, o jogo do Otelo requer muita 
estratégia. Programá-lo é fácil: 
monte o tabuleiro, crie as pegas 

e desafie sua máquina! 


10 BORDER 0: PAPER 7: INK 1: 
CLS 

15 PRINT AT 1,11; INVERSE l;" 
OTHELLO" 


20 PRINT AT 10,2;"VOCE QUER C 





OMECAR ? (S OU N)”: INPUT X$ 
IF X$-"" THEN GOTO 20 

30 LET X$-X$(1): IF XS«»"S" 

AND X$<>"N" AND XS€»"s" AND X 

$€»"n" THEN GOTO 20 

40 LET CP=1: IF XS="N" ОВ Х5- 

"n" THEN LET CP=2 

100 DIM B(8,8): DIM C(8): DIM 

D(8,2): DIM X(60): DIM Y(60): 

DIM N(60) 


110 LET B(4,4)=1: LET B(4,5)=2 
LET B(5,4)=2: LET B(5,5)=1 












120 FOR F=1 TO B: READ A: LET 
D(F,1)=A: READ A: LET D(F,2)=A 
NEXT E 

130 DATA -1,-1,0,-1,1,-1,-1,0, 
1,0,-1,1,0,1,1,1 

140 FOR F=0 TO READ A,B,C 
POKE USR "A"*F,A: POKE USR "B" 
*F,B: POKE USR +F,C: NEXT F 
150 DATA 204,0,0,51,60,60,204, 


126,66,51,126,66,204,126,66,51 
.126,66,204,60,60,51,0,0 


(41%) 


10 НОМЕ : 9ТАВ (3): НТАВ (15) 
15 INVERSE : PRINT"O TEL O 
": NORMAL 

20 VTAB (10): PRINT "QUER JOGA 
R PRIMEIRO (S/N) ";: INPUT X$: 
IF X$ - "" THEN 20 

30 XS = LEFTS (X$,1):CP - 1: I 
F X$ = "Nº THEN CP = 2 

40 IF X$ « 2» "S" AND X$ € > 
"N" THEN GOTO 20 

100 DIM B(8,8),C(8),D(8,2),X(6 
0),Y(60),N(60) 

110 B(4,4) = 1:B(4,5) = 2:B(5,4 
) = 2:B(5,5) = 1 

120 FOR F = 1 TO 8: READ A:D(F 
+1) = A: READ A:D(F,2) = A: NEX 
m 

130 DATA -1,-1,0,-1,1,-1,-1,0 


,1,0,-1,1,0,1,1,1 


nau 


5 COLOR 1,15,15:SCREEN2 
10 FOR X=1 TO 16:READ A:NEXTX:G 
OSUB 9200:RESTORE 
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— AS REGRAS DO JOGO. ——  EASPECAS 
DICAS PARA VENCER Wi INICIALIZAÇÃO DO JOGO 

A PRIMEIRA TELA Ш DIGITANDO A ROTINA 

SELEÇÃO DOS GRÁFICOS PRINCIPAL 





- PARA O TABULEIRO 


“A VEZ DO JOGADOR 











15 DRAW"BM60,40;825;Cl":AS-" 
LO":GOSUB 9300 
20 DRAW"BM26,120;810;C2":A$-"QU 


ER JOGAR PRIMEIRO":GOSUB 9300:D 
ВАМ"ВМ90,140":А9-"8 OU N":GOSUB 
9300 


21 XS=INKEYS:IFXS=""THEN 21 

25 COLOR15,4,4 

30 IFX$<>"S"ANDXS<>"s"ANDX$<>"N 
"ANDXSC»"n"THEN 21 

40 CP-1:IFXS-"N"ORXS-"n"THEN CP 
#2 

100 DIM В(8,8),С(8),0(8,2),Х(60 
) ,Y (60) ,N(60) 
110 B(4,4)=1 
B(5,5)=1 

120 FOR F=1 TO 8:READ A:D(F,1)= 
A:READ A:D(F,2)=A:NEXTF 

130 DATA -1,-1,0,-1,1,-1,-1,0,1 
10.=1.1,0,1,1,1 

150 GOSUB 1100 





B(4,5)=2:B(5,4)=2 


10 PMODE 1,1:COLOR 4,1:PCLS:SCR 
EEN 1,0:FOR TO 16:READ A:NE 
XTX:GOSUB 9200:RESTORE 

15 DRAW^BM60,40;S16":AS-"OTHELL 
0":GOSUB 9300 

20 DRAW"BM26,120;88;C2":A$-" Q 
UER JOGAR PRIMEIRO":GOSUB 9300: 
DRAW"BM100,140":A$-"S OU N":GOS 
UB 9300 

21 XS=INKEYS:IF XS="" THEN 21 
30 IF XS<>"S” AND XS<>"N” THEN 
21 

40 CP-1:IF X$-"N" THEN CP-2 

100 DIM B(8,8),C(8),D(8,2),X(60 
),Y (60) ,N (60) 

110 B(4,4)=1:B(4,5)=2:B(5,4)=2: 
B(5,5)*1 

120 FOR F=1 TO B:READ A:D(F,1)= 
A:READ A:D(F,2)=A:NEXT F 
130 DATA -1,-1,0,-1,1,-1, 
,+0,-1,1,0,1,1,1 

150 GOSUB 1100 





1,0,1 


As linhas 10 a 40 geram a primeira 
tela que o jogador vé, ou seja, o título 
do jogo e a pergunta que o inicia. A li- 
nha 10 (linha 5, no MSX) se encarrega 
do ajustamento das cores e da limpeza 
da tela. O nome do jogo é gerado na li- 
nha 15. Como nos programas para os 
micros TRS-Color e MSX usou-se a te- 
la de alta resolução, existe uma rotina 
que desenha letras no final do progra- 
ma (a qual já utilizamos anteriormente 
em INPUT). 

A linha 20 apresenta a primeira per- 





gunta, destinada a definir quem jogará 
primeiro. A resposta, armazenada em 
XS, é depois reduzida à sua primeira le- 
tra, na linha 30. CP corresponde ao jo- 
gador em questão e recebe o valor 1 
quando quem joga é você e 2 quando é 
o computador. A linha 40 faz a verifi- 
cação рог 5 е М, 

As linhas 100 a 130 inicializam as va- 
riáveis e matrizes usadas no jogo. A li- 
nha 100 cuida das matrizes. B(x,y) re- 
presenta o tabuleiro; os valores arma- 
zenados em cada elemento representam 
o status do quadrado correspondente no 
tabuleiro. Se o valor for 0, o quadrado 
está vazio; se for 1, uma peça pertencen- 
te ao jogador ocupa aquela posição; e 
se for 2, a posição está ocupada por uma 
peça do computador. C(x) é usado pa- 
ra verificar as jogadas do jogador. 

































D(x,y) contém os deslocamentos X e Y 
nas oito direções possíveis da jogada. 
X(x), Y(x) e N(x) são usadas nos cálcu- 
los para a jogada do computador 

A linha 110 especifica as posições ini- 
ciais no tabuleiro. Cada jogador tem 
duas peças posicionadas em seu centro, 
no começo da disputa. As direções pos- 
síveis, partindo dessa posição, são defi- 
nidas pela linha DATA 130. Cada va- 
lor representa um deslocamento X ou Y, 
com os números negativos indicando es- 
querda ou topo do tabuleiro, respecti- 
vamente. 

Na versão para os microcomputado- 
res Spectrum, as linhas 140 e 150 geram 
UDG para o quadrado vazio e para as 
peças. A linha 140 procede à leitura dos 
dados apresentados pela linha 150 e cria 
os UDG A, B e C. 


























































500 GOSUB 1000 

505 IF CS+PS=64 THEN GOTO 
4000 

510 LET EG=0: 1F CP=1 
GOSUB 2000: GOSUB 1000: 
1 THEN GOTO 4000 

515 IF CS+P$=64 THEN GOTO 
4000 

520 IF CP=2 THEN GOSUB 3000 
530 GOTO 500 


147%! 


500 GOSUB 1000 


ТНЕМ 
IF EG= 


505 IF CS * PS - 64 THEN 4000 
510 EG = 0: IF CP = 1 THEN GOS 
UB 2000: GOSUB 1000: 1F EG = 1 
THEN 4000 

515 IF CS + PS = 64 THEN 4000 
520 IF CP = 2 THEN GOSUB 3000 
530 GOTO 500 


nu 


500 GOSUB 1000 

505 IF CS*PS-64 THEN 4000 

510 EG-0:IF CP-1 THEN GOSUB 200 
0:GOSUB 1000:LINE(112,150)- (144 
,180),1,BF:IF EG-1 THEN 4000 
515 IF CS*PS-64 THEN 4000 

520 IF CP-2 THEN GOSUB 3000 
530 coTo 500 





500 GOSUB 1000 

505 IF CS+PS=64 THEN 4000 

510 EG-0:IF CP-1 THEN GOSUB 200 
0:GOSUB 1000:COLOR l:LINE(118,1 
50)-(150,180),PSET,BF:IF EG-1 T 
HEN 4000 

515 IF CS+PS=64 THEN 4000 

520 IF CP=2 THEN GOSUB 3000 

530 GOTO 500 


O lago principal do programa está en- 
tre as linhas 500 e 530. A linha 500 cha- 
ma a sub-rotina que desenha o tabulei- 
ro. As linhas 505 e 515 verificam se o 
tabuleiro está cheio, ou seja, se a soma 
dos pontos do jogador, PS, com os do 
computador, CS, resulta em 64 (núme- 
ro de.posições do tabuleiro). 2%) 

А linha 510 ajusta o indicador de fi- 
nal de jogo (EG) para 0 e chama a roti- 
na responsável pela vez do jogador, se- 
guida pela sub-rotina do tabuleiro. Se 
depois da execução dessas sub-rotinas o 
indicador EG for setado (valor 1), o pro- 
grama saltará para a sub-rotina de final 
de jogo, que começa na linha 4000. A 
Jogada do computador é feita pela linha 











520, caso CP seja igual a 2 (sub-rotina 
3000). 


DESENHANDO O TABULEIRO 


1000 CLS PRINT TAB 11;"123456 
78": LET PS=0: LET CS=0 

1010 FOR F=1 TO 8: PRINT TAB 9; 
F;” ";: FOR С=1 TO 8 

1020 IF B(F,G)=0 THEN PRINT СН 
R$ 144; 

2930 IF B(F,G)=1 THEN PRINT T 
NK 2;CHR$ 145;: LET PS=PS+1 
1040 IF B(F,G)=2 THEN PRINT T 
NK 2;CHR$ 146;: LET CS-CS*1 


1050 NEXT G: PRINT : NEXT F 
1052 LET P$-"PONTOS": IF PS-1 T 
HEN LET P$-"PONTO" 

1054 LET Q$-"PONTOS": IF CS-1 T 
HEN LET QS="PONTO” 

1060 PRINT '' 


INK 2;" VOCE -";T 
AB 20;"COMPUTADOR-": PRINT " "; 
PS;" ";PS;TAB 20;CS;" ";05 

1070 RETURN 


15) 








1000 НОМЕ РВІМТ ТАВ( 18); "1 

2345678":PS = 0:CS = 0: PRINT 

1010 FOR F = 1 TO 8: PRINT TA 

B( 16) ;F;" ";: FOR G - 1 TO 8 

1015 IF B(F,G) < > 1 AND B(F, 

С) < > 2 THEN B(F,G) = 0 

1020 IF B(F,G) = O THEN PRINT 
"+"; 

1030 IF B(F,G) = 1 THEN PRINT 
CHRS (48);:PS = PS + 1 

1040 IF B(F,G) = 2 THEN INVER 

SE : PRINT " ";: NORMAL :CS = C 

8*1 

1050 NEXT G: PRINT : NEXT F 

1052 P1$ = ” PONTOS”: IF PS = 1 
THEN P1$ = ” PONTO” 

1054 Р25 = ” PONTOS”: IF CS = 1 


THEN P2$ - " PONTO" 

1060 PRINT PRINT "JOGADOR * 
0"; TAB( 25);"COMPUTADOR * ";: 
INVERSE PRINT " ": NORMAL : P 
RINT PS;P1$; TAB( 25);CS;P2S 
1070 RETURN 


nu 


1000 PS-0:CS-0 

1010 FOR F=1T08:FOR G=1T08 

1030 IF B(F,G)=1 THEN LINE((G-1 
)*16+64, (F-1)*16+12)- (G*16+64,F 
*16*12),15,BF:PS-PS*1 

1040 IF B(F,G)-2 THEN LINE((G-1 
)*16*64, (F-1) *16*12) - (G*16*64,F 
*16+12),1,BF:CS=CS+1 

1050 NEXTG,F 

1060 DRAW"BM10,90;Cl":AS-"VOCE" 
*GOSUB9300 : DRAW"BM200,90" :AS-"C 
OMPUT" : GOSUB9300 

1063 LINE(20,110)- (28,118) ,15,B 





F:LINE(220,110)-(228,118),1,BF 
1065 LINE (5,60)-(42,80),1,BF:LI 
NE (205,60)- (242,80),1,BF « 
1066 DRAW"BM12,62;816;Cl5":AS-M 
IDS(STRS$ (PS) , 2) : GOSUB9300:DRAW" 
BM212,62":A$-MIDS (STRS$ (CS) ,2) :G 
OSUB9300 : DRAW” S8” 

1070 RETURN 

1100 CLS: FORX=0TO7:DRAW"BM"+STR 
S(X*16+70)+",0;S8"+NUS (X+1) :NEX 
TX 

1110 LINE(64,12)-(192,140),2,BF 
1120 FORX-0TOB:LINE(X*16*64,12) 
7(X*16*64,140) , 1: NEXT 

1130 FORY-0TOB:LINE(64,Y*16*12) 
-(192,Y*16412) , 1: NEXT 

1140 FORY-0TO7:DRAW"CI5SBBM54," 
+STRS (Y*16+14)+NUS (Y+1 
1150 RETURN 











1000 PS=0:CS=0 

1010 FOR F=1 TO 8:FOR G=1 TO 8 

1030 IF B(F,G)=1 THEN PAINT(G*1 

6+54,F*16),1,3:PS=PS+1 

1040 IF B(F,G)=2 THEN PAINT(G*1 

6+54,F*16) ,4,3:CS=CS+1 

1050 NEXT G,F 

1060 DRAW"BM0,150;C2”:AS=" VOCE 
":GOSUB 9300:DRAW"BM186,150^": 

AS-"COMPUT" :GOSUB'9300 

1063 LINE(62,150)- (70,158) , PSET 

+B:LINE (246,150)- (256,158) ,PSET 

B 

1064 PAINT(248,152),4,2 

1065 COLOR 1:LINE(0,60)- (32,80) 

,PSET,BF:LINE (216,60) - (248,80), 

PSET,BF 

1066 DRAW"BMO,60;S16;C4”:AS=MID 

S(STRS(PS),2):GOSUB 9300:DRAW"B 

M216,60":AS-MID$ (STR$ (CS) , 2) :GO 

SUB 9300:DRAW"S8" 

1070 RETURN 

1100 PCLS1:COLOR2:FORX-0 TO 7:D 

RAW"BM"*STR$ (X*16*70) *",0; S8" *N 

U$ (X*1) :NEXT X 

1110 LINE (64,12)- (192,140) ,PSET 

,BF:COLOR 3 

1120 FOR X=0 TO B:LINE(X*16+64, 

12)- (X*16+64,140) ,PSET:NEXT 

1130 FOR Y=0 TO B:LINE(64,Y*16+ 

12)-(192,Y*16+12) ,PSET:NEXT 

1140 FOR Y=0 TO 7:DRAW"C2SBBM54 

+"+STRS (Y*16+14) +NUS (Y+1) : NEXT 

1150 RETURN 


А sub-rotina que tem início na linha 
1000 desenha o tabuleiro. Primeiro, lim- 
pa a tela, imprime (ou desenha, no ca- 
so dos microcomputadores das linhas 
MSX e TRS-Color) os números das co- 
lunas e zera os dois placares. 

O laço FOR...NEXT que fica entre 
as linhas 1010 e 1050 do programa de- 
senha o tabuleiro na tela, linha por li- 
nha. À medida que as peças são mos- 
tradas, incrementa-se o placar. 

As linhas 1052 e 1054 melhoram a 
“gramática” do placar, definindo se a 
palavra PONTO será usada no singular 
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ou no plural. A linha 1060, por sua vez, 
mostra o placar para o jogador. 

No micro TRS-Color e no MSX, as 
linhas 1100 a 1150 constituem coman- 
dos extras de alta resolucào para o de- 
senho do tabuleiro. 


A VE 





2000 PRINT AT 14,0;"FACA O MOVI 


2000 LINE(0,182)-(255,191),1,BF 
:LINE (112,150) - (144,180) , 1, BF:D 
RAW"C15;BM10,182":A$-"SUA JOGAD 
A LINHA E COLUNA” :GOSUB9300 
2001 IS=INKEYS:IFIS<"0” OR IS>” 
9"THEN2001 

2002 X-VAL (I$) :DRAW"BM114,154;8 
16;C15"*NU$ (X) 

2003 IS-INKEYS:IFISC"0" OR I$5" 
9"THEN2003 

2004 Y=VAL (15) :DRAWNUS (Y)+"S8" 
2005 TFX=0 THEN EG=1:RETURN 





2000 COLOR 1:LINE(0,182)-(255,1 
91),PSET,BF:LINE(118,150)-(150, 
180), PSET,BF:DRAW"C3;BMO,182":A 
S="PARA ONDE LINHA E COLUNA” 
:GOSUB 9300: SOUND 100,1 
2001 IS=INKEYS:IF IS<"0” 
"9" THEN 2001 

2002 X-VAL (IS) :DRAW"BM118,150;S 
16;C4"*NU$ (X) 

2003 IS*INKEYS:IF I$«"0" 
"9" THEN 2003 

2004 Y-VAL(IS):DRAW NUS(Y)*"SB8" 


OR I$» 


OR I$» 


MENTO (LINHA,COLUNA)": INPUT X, 2006 IFX-9 THEN CP=2:RETURN 2005 IF X=0 THEN EG=1:RETURN 

Y 2010 ІҒХ<1 ОН X>8 OR Y<]1 OR Y>8 2006 IF X=9 THEN CP=2:RETURN 
2005 IF X=0 THEN LET EG=1: RET THEN 2000 2010 IF X<1 OR X>8 OR Y<1 OR Y> 
URN 2020 IF B(X,Y)=0 THEN 2070 8 THEN 2000 

2006 IF X=9 THEN LET CP-2: RET 2040 LINE(0,182)-(255,191),1,BF 2020 IF B(X,Y)*0 THEN 2070 

URN :DRAW"SBCISBM50,182":AS-"QUADRA 2240 COLOR 1:LINE (0,182)-(255, 
2010 IF XX1 OR X28 OR YX1 OR Y? po ocUPADO":GOSUB9300:FORF-1TO9  191),PSET,BF:DRAW"SB8C4BMO, 182" : 
8 THEN GOTO 2000 00:NEXTF AS="VOCE NAO PODE IR PARA AI":G 
2020 IF B(X,Y)=0 THEN GOTO 207 2050 GOTO 2000 OSUB 9300:FOR F=1 TO 900:NEXT F 
0 2070 NF=0:FORF=1T08:CF=0:IFX+D( 2050 GOTO 2000 


2040 PRINT AT 17,0;” VOCE NAO P 








š F,1)=0 OR X+D(F,1)=9 THEN 2075 2070 NF=0:FOR F=1 TO B:CF-0:IF 
ODE IR PARA UMA CASA OCUPADA!” 2071 IFY+D(F,2)=0 OR Y+D(F,2)=9 X+D(F,1)=0 OR X+D(F,1)=9 THEN 2 
FOR F=1 TO 500: NEXT F THEN 2075 075 
2050 PRINT AT 17,0i* , 2072 IF B(X+D(F,1),Y+D(F,2))=2 
" — THEN CF-1:NF-1 

: GOTO 2000 2075 C(F)-0:IFCF-1 THEN C(F)-F 
2070 LET NF-0: FOR F-1 TO B: LE 2980 NEXTF f 
тс TF X+D(F,1)=0 OR X+D(F, 
1)=9 THEN GOTO 2075 
2071 IF Y+D(F,2)=0 OR Y+D(F,2)= 
9 THEN GOTO 2075 
2072 IF B(X*D(F,1),Y*D(F,2))-2 
THEN ГЕТ СЕ=1: LET NF=1 
2075 LET C(F)=0: TF CF=1 THEN 
LET C(F)= 
2080 NEXT F 
2090 STOP 
2000 УТАВ (15): INPUT "QUAL 1 
SUA JOGADA (LINHA,COLUNA) ? "; 
Ri 
2005 IF X= 0 THEN EG = 1: RET 
URN 
2006 IF X= 9 THEN CP = 2: RET 
URN 
2010 IF (X < 1 OR X > 8) OR (Y 
< 1 OR Y > 8) THEN 2000 
2020 IF B(X,Y) = 0 THEN 2070 
2040 УТАВ (17): PRINT "ESTE LU 
GAR JA' ESTA' OCUPADO": FOR F - 
0 TO 1500: NEXT 
2050 VTAB (17): PRINT " 

": GOTO 20 
00 
2070 МЕ - 0: FOR F = 1 TO 8:CF 
= 0: IF X + D(F,1) = 90R X + D 
(F,1) = 0 THEN 2075 
2071 IF Y + D(F,2) = 9 OR Y + 
D(F,2) =" 0 THEN 2075 
2072 IF B(X * D(F,1),Y * D(F,2 
)) = 2 THEN СЕ = 1:МЕ = 1 
2075 C(F) = 0: IF CF = 1 THEN C 


(F) 
2080 
2090 


-F 
NEXT F 
STOP 




















































2071 IF Y+D(F,2)=0 OR Y+D(F,2)= 
9 THEN 2075 

2072 IF B(X+D(F,1),Y+D(F,2))=2 
THEN CF=1:NF=1 

2075 C(F)=0:IF CF=1 THEN C(F)=F 
2080 NEXT F 


Sua jogada está entre as linhas 2000 
e 2270, mas, por enquanto, o programa 
vai somente até a linha 2090 (2080, no 
MSX e no TRS-Color). 

O programa obtém as coordenadas X 
e Y do jogador na linha 2000. A linha 
2005 verifica se X é zero; se for, o indi- 
cador de fim de jogo é setado. 

A linha 2010 verifica se houve um 
eventual erro de entrada das coordena- 
das do jogador; se houve, volta para a 
linha 2000. O programa checa, entáo, 
o quadrado escolhido, para se certificar 
de que está vazio, e salta para a linha 
2070. Caso o quadrado já esteja ocupa- 
do por outra pega, a linha 2040 impri- 
me uma mensagem de erro. 

As linhas finais desta parte do pro- 
grama (2070 a 2075) verificam se a pega 
em questáo está ou náo próxima de uma 
das pegas do computador. 


|с [езе ; 


SNE 


ROTINA PARA DESENHAR LETRAS 


Para que possamos escrever na tela 
de alta resolugáo do MSX e do TRS- 
Color, precisaremos acrescentar esta ro- 
tina. Ela é bem semelhante á que foi des- 
crita no artigo da página 232 


9100 DATA BR4,ND4R3D2NL3ND2BE2, 
ND4R3DGNL2FDNL 58U4BR2 , NR3D4R3BU 
4BR2,ND4R2FD2GL2BE4BR , NR3D2NR2D 
2R3BU4BR2 

9110 DATA NR3D2NR2D2BE4BR,NR3D4 
R3U2LBE2BR,D4BR3U2NL 3U2BR2,ND4B 
R2,BD4REU3L2R3BR2,D2ND2NF2E2BR2 
9120 DATA D4R3BU4BR2,ND4FREND4B 
R2,ND4F 3DU4BR2 , NR3D4R3UA4BR2, ND4 
R3D2NL3BE2, NR3D4R3NHU4BR2 

9130 DATA ND4R3D2L2F2BU4BR2, BD4 
R3U2L3U2R3BR2 , RND4RBR2 , DAR2U4BR 
2,D3FEU3BR2,D4EFU4BR2 

9140 DATA DF2DBL2UE2UBR2,DFND2E 
UBR2,R3G3DR3BU4BR2 

9150 DATA NR2D4R2U4BR2 ,BDEND4BR 
2,R2D2L2D2R2BU4BR2,NR2BD2NR2BD2 






























ade 


A 






Per 


R2U4BR2,D2R2D2U4BR2 , NR2D2R2D2L2 
BE4,D4R2U2L2BE2BR2 , R2ND4BR2,NR2 
D4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 
9200 DIM LES(26) 

9210 FOR K=0 TO 26:READ LES(K) 
NEXT 
9220 
EXT 
9230 
9300 


FOR K=0 TO 9:READ NUS(K):N 


RETURN 

FOR K=1 TO LEN(AS) 

9310 BS=MIDS(AS,K,1) 

9320 IF B$>="0" AND BS<="9" THE 
N DRAW NUS (VAL (B$)):GOTO 9350 
9330 IF B$=" " THEN N=0 ELSE N= 
ASC(B$)-64 

9340 DRAW LES(N) 

9350 NEXT 

9360 RETURN 


nau 


9100 DATA BR4,ND4R3D2NL3ND2BE2, 
ND4R3DGNL 2FDNL 3BU4BR2 , NR3D4R3BU 
4BR2,ND4R2FDZ2GL2BE4BR , NR3D2NR2D 
2R3BU4BR2 

9110 DATA NR3D2NR2D2BE4BR,NR3D4 
R3U2LBE2BR , DABR3UZNL 3U2BR2 , ND4B 
R2,BD4REU3L2R3BR2 , D2ND2NF 2E2BR2 
9120 DATA D4R3BU4BR2,ND4FREND4B 
R2,ND4F 3DU4BR2 , NR3D4R3U4BRZ , ND4 
R3D2NL 3BE2 , NR3D4R3NHU4BR2 

9130 DATA ND4R3D2L2F 2BU4BR2,BD4 
R3U2L3U2R3BR2,RND4RBR2 , D4R2U4BR 
2,D3FEU3BR2,D4EFU4BR2 

9140 DATA DF2DBL2UE2UBR2,DFND2E 
UBR2,R3G3DR3BU4BR2 

9150 DATA NR2D4R2U4BR2,BDEND4BR 
2,R2D2L2D2R2BU4BR2,NR2BD2NR2BD2 
R2U4BR2 , D2R2D2U4BR2 , NR2D2R2D2L2 
BE4,D4R2U2L2BE2BR2,R2ND4BR2,NR2 
D4R2U2NL2U2BR2,NR2D2R2D2U4BR2 





9200 DIM L 27) 

9210 FOR TO 26:READ LES(K) 
NEXT 

9220 FOR К-0 TO 9:READ NUS (K):N 
EXT 

9230 RETURN 

9300 FOR K=1 TO LEN(AS) 

9310 BS=MIDS(AS,K,1) 

9320 IF BS>="0" AND BS<="9" THE 


N DRAW NUS (VAL (B$)) :GOTO 9350 
9330 IF B$-" " THEN N-0 ELSE N* 
ASC(B$)-64 

9340 DRAW LES(N) 

9350 NEXT 

9360 RETURN 


2000000 2PGODGOMMAQUNA аж 00000000000 
AS INSTRUCOES 













MAIS TABELAS DE DADOS 
EM ASCII 
ESCREVA NA TELA 





DO JOGO 





Ш COMO CHAMAR SUB-ROTINAS 
DA ROM 











Impressas na tela, as informações 
contidas no programa deste 
artigo permitirão que ajudemos o 
infortunado Willie em sua 
incansável busca do lanche roubado. 


A primeira coisa a fazer é colocar o tí- 
tulo na tela. Em seguida, são fornecidas 
as instruções. Como estamos programan- 
do e conhecemos cada detalhe envolvido, 
às vezes esquecemos que outras pessoas 
não têm a menor idéia dos objetivos do 
jogo e não sabem como jogar. Assim, é 
necessário colocar na tela toda informa- 
ção relevante, de maneira que o usuário 
não seja obrigado a parar o jogo a cada 
momento para ler o folheto de instruções. 








As informações devem ser bem claras e 
objetivas. Ao mesmo tempo, é convenien- 
te “temperar” o texto com algum enre- 
do, já que um videogame deve apelar à 
imaginação do jogador e não simplesmen- 
te testar seus reflexos. 


Mais uma vez, utilizaremos um pro- 
grama em BASIC para colocar as instru- 
ções — letra por letra — na memória, 
criando uma tabela de códigos ASCII. 

Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o número de 
códigos de caracteres transferidos para a 
memória seja exato — afinal, eles vão ser 
lidos pelo programa em código. Como o 
leitor pode ter problemas para descobrir 








o número de espaços em cada linha, va- 
mos conferir: no final da linha 100, há 
um espaço; no final da linha 120, três; na 
140, três; na 160, catorze; na 180, um; na 
240, dois; na 300, três, e na 320, 26 espa- 
ços em branco. Nas linhas 330 e 340 há 
quatro espaços entre as teclas e o hífen, 
e um espaço entre o hífen e a função da 
tecla. No final da linha 330 temos deze- 
nove espaços e no final da 340, dezenove 
espaços também. Todos os demais claros 
na listagem correspondem a um caracte- 
re de espaço apenas. Outra maneira de 
conferir os dados consiste em contar exa- 
tamente 32 caracteres em cada linha DA- 
TA, exceto na 320, que tem 34 caracteres. 

Antes de passar à execução, proteja o 
topo da memória com CLEAR 57434. 

Quando executarmos o programa, se- 
rá criada uma tabela com instruções. Ao 











MEA a TEN 





final do programa, o lago FOR...NEXT 
entre as linhas 500 e 520 projeta na tela 
uma imagem da porção da memória que 
contém a tabela. 


10 LET x=57480 
20 FOR n=1 TO 16 








30 READ a$: FOR o=1 TO LEN aS 
POKE x,CODE (a$(o TO 0)) 
LET x=x+1: NEXT o 

40 NEXT n 

100 DATA " Apos um pequeno pas 
seio,Willie " 

120 DATA "volta e descobre que 
um bando 

140 DATA "de cabritos espalhou 
todo seu 

160 DATA "lanche na encosta 
180 DATA "Agora ele deve subir 
ao topo da ” 

200 DATA "montanha e recuperar 
suas coisas 

220 DATA "enfrentando uma aval 


anche, cobras” 
240 DATA "e podendo ate cair n 
um buraco. ^" 
260 DATA "Para piorar a situac 
ao a mare k 


280 DATA "esta subindo e ele c 
orre o risco" 

290 DATA "de se afogar. Para a 
judar Willie” 

300 DATA "leia as instrucoes e 
aperte a 


320 DATA "tecla 'S' 


330 DATA "N Correr 
340 DATA "M - Saltar 
360 DATA " ou Ambos” 
500 FOR n=57435 TO 58000 
510 PRINT CHR$ PEEK n; 
520 NEXT n 


Os dados que este programa coloca na 
memória usando POKE sáo utilizados pe- 
la seguinte rotina em Assembly: 


10 REM org 58104 
20 REM call cl 
30 REM ld 1x,57480 
40 REM ld hl,32 
50 REM 1d a,7 
60 REM 1d b,255 
70 REM call me 
80 REM ld b,138 
90 REM call me 
100 REM 1d de,39 
110 REM add hl,de 
120 REM 1d b,100 
130 REM 1d a,70 
140 REM call me 
150 REM ktt ld a,253 
160 REM in a,254 
170 REM bit l,a 
180 REM 3r nz,ktt 
190 REM ret 

200 REM org 58192 
210 REM cl * 

220 REM org 58155 


230 REM me * 


Esses dois programas — ou o seu pro- 
duto, criado após a execucáo ou a mon- 
tagem pelo Assembler — devem ser gra- 
vados da mesma maneira que a primei- 
rar parte do videogame Avalanche (veja 
artigo publicado à página 748). 

Para que tal rotina funcione adequa- 
damente, essa parte do jogo e a tabela 
criada pelo primeiro programa BASIC 
também devem estar na memória. Isso 
exige que elas sejam gravadas em códi- 
go; caso contrário, terão de ser monta- 
das novamente. 

Para gravar e ler código de máquina 
em fita cassete — o que inclui os códigos 
da tabela ASCII —, o usuário do Spec- 
trum tem à sua disposição comandos SA- 
VE e LOAD especiais. 


Para gravar os códigos de uma porção 
da memória, digite: 


SAVE “nome” CODE endereço 
al,n9 de bytes 


inici 


Para recuperar os mesmos códigos da 
fita cassete, use: 


LOAD 
al 


O endereço inicial pode ser omitido se 
for igual ao do momento da gravação. Os 
códigos das diversas partes do videoga- 
me Avalanche também devem ser grava- 
dos; caso isso não aconteça, o usuário 
gastará cada vez mais tempo na monta- 
gem, adicionando novas rotinas e tabe- 
las. Os endereços iniciais e finais devem 
ser anotados. O próprio Assembler dá es- 
sa informação durante a montagem. 


“nome” CODE endereço inici 

















| 











| ESCREVA AS INSTRUÇÕES NA TELA 


Também é bom registrar os endereços dos 
rótulos, para utilizá-los em instruções com 
asteriscos (cálculos de saltos e desvios). 


A rotina cl — que está na primeira 
parte do programa — é chamada para fa- 
zer a limpeza da tela. Já a rotina me será 
usada novamente para escrevermos na te- 
la; para isso, temos que colocar valores 
adequados em certos registros, que con- 
trolam as características do texto a ser im- 
presso. 

Para comegar, alocamos no registro 
IX o endereço inicial da nova tabela de 
códigos ASCII criada pelo programa BA- 
SIC. A posição da tela em que começa- 


remos a escrever deve ser colocada no par 
de registros HL; a cor das letras, em A, 
e o comprimento do texto, em B. Para 
imprimir os vários segmentos do texto, é 
preciso chamar diversas vezes a rotina me. 
Antes de cada chamada, porém, devem 
ser ribuídos os parâmetros relaciona- 
dos — posição inicial na tela e número 
e cor das letras — nos registros ade- 
quados. 

Quando chamarmos me pela primeira 
vez, B estará contendo o valor 255, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 138. 
A rotina deve ser chamada duas vezes 
porque 255 é o maior número que o regis- 
tro B, de oito bits, pode abrigar. 138 é 
o restante do texto, que não pode ser im- 
presso de uma só vez por me. Não é pre- 
ciso definir novamente a posição de im- 
pressão na tela — HL —, já que a segun- 
da parte dos dados segue imediatamente 
a primeira e o conteúdo desse par é atua- 
lizado pela própria rotina de impressáo 
(veja a rotina me na primeira parte do 
programa). 

Quando quisermos imprimir a tercei- 
ra parte do texto, contudo, precisaremos 
usar uma nova posição na tela. Isto é feito 
para criar um espaço entre o texto inicial 
— que conta os azares de Willie — e as 
instruções sobre o uso do teclado, que 
orientam sobre quais teclas apertar para 
saltar e/ou correr. Existem duas manei- 
ras de criar esse espaço: colocando uma 
série de códigos de espaço na tabela AS- 
CII, ou dando um novo valor a HL. Pro- 
curamos ilustrar as duas técnicas no pro- 
grama. Se consultarmos a listagem do 
programa BASIC que criou a tabela de 
dados, veremos que existem 26 espaços 
em branco na linha 320 (naturalmente eles 
foram transferidos para a tabela). Olhan- 
do a listagem Assembly, verificaremos 
que o número 39 foi colocado em DE pe- 
lo comando Id de,39. Depois disso, o con- 
teúdo de DE foi somado ao de HL. O par 
HL funciona como um acumulador de 
dezesseis bits, de forma que o resultado 
da operação permanece em HL, que é o 
local apropriado para o endereço de im- 
pressão na tela quando chamamos nova- 
mente a rotina me. 

O restante do texto tem cem caracte- 
res de comprimento e é impresso na cor 
amarelo brilhante — código 70 — e não 
mais em branco — código de cor 7 —, 
como as linhas iniciais. 


ESPERE PELO0 TIRO DE LARGAI 


As instruçóes permanecem no vídeo 
até que pressionemos a tecla S, dando iní- 
cio ao jogo propriamente dito. Para tor- 











nar isso possível, usamos uma rotina que 
detecta mudangas no teclado por meio do 
comando in. 

Esse comando permite o que chama- 
mos de *'varredura do teclado”, de um 
modo idéntico ao usado no programa 
Trace, do artigo Rastreamento no Spec- 
trum (página 381). Naquela ocasiáo, que- 
ríamos detectar as teclas <BREAK> e 
<SYMBOL SHIFT>; agora, nossas 
atenções estão na tecla S. É o valor colo- 
cado em A, antes da execução do coman- 
do in, que determina a porção do tecla- 
do a ser verificada. Assim, Id a,253 faz 
com que a linha in a,254 verifique o con- 
junto de teclas ao qual S pertence, 

O valor recebido através da porta 254 
é colocado em A. Se o bit 1 desse núme- 
ro estiver “ligado” é porque S foi pres- 
sionada. Quando isso acontece, o resul- 
tado da operação bit 1,a é zero, ativan- 
do o indicador de zero. 

O processador ficará girando, preso no 
laço rotulado como ktt, até que a tecla 
S seja pressionada, ativando o indicador 
de zero e evitando o salto jr nz, ktt, já 
que a condição nz + resultado da última 
operação não é zero — não foi satisfei- 
ta. Normalmente, o programa prossegui- 
ria; por enquanto, porém, uma instrução 
ret provocará o retorno ao BASIC, ter- 
minando assim esta segunda parte de 
Avalanche. 

Note que os rótulos correspondentes a 
rotinas montadas em outras listagens de- 
vem ter seu endereço definido por org, se- 
guido do rótulo e de um asterisco. Esse 
procedimento permite ao Assembler cal- 
cular os saltos para tais rótulos (cl e me, 
neste caso). O asterisco impede que a po- 
sição de memória correspondente seja al- 
terada. 

Se chamarmos o programa tal como 
foi estruturado até aqui, ele escreverá a 
tela de instruções logo após a impressão 
da tela do título, e aguardará que pres- 
sionemos a tecla S. A instrução ret do fi- 
nal do primeiro programa foi apagada pe- 
la montagem da segunda parte, de modo 
a fazer das duas listagens um todo único 
e coerente. 


Assim como no exemplo precedente, 
utilizaremos aqui um programa escrito em 
BASIC para colocar — letra por letra — 
as instruções na memória, criando uma 
tabela de códigos ASCII. Adicione as 
próximas linhas ao programa do artigo 
anterior. Antes de executá-lo, lembre-se 
de proteger o topo da memória com 
CLEAR 200, 17999. 


20 FOR I=1 TO 4 
70 NEXT A,I 
80 DATA "avalanchecriacao: a.do 























e programa: s. kellaway e 9. he 








dley” 

85 DATA " depois de um pequeno 
passeio willie obre que 
cabritos monteses alhara 

m todo seu lanche pela encos 
ta. agora ele tem de 


subir ao topo ” 

90 DATA " da montanha pegar sua 
s coisas. no caminho ele sera 
ameacado por pedras, cobras 
e buracos. para piorar a situ 
acao, a mare esta subindo, pod 
endo afoga-lo. para ajudar will 
ie leia as instrucoes e ap 
erte 's' para jogar. ” 

100 DATA "m - corrern - saltarm 
n - ambos" 


Para que a tabela sirva aos nossos pro- 
pósitos, é importante que o nümero de 
códigos de caracteres transferidos para a 
memória seja exato (afinal, eles vào ser 
lidos pelo programa em código). Como 
o leitor pode ter problemas para desco- 
brir o número de espagos em cada linha, 
é conveniente conferi-los: no final da li- 
nha 85, aparecem conjuntos de espagos 
com os seguintes tamanhos: 2, 1, 4, 1, 4, 
4 e 12, segundo a ordem. Na linha 90, a 
seqüéncia é a seguinte: 1, 2, 4, 3, 2, 1, 
6, 4 e2. Na linha 100, os espaços têm ape- 
nas um caractere em branco. 

A seguir, apresentamos o programa 
em código que utiliza a tabela ASCII cria- 
da pela listagem anterior. Para montá-lo 
na memória, recorra ao Assembler de ZN- 
PUT. Antes disso, porém, use os coman- 
dos POKE que aumentam a memória dis- 
ponível e proteja o topo da memória com 
CLEAR 200,18999, 


10 ORG 19054 
20 LDX $1024 
30 LDY 417058 


40 CLRB 
50 JSR LPRINT 
60 LDB $137 


70 JSR LPRINT 

BO LEAX 24,X 

90 LDB $10 

JSR LPRINT 
LEAX 22,X 

LDB $10 

JSR LPRINT 
LEAX 22,X 
LDB $10 

JSR LPRINT 
KEY JSR 41409 
CMPA 483 

BNE KEY 

200 RTS 

210 LPRINT EQU 19174 


Esses dois programas — ou o seu pro- 
duto, criado depois de ter sido executa- 
do (ou montado) pelo Assembler — de- 
vem ser gravados da mesma maneira que 
a primeira parte do videogame Avalan- 
che (os endereços iniciais e finais devem 
ser calculados e usados no comando de 


gravação dos códigos). Para que a rotina 
acima funcione adequadamente, a primei- 
ra parte do jogo e a tabela criada pelo 
BASIC completo devem estar na memó- 
ria também. 

Faça a gravação dos códigos corres- 
pondentes às tabelas e aos programas, 
empregando o comando CSAVEM, que 
tem a seguinte sintaxe: 


CSAVEM "nome” endereço inicial, 
endereço final 


ESCREVA AS INSTRUCÓES NA TELA 


Esse programa usa a mesma sub-rotina 
LPRINT que a rotina da página do títu- 
lo empregou para escrever na tela. Note 
que a tabela ASCII criada pelo progra- 
ma BASIC é uma continuação da que 
continha os códigos da página do título, 
de forma que o programa está utilizando 
a mesma tabela ASCII, 

Toda vez que chamarmos LPRINT, 
devemos colocar nos registros apropria- 
dos os parámetros do texto a ser impres- 
so. Assim, X deve conter a posição da tela 
onde desejamos iniciar a impressão, B, o 
comprimento do texto, e Y, a posição do 
início do texto na tabela. 

Se olharmos para a listagem Assembly 
da sub-rotina LPRINT — apresentada na 
primeira parte —, veremos que o regis- 
tro Y tem seu valor aumentado na medi- 
da em que a tabela ASCII vai sendo *'li- 
да” pelo programa. Desse modo, o pro- 
grama principal não precisará corrigir o 
valor de Y toda vez que a rotina for cha- 
mada; na verdade, Y é aumentado, gra- 
dativamente, indicando sempre, linha 
após linha, o início da porção apropria- 
da da tabela. 

Definida a origem do programa, o en- 
dereço inicial da tela é colocado em X por 
LDX #1024 e o endereço inicial do tex- 
to das instruções é posicionado em Y por 
LDY #17060. A instrução CLRB limpa 
o conteúdo de B, sendo um modo rápi- 
do de colocar zero nesse registro. O va- 
lor zero funciona como se fosse 256; as- 
sim, quando a rotina LPRINT for cha- 
mada por JSR LPRINT, serão impressos 
256 caracteres. 

Ao chamarmos LPRINT pela primei- 
ra vez, B estará contendo o valor 256, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estará contendo 137. 
A rotina será chamada duas vezes, pois 
256 é o maior número que o registro B, 
de oito bits, pode conter. 138 é o resto 
do texto que não pode ser impresso todo 
de uma vez por LPRINT. 

As instruções LEAX somam valores 
adequados ao conteúdo de X para que a 
posição de impressão na tela correspon- 
da ao início da linha seguinte; é por isso 


que não há espaços entre as palavras que 
ficam no final e no início de linhas adja- 
centes. A sub-rotina LPRINT é chama- 
da então mais quatro vezes para escrever 
as linhas que orientam as funções das te- 
clas. A cada chamada, o valor de B é 
acertado por uma instrução LDB; o va- 
lor de X é ajustado por um LEAX (Y é 
acertado pela própria rotina LPRINT). 

A sub-rotina KEY aguarda que a te- 
cla S seja acionada para que o jogo te- 
nha início. Para verificar o teclado, © pro- 
grama utiliza uma sub-rotina da ROM. 
Assim, a instrução JSR 41409 salta para 
essa sub-rotina, que verifica qual tecla es- 
tá sendo pressionada. 

Se alguma tecla estiver sendo pressio- 
nada, o processador retornará da sub- 
rotina trazendo o código da tecla corres- 
pondente dentro do acumulador. A ins- 
trução CMPA #83 compara então o có- 
digo da letra S — 83 — com o conteúdo 
do registro A. Se S não tiver sido aciona- 
da, a condição de BNE KEY (“salta, se 
não for igual”) estará satisfeita e o mi- 
croprocessador será enviado novamente 
ao rótulo KEY. O processo se repetirá até 
que seja pressionada a tecla S. Nesse ca- 
so, a condição de BNE não estará satis- 
feita e o programa seguirá seu curso até 
ser interrompido por uma RET. O rótu- 
lo correspondente a LPRINT deve ter o 
endereço especificado por uma instrução 
EQU; assim, o Assembler poderá calcu- 
lar os saltos para aquela sub-rotina. 


A A | 


O Assembly listado a seguir cria a tela: 
de instruções ao jogador. Para fazer is- 
so, ele utiliza dados de uma tabela de có- 
digos ASCII criada por um programa 
BASIC; nele incluímos uma rotina de 
“varredura” do teclado, que aguarda que 
pressionemos a tecla S: 


10 org -12233 
20 1d de,0 

30 ld h1,-13958 
40 ld bc,960 

50 call 92 

60 ktt call 159 


70 cp 83 

80 jr nz,ktt 
90 ret 

100 end 


Para montar esse programa, utilize 
nosso Assembler. Grave o programa- 
fonte e o programa-objeto da mesma for- 
ma que na primeira parte do videogame. 

Como das vezes anteriores, precisare- 
mos de um BASIC para colocar na me- 
mória os códigos das letras que compõem 
a tela de instruções. Digite-o, mas não o 
execute ainda. 


10 SCREEN O:CLEAR 200,-14000:KE 
Y OFF 


20 FOR I-1 TO 22: READ A$: PRIN 
T TAB(1);AS$: NEXT 

10 FOR [=0 TO 959 

40 POKE -13958*1,UPEEK (ВАЗЕ (0) 
*1) 

50 NEXT 

60 CLS 

70 DEFUSR1=-12288 

80 A*USRI (0) 

90 CLS 

100 END 

200 DATA " Após um pequeno p 
asseio, Wilie" 

210 DATA "volta ao local onde p 


retendia fazer" 
220 DATA "seu pique-nique e des 
cobre que um" 


230 DATA "bando de cabritos mon 
teses espalhou" 

240 DATA "todo seu lanche na en 
costa." 

245 DATA 

250 DATA " Agora ele deve su 


bir ao topo da " 


260 DATA "montanha para recuper 
ar suas coisas, " 

270 DATA "enfrentando uma avala 
nche, cobras" 

280 DATA "venenosas e correndo 
o risco de cair” 

290 DATA "num buraco.” 

295 DATA 

300 DATA ” Para piorar a sit 
uação, a maré” 

310 DATA "está subindo e ele po 


de se afogar.” 

320 DATA "Se você quer ajudar W 
illie, leia as” 

330 DATA “instruções e pression 
е а tecla 'S'." 

335 DATA: 
340 DATA 
350 DATA " N 
Correr" 

360 DATA " M 
Saltar" 

370 DATA " 
Salto Diagonal" 





para 
para 


Ambos para um 


As linhas 70 e 80 tentam executar o 
programa do jogo como foi publicado até 
o momento. Se a primeira parte dele não 
estiver na memória ainda, a execução do 
comando da linha 80 vai apagar toda a 
memória. 

Esse programa utiliza o comando 
READ para obter as frases da tela de ins- 
trução nas linhas DATA do final da lis- 
tagem. Depois de escrita, a tela é total- 
mente transferida para a memória pelo la- 
ço entre as linhas 30 e 50. A tabela AS- 
CII é criada assim: o comando VPEEK 
obtém os códigos diretamente na memó- 
ria de vídeo e o comando POKE os colo- 
ca na RAM. 

Para que a tela mantenha a tabulação 
original é bom conferir: no início das li- 
nhas 200, 250 e 300, há quatro espaços 
em branco. Nas linhas 350 e 360, cada va- 


zio no texto contém cinco espaços. Uma 
vantagem dessa técnica de transferência 
da tela para a memória é que você pode 
criar sua própria tela de instruções se não 
estiver satisfeito com o aspecto da nossa. 


COMO MONTAR O PROGRAMA INTEIRO 


Eis algumas explicações adicionais so- 
bre como montar o programa. 

A primeira coisa a fazer é carregar o 
Assembler na memória. Depois de tomar 
as providências necessárias para proteger 
a memória na linha 5000, monte o 
programa-fonte do artigo anterior. Du- 
rante a montagem é interessante anotar 
o endereço inicial, o endereço final e os 
endereços dos rótulos. 

Terminada a montagem, a rotina em 
código estará na memória. Quem ainda 
não a gravou em fita deve fazê-lo por in- 
termédio do comando: 


BSAVE "CAS:AVAL1",-12288,-12233 


A seguir, o Assembly deve ser digita- 
do, gravado e montado (anote os ende- 
regos principais durante o processo de 
montagem). A rotina em código pode en- 
tào ser gravada da mesma maneira. 

Depois, digite NEW, apagando o As- 
sembler da memória, e carregue o BASIC 
que cria a tabela ASCII da tela-título, lis- 
tado no artigo anterior. Quem já gravou 
a tabela correspondente com o comando 
BSAVE pode carregá-la da fita com 
BLOAD, mas terá que proteger o topo 
da memória antes. Quem náo fez isso ain- 
da deve executar o programa. As linhas 
finais deste último testam a rotina em có- 
digo; com a sua execução, a página-título 
surge na tela; após uma pequena pausa, 
esta se enche de caracteres aleatórios. Is- 
so acontece porque a rotina tenta escre- 
ver a tela de instruções, mas a tabela ne- 
cessária não se encontra ainda na memó- 
ria. Para continuar, aperte a tecla S e lim- 
pe a tela. 

Finalmente, carregue o programa BA- 
SIC apresentado linhas atrás e execute-o. 
As linhas finais testam a rotina comple- 
ta, que escreve o título, provoca uma pau- 
sa, apaga a tela, escreve as instruções е 
aguarda que a tecla S seja pressionada. 
A tabela ASCII completa pode ser então 
gravada com: 


BSAVE "CAS:ASCII",-14000,-12998 


É aconselhável gravar os códigos das 
rotinas e tabelas usando o comando BSA- 
VE. Senáo, teremos que gastar um tem- 
po cada vez maior para a montagem. 
Após gravar os códigos, proteja a memó- 
ria, digitando a instrução. 


CLEAR 200,-14000 


(proteção feita antes pelos programas BA- 
SIC). Posicione a fita nas rotinas em có- 
digo e carregue-as com: 


BLOAD "CAS:" 


Finalmente, posicione a fita nos códi- 
gos da tabela ASCII e carregue-a usando 
o mesmo comando BLOAD. Para exe- 
cutar o programa, digite: 


DEFUSR=-12288:A = ОЗА (0) 


SCREVA NA TELA 


Esse programa recorre à mesma sub- 
rotina da ROM utilizada pela rotina da 
página do título para escrever na tela. A 
tabela ASCII criada pelo programa BA- 
SIC é uma continuação da que continha 
os códigos da página do título, de forma 
que o programa está utilizando a mesma 
tabela ASCII. 

Toda vez que chamarmos essa sub- 
rotina, devemos colocar nos registros 
apropriados os parâmetros do texto a ser 
impresso. Assim, DE deve conter a posi- 
ção da tela onde desejamos iniciar a im- 
pressão do texto; BC, o comprimento do 
texto; e HL, å posição do início do texto 
na tabela ASCII. 

A sub-rotina ktt aguarda que a tecla 
S seja pressionada para que o jogo come- 
ce. O programa verifica o teclado utili- 
zando uma sub-rotina da ROM. Assim, 
a instrução call 159 salta para essa sub- 
rotina, que espera até uma tecla ser pres- 
sionada. 

Se alguma tecla for pressionada, o pro- 
cessador retornará da sub-rotina trazen- 
do o código da tecla correspondente den- 
tro do acumulador. A instrugáo cp 83 
compara entáo o código da letra 2 — 83 
— com o conteúdo de A. Se S náo tiver 
sido pressionada, a condigáo do coman- 
do jr nz,ktt (“salta, se o último resulta- 
do não for zero”) estará satisfeita e o mi- 
croprocessador será novamente enviado 
para o rótulo ktt. O processo se repetirá 
até que seja pressionada a tecla S. Nesse 
caso, a condição de nz não será satisfeita 
е о programa prosseguirá seu curso, até 
encontrar uma instrução ret. 

Ao executarmos o programa, veremos 
aparecer um cursor no canto superior es- 
querdo da tela de instruções. Ele é colo- 
cado ali pela rotina da ROM que verifica 
o teclado. Para tirá-lo dessa posição, te- 
ríamos que escrever nossa própria rotina 
para detectar o toque na tecla S. Depois 
que a tecla for pressionada e o programa 
terminar, o texto permanecerá na tela. Sa- 
bemos que a rotina terminou porque sur- 
ge a mensagem “OK” no meio do texto. 

















ESCE... 


TUDO QUE SOBE, 


Um objeto lancado para o alto descreve 
uma curva parabólica. Isaac 


Newton (1642-1727) demonstrou que, se 


a altura de langamento for muito 
grande, o objeto cairá fora da Terra. 











Segundo Galileu Galilei (1564-1642), 
todo objeto lançado sobre a superfície 
da Terra sofre a ação de duas forças: a 
que o impulsiona para a frente (ou pa- 
ra o alto) e a que o atrai para o planeta 
(força de gravidade). A interação des- 
sas duas forças leva o corpo a descrever 
uma curva parabólica. O desenho desse 
tipo de trajetória torna-se muito simples 
quando se trabalha com um compu- 
tador. 

Um objeto lançado para cima, por 
exemplo, distancia-se — a princípio, ra- 
pidamente — das superfície da Terra 
sob a ação do impulso inicial, perden- 
do velocidade por efeito da gravidade. 
Este artigo mostra como programar e si- 
mular o movimento de projéteis. 

Muitos jogos de combate sáo am- 
bientados no vácuo do espago sideral 
porque lá se pode ignorar a ação da for- 
ça gravitacional e da resistência do ar no 
cálculo do movimento de naves e mís- 
seis. Isso náo quer dizer que náo exista 
nenhuma gravidade no espaço; existe, 
mas é tão pequena que pode ser despre- 
zada para efeitos práticos. 

Em contrapartida, batalhas simula- 
das na superfície terrestre têm que levar 
em conta a ação da gravidade e, fre- 
quentemente, a resistência do ar e o efei- 
to dos ventos. Além de jogos de guer- 
ra, podem surgir várias outras circuns- 
tâncias em que o conhecimento de co- 
mo se dá o movimento de projéteis seja 
essencial para um efeito realístico. En- 
tre elas estão muitos esportes e simula- 
ção de provas de atletismo, como lan- 
çamento de dardo e de disco, mergulho 
e todo o tipo de salto. 

Os projéteis citados (sejam pessoas 
ou objetos) têm uma coisa em comum: 
eles se movem segundo uma trajetória 
que pertence a um grupo de curvas co- 
nhetidas como parábolas. Escrever um 
programa para simular movimento em 
trajetória parabólica não é difícil, reque- 
rendo apenas a compreensão das forças 
que atuam sobre o objeto e o emprego 
de matemática elementar. 

Saber, por exemplo, que o movimen- 
to executado por uma bola ao ser chu- 
tada resulta da combinação de movi- 
mento em duas direções já fornece sub- 
sídios suficientes para resolver o proble- 
| ma da programação. Uma dessas dire- 


ções é paralela ao eixo horizontal ou ei- 
xo X de um sistema cartesiano. A outra 
é vertical, paralela ao eixo Y. Nesta li- 
ção, estabeleceremos como premissa que 
o objeto se move com velocidade cons- 
tante na direção horizontal. Na realida- 
de, o objeto seria desacelerado pela re- 
sistência do ar, mas este é um detalhe 
que costuma ser ignorado, a não ser em 
trabalhos de grande precisão. 


MOVIMENTO HORIZONTA 


Digite esse primeiro programa para 
simular o movimento horizontal, e cui- 
dado para não confundir a letra 1 com 
o número 1. Todos os programas são 
para o BASIC padrão da máquina. 


100 BORDER 7: PAPER 7: INK O: 
сіз 

105 РОКЕ 23658,8 

110 PRINT INVERSE 1;AT 2,12;” 
MENU ” 

120 PRINT AT 6,0;"1-MOVIMENTO 
PURAMENTE HORIZONTAL" 

130 PRINT AT 8,0;"2-MOVIMENTO 
PURAMENTE VERTICAL" 

140 PRINT AT 10,0;"3- MOVIMENT 
O MISTO" 

150 PRINT AT 12,0;"4- ELEVACOE 
s” 

200 LET IS-INKEYS: IF I$-"" 
THEN GOTO 200 

205 IF I$<"1” OR 15>"4” THEN 
GOTO 200 

210 GOSUB VAL I$*1000 

220 RUN 

1000 CLS 

1020 LET SP-30 

1030 PRINT "VELOC. HORIZONTAL M 

7/8..." 

1040 FOR R-124 TO 28 STEP -16 

1045 LET T-0 

1050 PRINT AT 21- (R/8),0;SP 

1060 INPUT "<ENTER> PARA ATIRAR 

", LINE Z$ 

1090 LET X=SP*T: LET T=T+1 

1100 PLOT 30+X,R: SOUND .1,R/4 

1110 PAUSE 10 

1120 IF 30+SP*T<250 THEN GOTO 

1090 

1150 IF R=28 THEN GOTO 1200 

1160 INPUT "NOVA VELOCIDADE (0 

SAI)”, LINE 15 

1165 LET SP=VAL IS 

1170 IF SP<O OR SP>1000 THEN G 











OTO 1160 

1190 IF SP=0 THEN 
1200 NEXT R 

1210 RETURN 


LET R=28 


100 CLS:PMODE 3 

110 PRINT 613,"menu" 

120 PRINT 6128, MOVIMENTO PUR 
AMENTE HORIZONTAL 
130 PRINT 8192,"2-MOVIMENTO PUR 
AMENTE VERTICAL" 

140 PRINT 8256,"3-MOVIMENTO MIS 








150 PRINT €320,"4-ELEVACOES” 
160 AS=INKEYS:IF AS<"1” OR AS>” 
4" THEN 160 

170 ON VAL(AS) GOSUB 1000,2000, 
3000,4000 





CER LN аа а а на 


























Wi COMO DESENHAR A TRAJETÓRIA W FUNCIONAMENTO DO PROGRAMA 

DEPROJÉTES W MOVIMENTO VERTICAL 
= * EFEITOS DE DIFERENTES MI MOVIMENTO HORIZONTAL 
E CAMPOS GRAVITACIONAIS Ш COMO UNIR AS ROTINAS 
m COMO SIMULAR PARÁBOLAS Wi MUDE O ÁNGULO 














180 AS=INKEYS 

190 IF INKEYS="" AND PEEK(65314 
)<>7 THEN 190 ELSE RUN 

1000 PCLS 

1010 LINE(0,0)- (255,191) ,PSET,B 
1020 SP=30 

1030 CLS:PRINT"VELOCIDADE HORIZ 
ONTAL": PRINT “M/S...” 

1040 FOR R=39 TO 159 STEP 24:T= 
-1 

1050 PRINT €32*INT(R/12)-1,SP;” 
*": PRINT €448,"<ENTER> PARA ATI 
RAR” 
1060 
060 

1070 SCREEN 1,0 

1090 T=T+1:X=SP*T 

1100 PSET(30+X/5,R,2):SOUND R,1 
1105 D=50 

1110 IF PEEK(345)=255 AND D>0 T 


IF INKEYS<>CHRS(13) THEN 1 





HEN D*D-1:GOTO 1110 
1120 IF SP*(T+1)/5<223 THEN 109 
0 


1130 IF R>150 THEN 1200 

1135 D=200 

1139 AS=INKEYS 

1140 IF INKEYS="" AND D>0 THEN 
D=D-1:GOTO 1140 

1160 PRINT €448,"":PRINT 6448," 











































































































NOVA VELOCIDADE (0 SAI):";:INPU 
T SP 
1170 IF SP<O OR SP>999 THEN 116 
0 

IF SP=0 THEN R=160 
NEXT 

RETURN 


1190 
1200 
1210 


100 SCREENO:CLS:COLOR 15,4,4 


110 LOCATE 16:PRINT"M E N U” 
120 LOCATE 4,6:PRINT"l - MOVIME 
NTO HORIZONTAL PURO" 

130 LOCATE 4,8:PRINT"2 - MOVIME 
NTO VERTICAL PURO" 

140 LOCATE 4,10:PRINT"3 - MOVIM 


ENTO COMBINADO" 

150 LOCATE 4,12:PRINT"4 - ANGUL 
OS VARIAVEIS” 

160 AS=INKEYS:IF AS<"1” OR AS>" 
4” THEN 160 

170 ON VAL(AS) GOSUB 1000,2000, 
3000,4000 

190 IF INKEYS="" THEN 190 ELSE 
RUN 

1000 SCREEN 2,0,0 

1010 LINE (5,0)-(250,160),15,B 
1020 SP=30 

1030 OPEN "GRP:" FOR OUTPUT AS 
41:PRESET (5,161):PRINT41,"VELO 
CIDADE HORIZONTAL EM M/S" 

1040 FOR R-30 TO 150 STEP 24:T- 
le 

1050. PRESET (6,R-9):PRINT41,SP: 
LINE (250,195)-(5,180),4,BF:PRI 
NT41,"TECLE <RETURN> PARA DISPA 
RAR” 

1060 IF INKEYS<>CHR$(13) THEN 1 
060 
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1090 T=T+1:X=SP*T 

1100 PSET (30+X/5,R),15:PLAY”N1 
9119" 

1110 FOR I=1 TO 100:ІЕ ІМКЕҮЅ < 
>CHRS (32) THEN NEXT 1 

1120 IF SP*(T+1)/5+30<240 THEN 
1090 

1130 IF R>145 THEN 1200 

1140 FOR 1=1 ТО 200:IF TNKEYS<> 
CHR$(13) THEN NEXT T 

1160 LINE (250,195)-(5,180),4,B 
F:PRINTA1,”NOVA VELOC? (0 TERMI 


МА) :" :5рӯ="” 
1162 PRESET (210,180) :PRINTH1,S 
PS 


1165 AS=INKEYS:TF AS=CHR$(13) Т 
HEN 1190 

1170 IF AS<”0” OR AS>"9"” THEN 1 
165 

1180 SP$=SPS+A$:GOTO 1162 

1190 SP=VAL(SPS):TF SP=0 THEN R 
=160 

1195 IF SPX0 OR SP>999 THEN 116 
0 

1200 NEXT R 

1210 RETURN 








95 FOR I 
POKE I, 





100 TEXT 





= 770 TO 795: READ A: 
NEXT 
HOME 


110 PRINT TAB( 16);"M E N U” 
120 VTAB 7: HTAB 5: PRINT "1 - 
MOVIMENTO HORIZONTAL PURO” 


130 УТАВ 


9: HTAB 5: PRINT "2 - 


MOVIMENTO VERTICAL PURO" 


140 УТАВ 


ll: HTAB 5: PRINT "3 


- MOVIMENTO COMBINADO" 


150 УТАВ 
- ANGULOS 


13: HTAB 5: PRINT "4 
VARIAVEIS" 


160 GET A$: IF A$ < "1” OR AS 
> "4" THEN 160 

170 ON VAL (A$) GOSUB 1000,20 
00,3000,4000 

180 GET AS: IF AS = СНВ5 (13) 
THEN RUN 






a a 


242 


190 

1000 
1010 
‚159 
1020 
1030 
1040 


:Т 
1050 
12: 


G0TO,180 

HGR : HCOLOR= 3 

HPLOT 0,0 TO 279,0 TO 279 
TO 0,159 TO 0,0 

SP - 30 

HOME 

FOR R * 30 TO 150 STEP 24 

«Y 

VTAB 21: PRINT "VELOC HOR 
"i8P;" M/S”: УТАВ 24: PRINT 


"TECLE <CR> PARA DISPARAR ”; 
1060 GET AS: IF A$ < > CHR$ 
(13) THEN 1060 

1090 T = @ + 1:X = SP w T? 

1100 HPLOT X / 5,R:W = PEEK ( 
- 16336):W = PEEK ( - 16336) 
1105 РОКЕ - 16368,0 

1110 FOR D = 1 TO 20: IF PFEK 
( - 16384) < 128 THEN POKE - 
16368,0: xT 

















E a E A E gl O ШШ ЕШШ 
кч 


1120 IF SP * (T + 1) / 5 < 279 
THEN 1090 

1130 IF R > 149 THEN 1200 

1135 POKE - 16368,0 

1140 FOR D = 1 TO 300: IF PEE 
K ( - 16384) > 127 THEN D = 300 
1150 POKE - 16368,0: МЕХТ 
1160 НТАВ 1: УТАВ 23: CALL - 
958: УТАВ 23: INPUT "NOVA VELOC 


IDADE (0 TERMINA) "¡SP 


1170 IF SP < 0 OR SP > 999 THE 
N 1160 

1190 IF SP = 0 THEN R * 160 
1200 NEXT 

1210 RETURN 

5000 DATA 172,1,3,174,1,3,169 


.4,32,168,252,173,48,19 
8,253,136,208,239,206,0 
31,96 


232,20 
‚208,2 





Ао executar o programa, vocé verá 
um menu com quatro opções. Até ago- 
ra, só a rotina para a primeira opção foi 
digitada. Assim, se teclar as opções 2, 
3 ou 4, você obterá uma mensagem de 
erro. Ao pressionar 1, o programa vai 
para a sub-rotina 1000. Esta usa um la- 
ço FOR...NEXT (linhas 1040 a 1200) 
para permitir que um objeto seja lança- 
do horizontalmente em seis velocidades 
diferentes. Na primeira vez, a velocida- 
de de 30 m por segundo é usada auto- 
maticamente e simulada no vídeo como 
uma série de pontos em linha reta. 

A seguir, você pode escolher uma ve- 
locidade diferente. Para sair do laço, 
pressione a tecla 0; o programa mostra- 
rá então o menu novamente. Digite um 
valor — 60, por exemplo — e pressione 
<ENTER> ou <RETURN> para 
disparar. A ação pode ser acelerada 
acionando-se continuamente a barra de 
espaços (tecla <ENTER> no Spec- 
trum) ou teclando-a repetidas vezes. 
Agora, compare o resultado com a linha 
de velocidade 30 m/s. Escolha e com- 
pare cinco outras velocidades. Depois 
disso, o menu será reapresentado. 

A parte do programa que desenha os 
pontos fica entre as linhas 1090 e 1120. 
A variável T simula o tempo que, neste 
caso, é incrementado de um em um se- 
gundo. Desse modo, os pontos são es- 
paçados regularmente (o que é necessá- 
rio para conservar a velocidade constan- 
te) na direção horizontal. A distância 
entre os pontos é determinada pela ex- 
pressão SP*T na linha 1090. Ela faz com 
que, quanto maior a velocidade, maior 
o espaçamento entre os pontos. 

A expressão SP*T pode ser reconhe- 
cida como parte da fórmula DISTAN- 
CIA = VELOCIDADE X TEMPO, co- 
mo é ensinada nas aulas de física. Des- 
se modo, fica bem claro que o progra- 
ma usa o espagamento entre os pontos, 
a fim de simular a velocidade. 


Digite as próximas linhas para simu- 
lar o movimento em diregáo vertical: 


2000 CLS 

2020 LET G=10: LET SP-50 

2030 PRINT '"ACELERACAO DA GRAV 
m/s/s..." 


2040 FOR R=3 TO 18 STEP 3 
2050 PRINT AT 20,R;"*";AT 21,R; 


G 

2060 INPUT "<ENTER> PARA ATIRAR 
", LINE I$ 

2080 FOR T=0 TO 250 STEP .5 
2090 LET H-SP*T-0.5*G*T*T 

2100 IF H>143 THEN SOUND .05,1 
0: PAUSE 50: NEXT T: GOTO 2110 
2105 IF H>=0 THEN PLOT R*8+4,H 
+32: SOUND .05,H/4: PAUSE 40: N 
EXT T 

2110 IF R>15 THEN GOTO 2180 
2140 INPUT "NOVA GRAV. (0 SAI)" 
» LINE I$ 

2142 IF LEN 1$=0 THEN GOTO 214 
0 

2145 LET G=VAL IS 

2150 IF NOT (LEN 1I$>0 AND G>=0 
AND G<400) THEN GOTO 2140 
2170 IF G-0 THEN LET R-18 

2180 NEXT R 

2190 RETURN 





PCLS 

ІЛМЕ(0,0)-(255,191) ,РБЕТ,В 
G=10:SP=50:CLS 

PRINT €32,"ACELERACAO DA G 
¿":PRINT"M/S/S...” 

FOR R=0 TO 25 STEP 5 

PRINT 6416*R,"*"*MID$ (STRS 
(G),2); 

2060 PRINT €448,"<ENTER> PARA A 
TIRAR” 

2065 IF INKEYS<>CHRS(13) THEN 2 
065 
2070 
2080 
2090 
2095 





SCREEN 1,0 

FOR T=0 TO 100 STEP .5 
He8P*T-.5*G*T*T 

IF H<O THEN T=250:GOTO 210 


8 

2100 IF H>159 THEN SOUND 250,1: 
D=30 ELSE PSET (10+R48,160-H,2) 
: SOUNDH+10,1:D=50 

2105 IF PEEK(345)=255 AND D>0 T 
HEN D*D-1:GOTO 2105 

2108 NEXT 

2110 IF R>20 THEN 2180 

2115 D-80 

2119 AS=INKEYS 

2120 IF INKEY$="" AND D>O THEN 
D=D-1:GOTO 2120 





2140 PRINT 6448,"":PRINT 6448," 
NOVA GRAV.(0 SAI :INPUT G 
2150 IF G<0 OR G>400 THEN 2140 
2170 IF G=0 THEN R=26 

2180 NEXT 

2190 RETURN 





2000 
2010 


SCREEN 2,0,0 

LINE. (5,0)-(250,160),15,B 
2020 SP=50:G=10 

2030 OPEN "GRP:" FOR OUTPUT AS 
&1:PRESET (5,161) : PRTNT&1,"ACEL 
DA GRAVIDADE EM M/S/S" 

2040 FOR R-0 TO 25 STEP 5 

2050 PRESET (R*B,150) :PRINT41,G 
:LINE (250,195)-(5,180) , 4, BF: PR 
INT41,"TECLE «RETURN» PARA DISP 
ARAR" 
2060 
060 
2080 
2090 
2095 
B 
2100 IF H»159 THEN PLAY"N90L19" 
ELSE PSET (30+R*8,160-H),15:AS 
N"*STR$ (INT (H/2) ) *"L19" : PLAYA 


IF INKEYS<>CHRS(13) THEN 2 


FOR T=0 TO 100 STEP .5 
H*SP*T-.5*G*T*T 
IF H<O THEN T-250:GOTO 210 


$ 

2105 FOR I=1 
>CHR$ (32) THEN NEXT І 

2108 NEXT T 

2110 IF R>20 THEN 2180 

2120 FOR I-1 TO 200:IF INKEYS < 
>CHR$ (32) THEN NEXT I 


TO 100:IF INKEY$ < 


2140 LINE (250,195)-(5,180),4,B 
F:PRINT41,”NOVA G? (0 TERMINA): 
"1б$=”" 

2142 PRESET (200,180) :PRINT41,G 


$ 
2145 AS-INKEYS:IF AS-CHRS(13) T 
HEN 2160LIST 2100- 





2150 IF AS<”0” OR AS>"9" THEN 2 
145 

2155 GS=GS+AS:GOTO 2142 

2160 G=VAL(GS) :IF G=0 THEN R=26 


2170 
2180 
2190 


TF G<0 OR G>400 THEN 2140 
NEXT R 
RETURN 





2000 HGR : HCOLOR= 3 

2010 HPLOT 0,0 TO 279,0 TO 279 
‚159 ТО 0,159 ТО 0,0 

2020 SP = 50:G = 10 

2030 HOME : VTAB 21: PRINT "G: 
M/S/S" 

2040 FOR R = 0 TO 25 STEP 5 
2050 VUTAB 21: HTAB R + 8: PRIN 


Т 6: УТАВ 24: PRINT 
PARA DISPARAR "; 
2070 GET A$: IF A$ < > 
(13) THEN 2070 

2080 FOR T = 0 TO 100 STEP .5 
2090 H = SP *T-.5*Gx*T* 
T 


"TECLE <CR> 


CHRS 





2095 IF H < 0 THEN T = 250: GO 
TO 2107 

2100 IF H > 159 THEN POKE 769 
„200: РОКЕ 768,2: CALL 770 
2102 IF H < 160 THEN НРІ0Т:50 
+ R * 7,160 - H: POKE 769,H: P 
OKE 768,2: CALL 770 

2103 РОКЕ - 16368,0 


2105 FOR D = 1 TO 20: IF PEEK 
( - 16384) < 128 THEN POKE - 
16368,0: NEXT 

2107 NEXT T 





2110 IF R > 20 THEN 2180 

2115 POKE - 16368,0 

2120 FOR D = 1 TO 300: IF PEE 
K ( - 16384) > 127 THEN D = 300 
2130 РОКЕ - 16368,0: NEXT 
2140 НТАВ 1: УТАВ 23: САМ. - 


958: VTAB 23: INPUT "NOVA ACELE 


RACAO (0 TERMINA) ";G 

2150 IF G « 0 OR G » 400 THEN 
2140 

2170 IF G = 0 THEN R - 26 
2180 NEXT R 

2190 RETURN 


Execute o programa e escolha a op- 
gáo 2 desta vez. Pressione « ENTER» 
ou « RETURN para ver uma série de 
pontos tracados verticalmente na tela. 
Note que tais pontos não são espaçados 
regularmente, como na opção anterior; 
quanto mais alta sua localização, mais 
perto eles ficam uns dos outros. 

Isso acontece porque o objeto é de- 
sacelerado pela ação da gravidade. E 
desta vez o som ajuda a explicar o que 
está acontecendo. À medida que o ob- 
jeto sobe, a tonalidade do som torna-se 
mais aguda e, à proporção que ele des- 
ce, o som fica mais grave. 

Como antes, a rotina lhe oferece seis 
tentativas (determinadas na linha 2040) 
de experimentar diferentes valores para 
o efeito da gravidade. Elas são armaze- 
nadas na variável G, que inicialmente é 
ajustada para 10 (linha 2020) e usada na 
linha 2090. 

A relação é a fórmula para distância 
de um objeto em queda livre. Sua for- 
ma usual é: 


=vT+L gT?, 
+ 


onde S é a distáncia; V, a velocidade ini- 
cial; T, o tempo, e G, a aceleração da 
gravidade. TxT é usado na linha 2090 
em vez de T12 ou T2, porque os com- 
putadores sáo mais ágeis para multipli- 
car do que para calcular poténcias. A 
aceleracáo de um objeto em movimen- 
to é calculada em funcáo da mudanca 
de velocidade e do tempo decorrido. 
Perto da superfície da Terra, g tem um 
valor aproximado 10 m/s/s. Isso signi- 
fica que a velocidade de um objeto em 
queda aumenta de 10 m/s a cada segun- 
do. E a velocidade de um objeto em as- 
censáo diminui de 10 m/s a cada segun- 
do. Esta é, portanto, uma aceleração ne- 
gativa; por isso, o sinal + (mais) da fór- 
mula padrão é substituída pelo — (me- 
nos) na linha 2090. 

O cálculo de G é comumente usado 
em relação a viagens espaciais. A acele- 
ração de uma espaçonave saindo da ór- 
bita terrestre atinge cerca de 10 g. Isso 





signitica que essa aceleração é de 10x10 
m/s/s ou 100 m/s/s (a notação m/s 
também é usada com freqüéncia). 

Na primeira passada do laço que co- 
meça na linha 2040, a posição do obje- 
to é traçada a intervalos de um segun- 
do. A velocidade inicial é de 50 m/s e a 
aceleração é a da gravidade (10 m/5/5). 
Ambos os valores foram determinados 
na linha 2020. Como na primeira roti- 
na, apressa-se a ação pressionando-se a 
barra de espaços (ou <ENTER>, no 
Spectrum). O valor de G pode ser mu- 
dado quando um novo valor é solicita- 
do na tela. (Compare o efeito dos seis 
valores diferentes.) Antes de se comple- 
tar o laço, pode-se voltar ao menu 
pressionando-se O para aceleração. 


MOVIMENTO COMBINADO 


Para sifular o movimento de um 
projétil, é necessário apenas combinar 
essas rotinas de maneira que o objeto se 
mova na horizontal e na vertical, ao 
mesmo tempo. Digite estas linhas para 
montar a terceira rotina: 





3000 CLS 

3020 LET G=10: LET SP=50 

3030 FOR R=1 TO 6 

3040 PRINT AT 0,0;”GRAV. ; 
/в/в "'”VELOCIDADE=";SP;”m/s ” 
3050 INPUT "<ENTER> PARA ATIRAR 
", LINE IS 


3070 FOR T=0 TO 250 STEP .5 
3080 LET H-SP*SIN ((PI/180)*45) 
RT- . SAGATAT 

3090 LET X-SP*COS ((PI/180)*45) 
эт 

3100 IF H<175 AND X<25£ 
OTO 3105 

3102 IF H>O THEN SOUND 
PAUSE 25: NEXT T: GOTO 
3103 LET T=250: NEXT T: 
10 

3105 IF H>=0 THEN PLOT X,H: SO 
UND .05,H/4: PAUSE 40: NEXT T: 
GoTO 3110 

3106 LET T=250: NEXT T 

3110 IF R=6 THEN GOTO 3230 
3120 PAUSE 50 

3140 INPUT "NOVA GRAV. 
+ LINE IS 

3150 IF LEN I$-0 THEN GOTO 314 


THEN G 


.05,10: 
3110 
GoTO 31 


(0 SAI)" 


0 

3155 LET G=VAL IS 

3160 IF NOT (LEN 1$>0 AND G>=0 
AND G<1000) THEN GOTO 3140 


3170 IF G=0 THEN LET R=6: GOTO 
3230 

3190 INPUT "NOVA VELOC.”, LINE 
IS 


3195 LET SP=VAL I$ 

3200 IF NOT (LEN 1$>0 AND SP>0 
AND SP<1000) THEN GOTO 3190 
3230 NEXT R 


3240 RETURN 





3000 
3010 
3020 


PCLS 

LINE (0,0)- (255,191) ,PSET,B 
G=10:SP=50 

3030 FOR R=1 TO 6:CLS 

3040 PRINT "G 1G; "M/S/8":P 
RINT"VELOCIDADE= P;"M/S" 
3050 PRINT €448,"<ENTER> PARA A 
TIRAR” 

3060 IF INKEYS<>CHRS(13) THEN 3 
060 
3065 
3070 
3080 
T 
3090 
3095 





SCREEN 1,0 
FOR T=0 TO 200 STEP .5 
H*SP*SIN (ATN (1) ) *T-.5*G*T* 


X=SP*COS (ATN (1))*T 
IF Н<0 THEN T=250:GOTO 310 


6 

3100 IF X>251 THEN T=250:GOTO 3 
106 ELSE IF H>189 THEN SOUND 25 
0,1:D=25 ELSE PSET(X+2,190-H, (R 
+3) /2) :SOUND H+10,1:D=35 

3104 IF PEEK(345)=255 AND D>0 T 
HEN D=D-1:GOTO 3104 

3106 NEXT 

3110 IF R>5 THEN 3230 

3115 D=100 

3119 AS=INKEYS 

3120 IF INKEYS="" AND D>0 THEN 
D=D-1:GOTO 3120 
3130 PRINT 6416,"":PRINT 6448," 
3140 PRINT 6416, 
SAI)";:INPUT G 
3160 IF G<0 OR G>9999 THEN 3130 
3170 IF G=0 THEN R=6:GOTO 3230 
3180 PRINT 6448,"" 

3190 PRINT 6448,"NOVA VELOC. 
:INPUT SP 

3200 IF 8Р<0 ОН SP>999 THEN 318 
0 


"NOVA GRAV. (0 





3230 
3240 


PU 


3000 
3010 
3020 
3025 
в 

3030 


МЕХТ 
RETURN 


SCREEN 2,0,0 

LINE (5,0)-(250,160),15,B 
SP-50:G-10 

OPEN "GRP:" FOR OUTPUT AS 


FOR R=1 TO 6 


3040 LINE (250,195)-(5,161),4,B 
F:PRINT41,"G =";G;”"M/S/S VE 
L =";SP;"M/S” 

3050 LINE (250,195)-(5,180),4,B 
F:PRINT41,"TECLE <RETURN> PARA 
DISPARAR” 

3060 IF INKEYS<>CHRS(13) THEN 3 
060 

3070 FOR T=0 TO 200 STEP .5 
3080 H-SP*SIN(ATN(1))*T-.5*G*T* 
T 

3090 X=SP*COS(ATN(1))*T 

3095 ТЕ Н<0 THEN T-250:GOTO 310 
6 

3100 IF X>245 THEN T=250:GOTO 3 


106 ELSE IF H>159 THEN PLAY"N90 
L19" ELSE PSET (X+6,160-H),15:A 
S-"N"-STR$ (INT (H/2) ) *"L19" : PLAY 





AS 

3104 FOR I-1 TO 100:IF INKEYS < 
>CHRS (32) THEN NEXT 1 

3106 NEXT T 

3110 IF R>5 THEN 3230 

3120 FOR I=1 TO 200:IF INKEYS < 


>CHR$ (32) THEN NEXT I 

3140 LINE (250,195)-(5,180),4,B 
F:PRINT&1,"NOUVA G? (0 TERMINA): 
“-05-"" 


3142 PRESET (200,180) :PRINT41,G 
5 


3145 AS*"INKEYS:IF AS-CHR$(13) T 


HEN 3160 

3150 ТЕ А$<"0” ОН AS>"9" THEN 3 
145 

3155 GS=GS+AS:GOTO 3142 

3160 G*VAL(GS):IF G*0 THEN R=6: 
GOTO 3230 

3170 IF G<0 OR G>9999 THEN 3140 
3180 LINE (250,195)-(5,180),4,B 


F:PRINT41,"NOVA VELOC 
3182 PRESET (200,180): 
P$ 

3185 AS-INKEYS:IF AS-CHR$(13) T 
HEN 32104180 RETURN 

3190 IF AS<"0” OR AS>"9” THEN 3 
185 


18Р$="” 
RINT41,S 














3195 SPS-SPS*AS:GOTO 3182 
3210 SP=VAL (SPS) 
3220 IF 5Р<0 ОВ SP>999 THEN 318 
0 
3230 NEXT R 
3240 RETURN 
3000 HGR : HCOLOR= 3 
3010 HPLOT 0,0 TO 279,0 TO 279 
,159 TO 0,159 TO 0,0 
3020 G = 10:SP = 50 
3030 FOR R = 1 TO 6: HOME 
3040 УТАВ 21: PRINT "G= "; 
M/S/S  ";"VELOCIDADE- р 
/S": UTAB 24: PRINT "TECLE <CR> 
PARA DISPARAR "; 
3060 GET AS: IFAS < > CHRS 
(13) THEN 3060 
3070 FOR T = O TO 200 STEP .5 
3080 H = SP * SIN ( ATN (1)) * 
T-.5*G*T*T 
3090 X = SP * COS ( ATN (1)) * 
T 
3095 IF H < 0 ТНЕМ Т = 250: GO 
TO 3125 
3100 тих > 275 "kN " - 250 
GOTO 3125 
3105 IF H > 160 THEN POKE 769 
‚200: POKE 768,2: CALL 770 
3110 IF H < 160 THEN HPLOT X 
* 2,160 - H: POKE 769,H: POKE 7 

: CALL 770 

POKE - 16368,0 

3120 FOR D = 1 TO 20: IF PEEK 
( - 16384) < 128 ТНЕМ РОКЕ - 
16368,0: МЕХТ 
3125 МЕХТТ 
3130 IF R > 5 ТНЕМ 3230 
3135 РОКЕ - 16368,0 
3140 FOR D = 1 TO 300: IF PEE 
K ( - 16384) > 127 THEN D = 300 
3145 POKE - 16368,0: NEXT 


2150 НТАВ 1: УТАВ 23: САМ. - 
958: УТАВ 23: INPUT "NOVA ACELE 
RACAO (0 TERMINA) ";G 


3160 IF G « 0 OR G > 9999 THEN 
3150 
3170 IF G = 0 THEN R = 6: GOTO 
3230 
3180 НТАВ 1: VTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA VELOC 


IDADE (0 TERMINA) ";SP 


3200 TF SP < 0 OR SP > 999 THE 
N 3180 

3230 NEXT R 

3240 RETURN 


Execute o programa e escolha a op- 
ção 3. Após <ENTER> ou <RE- 
TURN terem sido pressionados, serão 
traçados pontos segundo uma curva que 
começa no canto inferior esquerdo da 
tela e termina em algum lugar em dire- 
ção ao canto inferior direito. Essa é a 
trajetória de um objeto lançado a uma 
i inicial de 50 m/s sob gravi- 


ESTRUTURA DA ROTINA 


A estrutura da rotina é similar às an- 
teriores. O cálculo e o tragado sáo fei- 
tos em um lago FOR...NEXT (linhas 
3030 a 3230), que permite comparar seis 
trajetórias diferentes, cinco das quais es- 
pecificadas pelo usuário. Um valor 0 
provoca o retorno ao menu. Mas é mais 
provável que vocé queira digitar um no- 
vo conjunto de valores para comparar 
as trajetórias. 

Coloque o valor 5 em G e mantenha 
SP em 50; pressione < ENTER >. Des- 
ta vez, o objeto irá mais alto e mais lon- 
ge. Mantenha G em 5 e reduza SP para 
25. Compare os resultados. 

Continue experimentando: modifi- 
que tanto G quanto SP e preste atenção 
aos sons. Estes foram especialmente pla- 
nejados para ajudá-lo a compreender o 
movimento do objeto na tela. Dessa ma- 
neira, sons cada vez mais agudos indi- 
cam um movimento ascendente. A que- 
da, por sua vez, é marcada por sons ca- 
da vez mais graves. 


'OMO FUNCIONA 


Lembre-se de que a trajetória do ob- 
jeto é tracada como coordenadas H no 
eixo Y e coordenadas X no eixo X. Es- 
sas duas variáveis são calculadas nas li- 
nhas 3080 e 3090. A única diferença en- 
tre elas é que a coordenada H tem a ve- 
locidade (SP) multiplicada pelo seno do 
ângulo e a coordenada X tem SP multi- 
plicada pelo co-seno do mesmo ângulo 
(45º). Isso explica por que, quando G é 








pequena e SP grande, a trajetória pare- 
ce uma linha diagonal a 45º. 


SENI EN0, TANGENTE 





Essas funçóes trigonométricas sào ne- 
cessárias para calcular a fração do mo- 
vimento que se aplica a cada uma das 
duas direções. Tais frações, por sua vez, 
são chamadas de componentes horizon- 
tal e vertical do movimento. Se este tem 
uma velocidade inicial de S0 m/s, por 
exemplo, as duas componentes serão 
menores que 50, Somadas, elas dão exa- 
tamente 50 m/s. 

Como você deve estar lembrado, a 
componente vertical é SP*SEN A e a 
horizontal, SP*COS A, onde A é o án- 
gulo de inclinação do lançamento. 


VISUALIZE O MOVIMENTO 


Para compreender como esses valo- 
res são obtidos, é conveniente dar uma 
olhada em um esquema. O desenho da 
página 768 mostra um projétil inician- 
do seu movimento com velocidade real 
V em um ângulo A com a horizontal. 
As linhas tracejadas, por sua vez, mos- 
tram as componentes da velocidade (Vh 
e Vx) nas duas direções. 

O seno do ángulo A é Vh/V; temos 
assim uma relação que pode ser lida co- 
mo Vh=V*SEN A. Da mesma forma, 
o co-seno de A é Vx/V, de onde inferi- 
mos a equação Vx=V*COS A. 

Seguindo esse padrão, temos 
SP*SEN 45 para a componente vertical 
da velocidade e SP*COS 45 para a com- 
ponente horizontal. 

No programa, isso aparece de um 
modo um pouco diferente. À exceção do 
Spectrum, usa-se a função АТМ(1). Es- 
sa função (arco tangente) fornece o ân- 
gulo cuja tangente é 1 (nosso caso): o 
ângulo de 45º. O computador, porém, 
utiliza tal valor em radianos. Por isso, 
recorremos à função — que fornece o 
valor na unidade adequada — e não ao 
valor 45, diretamente. No Spectrum usa- 
se o valor pi/180, que equivale a 1 grau, 
multiplicado por 45. 


col 





ШОАВ 0 АМб10 


Neste ponto, vocé pode estar queren- 
do saber por que o ángulo foi fixado em 
45º. Na verdade, tanto o ângulo quan- 
to a velocidade inicial podem ser alte- 
rados para mudar a trajetória do projé- 
til, Mais frequentemente, varia-se o ân- 

lo, deixando a velocidade constante. 

o que faremos agora: 




















COMO É FEITA A SIMULAÇÃO DE 
UM MOVIMENTO 

Todos os programas que simulam 
fenômenos físicos de natureza conti- 
nua, como o movimento de um corpo 
no espaço, utilizam o mesmo tipo de 
modelo matemático: as equações de 
diferenças finitas. Por esse motivo, é 
interessante saber qual o seu significa- 
do e como funcionam. Assim, seus es- 
forços de programação em muitas 
áreas, inclusive jogos, serão bem mais 
profissionais. 

Uma equação de diferenças finitas 
diz qual é a lei matemática que rege a 
maneira pela qual uma variável muda 
com o tempo. Tomemos como exem- 
plo o movimento de um corpo com ve- 
locidade constante. Suponhamos nes- 
se caso que a distância percorrida pe- 
lo corpo em um intervalo de tempo bem 
pequeno — que chamaremos de DT — 
é DD. Como consequência, a equação 
que rege DD em função de DT é: 

DD = V*DT, 
onde V é a velocidade do corpo. 

Na realidade, o que acontece na na- 
tureza é um movimento contínuo, ou 
seja, podemos imaginar um DT infini- 
tesimalmente pequeno. Porém, se der- 
mos agora o nome D à distância total 
percorrida pelo corpo, teremos a se- 
guinte equação, que é bem mais útil 
que a primeir: 

D 





D + Vv*T 

Essa é a forma a ser colocada em 
um programa de computador e se cha- 
ma equação de diferenças finitas. Ela 
é calculada repetidamente, começan- 
do com o valor de D = O. O valor de 
D é então incrementado a cada inter- 
valo DT por um ''pedacinho'' calcula- 
do pela fórmula V*DT. Esse processo 
simples corresponde a uma integracáo 
da distáncia ao longo do tempo (inte- 
gração é um termo específico da parte 
da matemática chamada cálculo dife- 
rencial e integral). 

Como não é possível trabalhar em 
um computador com uma grandeza in- 
finitamente pequena para DT, usa-se 
um DT pequeno mas finito. 











4000 CLS 

4010 LET FL-0 

4020 RESTORE : FOR N=0 TO 7: RE 
AD A: POKE USR "A"*N,A: NEXT N 
4040 LET A-70: LET SP-50 

4060 PRINT AT 0,0;"ANGULO-";A;C 


HRS 144;CHRS 32 
4070 INPUT "<ENTER> PARA ATIRAR 


^", LINE I$ 

4080 FOR T=0 TO 250 STEP .5 
4090 LET H=SP*SIN ((PI/180)*A)* 
T-.5*10*T*T: LET X-50*COS ((PI/ 


180) *A)*T 
4100 IF H>=0 THEN PLOT X,H+16: 
SOUND .05,H/4: PAUSE 40: NEXT 


Т: GOTO 4110 

4105 LET T=250: NEXT T 

4110 PAUSE 50 

4130 INPUT "NOVO ANGULO (0 SAI) 
", LINE I$ 

4135 IF LEN I$-0 THEN GOTO 413 


0 

4140 LET A=VAL I$ 

4150 IF NOT (LEN 1$>0 AND A>=0 
AND A<90) THEN GOTO 4130 
4160 IF A=0 THEN LET FL=1 
4170 IF NOT FL THEN GOTO 4060 
4180 RETURN 

5000 DATA 24,36,36,36,24,0,0,0 


4000 PCLS 
4020 LINE (0,0)-(255,191),PSET, 


B 

4040 A=70:8P=50 

4060 CLS:PRINT "ANGULO * ";A;"G 
RAUS" 

4070 PRINT €448,"<ENTER> PARA A 
TIRAR” 

4072 IF INKEYS<>CHR$(13) THEN 4 
072 

4075 SCREEN 1,0:AN=AXATN (1) /45 
4080 FOR T-0 TO 250 STEP .5 
4090 H-SP*SIN(AN) *T-.5*10*T*T:X 
"SP*COS (AN) *T 

4092 ІҒ Н<0 THEN T=250:GOTO 410 
0 

4094 IF X>251 THEN T=250:GOTO 4 
100 ELSE IF H>189 THEN SOUND 25 
0,1:D=25 ELSE PSET(X+2,190-H,2) 
:SOUND H+10,1:D=35 

4096 IF PEEK(345)=255 AND D>0 T 
HEN D=D-1:GOTO 4096 

4100 NEXT 

4110 AS=INKEYS 

4120 IF INKEYS-"" THEN 4120 
4130 PRINT 6448,"NOVO ANGULO (0 
SAI) :”";: INPUT A 

4160 IF A<O OR A>=90 THEN 4120 
4170 IF A>0 THEN 4060 

4180 RETURN 





4000 
4020 
4040 
4050 
ы 
4060 LINE (250,175)-(5,161),4,B 
F:PRINT41,"ANGULO =";A;"GRAUS” 
4070 LINE (250,195)-(5,180),4,B 
F:PRINT$1,"TECLE <RETURN> PARA 
DISPARAR” 

4072 IF INKEYS<>CHR$(13) THEN 4 
072 

4075 АМ=АХАТМ (1) /45 

4080 FOR T=0 ТО 250 ЗТЕР .5 
4090 H-SP*SIN(AN)*T-.5*10*T*T:X 
=SP*COS (AN) *T 


SCREEN 2,0,0 

LINE (5,0)-(250,160),15,B 
8р=50:А=70 

OPEN "GRP:" FOR OUTPUT AS 


BERE 


4092 IF HX0 THEN T-250:GO0TO 410 
0 

4094 IF X>245 THEN T=250:GOTO 4 
100 ELSE IF H»159 THEN PLAY"N90 
L19" ELSE PSET (X+6,160-H),15:A 
$="N"+STRS (INT(H/2))+"L19"” : PLAY 
AS 

4096 FOR I=1 TO 100:IF INKEYS < 
>CHRS (32) THEN NEXT I 

4100 NEXT T 

4130 LINK 
F:PRINT4&1 
INA) :":G. 
4132 PRESET (220,180):PRINT41,G 


0,195)- (5,180) ,4.H 
NOVO ANGULO? (0 TERM 








5 
4135 AS-INKEYS:IF AS-CHRS(13) T 
HEN 4150 


4140 IF ASC"O" OR AS2"9" THEN 4 
135 

4145 G$-G$*A$:GOTO 4132 

4150 A=VAL (G$) :IF A=0 THEN 4180 


4160 IF A<O OR A>89 THEN 4130 
4170 GOTO 4060 
4180 RETURN 


LN ¿ ; 
ЧЧ ЧУ ЧУ ЧУ ЧУ ЧУ ҮУ 





4000 HGR : HCOLOR= 3 

4020 HPLOT 0,0 TO 279,0 TO 279 

.159 TO 0,159 ТО 0,0 

4040 SP = 50:A = 70 

4060 HOME : УТАВ 21: PRINT "AN 

GULO -";A;" GRAUS " 

4065 УТАВ 24: PRINT "TECLE «CR 
PARA DISPARAR "; 

4070 GET A$: IF A$ < CHR$ 

(13) THEN 4070 

4075 АМ = А * АТМ (1) / 45 

4080 FOR T - 0 TO 250 STEP .5 

4090 H = SP * SIN (AN) * T - 

5 * 10 * T * T:X = SP * COS (A 

N) * T 

4092 IF H < 0 THEN T - 250: GO 

TO 4100 

4093 IF X > 275 THEN T - 250: 

GOTO 4100 

4094 IF H > 160 THEN POKE 769 

+200: POKE 768,2: CALL 770 


KINANIN 
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4095 IF H < 160 THEN HPLOT X 
+ 2,160 - H: POKE 769,H: POKE 7 
68,2: CALL 770 
4097 POKE - 16368,0 
4098 FOR D = 1 TO 20: IF PEEK 
( - 16384) < 128 THEN POKE - 
16368,0: NEXT 
4100 NEXT T 
4130 НТАВ 1: УТАВ 23: САМ. - 
958: VTAB 23: INPUT "NOVO: ANGUL 
O (0 TERMINA) ";A 
4160 IF AÀ < 0 OR A > 89 THEN 4 
130 
4170 IF A » 0 THEN 4060 
4180 RETURN 

A MAIOR CIA 





Ao executar a quarta opção, você po- 
derá ver a trajetória de um objeto lan- 
çado com uma velocidade inicial de 50 
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m/s e a uma inclinação de 70º (ambos 
os valores determinados na linha 4040 
e usados na linha 4090). 

A rotina funciona como as preceden- 
tes, exceto pelo fato de que se pode dar 
entrada a tantos ângulos quantos se de- 
sejar (entre 1º e 89º). Assim, toda vez 
que essa rotina for usada, a variável A 
da linha 4090 armazenará o ângulo que 
você escolheu. Desta vez, a rotina é um 
laço infinito, de modo que só se volta 
ao menu teclando-se O para um ângulo. 

Usando esta rotina, tente encontrar 
o ângulo que lhe dá a maior distância 
de percurso nas direções vertical e hori- 
zontal. Será fácil descobri-lo: é o nosso 
conhecido ângulo de 45º. 

Esse ângulo, porém, permite obter a 
maior distância apenas no caso em que 
os pontos de partida e de chegada estão 
no mesmo nível, pois é preciso levar em 
conta a resistência do ar. 









ACASO E 





A força de um computador está na 
sua capacidade de obedecer instrugóes 
repetidamente, com precisáo e velocida- 
de. Entretanto, quando comparado aos 
processos instantáneos de raciocínio do 
ser humano, o computador pode pare- 
cer lento e obsoleto. A mente humana 
é boa principalmente no que diz respei- 
to a julgar e comparar parámetros, tais 
como distáncia, velocidade e intensida- 
de de luz. 

Mas até o mais sofisticado dos órgãos 
comete erros ao calcular o resultado de 
eventos. Ainda assim, é essencial, por 
exemplo, poder dizer que, “para fins de 
seguro de vida, uma pessoa vive de 65 
a 70 anos”, ou que ''não é provável que 
a terra volte a tremer no México em 
1986". Tais afirmações são muito co- 
muns no nosso dia-a-dia. Além disso, 
são importantes para fins sociais, co- 
merciais e científicos. Assim, quando 
empregamos expressões como prós e 
contras, estimativa, dúvida, expectativa, 
estamos fazendo cálculos mentais de 
probabilidade. 


A PROBABILIDADE EXPLIC. 


Probabilidade é uma ferramenta 
científica para se medir o acaso. Usada 
para calcular o provável resultado de um 
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evento, ela se baseia na existéncia de um 
número mensurável de resultados, como 
num jogo de futebol, ou num lançamen- 
to de dados, ou de moedas, num jogo 
de cartas etc. Naturalmente, temos que 
poder medir ou quantificar os resulta- 
dos; por isso, eventos como corridas de 
cavalo ou jogos de futebol são assuntos 
difíceis para o cálculo de probabilida- 
des. Quando dizemos ““espero vencer”, 
na verdade, estamos afirmando ser alta 
a probabilidade de conseguir a vitória 
e não apenas nosso desejo de triunfar. 

A maioria das pessoas apóia-se na in- 
tuição como principal ferramenta no 
cálculo do acaso (ou probabilidade). En- 
tretanto, se quisermos examinar os efei- 
tos possíveis e, dentre eles, aqueles que 
são mais prováveis, num problema de 
probabilidade, podemos chegar a um re- 
sultado bastante preciso. Não é difícil 
aprender a prever os resultados mais 
prováveis, e mesmo que não possamos 
garanti-los, a possibilidade de acerto é 
bem maior que a de uma estimativa fei- 
ta a esmo. 


PROBABILIDADE E COMPUTAÇÃO 


Qual será então a relação entre pro- 
babilidade e computação? Embora o ti- 






MENERA! 


Um dos pioneiros da matemática modema, 
o francês Blaise Pascal foi 

o criador de um triângulo de números 
extremamente importante 

para o cálculo das probabilidades. 





po de probabilidade descrito até agora 
seja muito vago e dependente de estima- 
tivas, é possível deduzir fórmulas ma- 
temáticas para determinados aconteci- 
mentos que nos permitam prever os re- 
sultados mais prováveis com um certo 
grau de precisão. 

Existem duas maneiras pelas quais o 
computador pode ser útil aqui. A pri- 
meira delas consiste em programá-lo pa- 
ra simular o próprio evento — é bem 
mais cómodo fazer com que a máquina 
jogue um dado 2000 vezes e depois ana- 
lise o resultado do que termos nós mes- 
mos que fazé-lo. A segunda maneira, 
entretanto, só funciona quando conhe- 
cemos as fórmulas para um certo even- 
to; nesse caso, podemos fazer com que 
o computador calcule o resultado. 

Visto por alguns como um exercício 
puramente teórico, esse tipo de cálculo 
serve de base para muitas aplicações 
úteis do computador. Uma dessas apli- 
cações consiste nos jogos onde, por 
exemplo, os pontos ganhos dependem 
da probabilidade de certos resultados. 
Do mesmo modo, poderíamos escrever 
um programa que estabelecesse as pro- 
babilidades de chover num determina- 
do dia. Por enquanto, porém, vamos 
concentrar nossa atenção apenas na teo- 
ria. Mais adiante, trataremos da cons- 
trução de alguns desses aplicativos. 
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COMO MEDIR A PROBABILI 


A teoria de medição da probabilida- 
de requer que sejam conhecidos os re- 
sultados possíveis de um evento, e que 
eles ocorram com uma certa frequência, 
passível de ser medida. A probabilida- 
de de acontecer um certo evento é o nú- 
mero de vezes com que ele se repete (fre- 
qüéncia), comparado com o total de to- 
dos os resultados possíveis. Ou, em ou- 
tras palavras, é a freqüéncia expressa em 
fragáo do conjunto dos resultados pos- 
síveis. 

Devemos notar que, se um aconteci- 
meffto se repetir toda vez que ocorrerem 
certas circunstáncias, entáo sua proba- 
bilidade será igual a 1. Isso porque sua 
frequência será igual ao número de re- 
sultados possíveis, e a divisão de dois 
números iguais resulta em 1. Temos, en- 
tão, que 1 é a maior probabilidade pos- 
sível, e que a soma das frações de pro- 
babilidade de todos os resultados pos- 
síveis resultará invariavelmente nesse 
número. 

Um dos métodos mais simples e an» 
tigos de visualizar a probabilidade é lan- 
gar uma moeda e prever o resultado, ou 
seja, que face terá ao cair: cara ou co- 
roa. Como a moeda tem só dois lados, 
podemos inferir que, qualquer que fos- 
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se o número de lançamentos, deveria- 
mos obter cara, metade das vezes, e co- 
roa a outra metade, ignorando a remo- 
ta possibilidade de a moeda cair em pé 
Para ilustrar melhor esse método, di 
te e rode o primeiro programa: 


nau 


10 COLOR 1,3,3:CLS 

20 INPUT"QUAL O TESTE (1-4) "; 
30 CLS:IF X«1 OR X54 THEN 10 
40 ON X GOTO 70,70,180,460 

DO BEM 2202702: probabilidade 
60 REM...lançamento de moedas 
70 H=0:T=0 

80 LOCATES, 3: PRINT" PRESSIONE А 
TECLA DE ESPAÇO” 

85 LOCATE9,4:PRINT"PARA LANÇAR 
A MOEDA” 

90 LOCATE13,7:PRINT"CARAS: 
PRINTTAB (13) "COROAS: 0” 
100,AS=INKEYS: IFAS=CHRS (13) THE 
N SCREENO:RUN 














105 IFAS<>" "THEN 100 

110 IF X*2 THEN FORN-1 TO 100 
120 IFINT(RND(1)*2)+1=1 THEN H= 
H+1 ELSE T=T+1 

130 LOCATE20,7:PRINTH:LOCATE20, 
8:PRINTT 


140 IF X=1 THEN 100 
160 NEXTN:GOTO 100 


[E 








20 INPUT "QUAL Q TESTE (l-4) ? 
"X 

30 HOME : IF X « 1 OR X > 4 TH 
EN 5 

40 ON X GOTO 70,70,180,460 

50, WRW o oo PROBABILIDADE 
60 REM ..LANCAMENTO DE MOEDAS 
70 H = 0:T = 0 

80 PRINT "PRESSIONE A TECLA DE 
ESPACO" 

85 PRINT " PARA LANCAR A MO 
EDA" 

90 УТАВ (4): PRINT "CARAS: 0” 
: PRINT "COROAS: 0" 

100 GET AS: IF AS = CHRS (13) 
THEN TEXT : RUN 

105 IF A$ < >" ” THEN 100 
110 IF X * 2 THEN FOR N = 1 T 
о 100 

120 IF INT ( RND (1) * 2) * 1 
= 1 THEN H = H * 1: GOTO 130 
128 4 $ + 1 

130 УТАВ (4): HTAB (9): PRINT 
;H: HTAB (9): PRINT ;T 

140 IF X * 1 THEN 100 

160 NEXT N: GOTO 100 





10 PMODE 3,1:CLS 

20 INPUT"QUAL O TESTE (1-4) 
30 CL8:IF X<1 OR X>4 THEN 20 
40 ON X GOTO 70,70,180,460 
50 REM .... PROBABILIDADE 

.. LANCAMENTO DA MOEDA 











80 PRINT 665,"PRESSIONE A BARRA 
DE ESPACOS PARA LANCAR A MO 
EDA" 

90 PRINT 6288,"CARAS - 0":PRINT 
"COROAS- 0" 

100 AS=INKEY$S:IF AS<>” " THEN 1 
00 

110 IF X-2 THEN FOR N-1 TO 100 
120 IF RND(2)=1 THEN H=H+1:PRIN 
T 6204,"CA":PRINT €295,H;ELSE Т 
=T+1:PRINT €207,”C0”:PRINT €327 


‚Т; 

130 IF X=1 AND PEEK(345)<>247 T 
HEN 130 

140 PRINT 6204,"" 

150 IF X=1 THEN FOR D=0 TO 400: 
NEXT:GOTO 120 ELSE NEXT 

160 AS=INKEYS:IF AS<>CHRS(13) T 
HEN 160 ELSE END 


5 BORDER 7: PAPER 7: INK 9: 
CLS 

10 DIM n(4) 

20 RESTORE 9000: FOR n=1 TO 4 
: READ n(n): NEXT n 

30 INPUT "Qual o teste (l a 4 
)?",x: CLS 

40 BORDER x: GOTO n(x) 


50 REM Probabilidade 

60 REM Lancamento de Moeda 

70 LET h=0: LET t=0 

B0 PRINT AT 2,1;"Pressione «S 
PACE> para lancar" 

90 PRINT AT 20,10;"CARAS - 0" 
;AT 21,10;"COROAS- 0" 

100 IF INKEYS<>CHRS 32 THEN 
GOTO 100 

110 IF x-2 THEN 
100 

120 IF INT (RND*2)-1 THEN LET 
h*h*l: PRINT AT 10,15;"CA";AT 
20,1 GOTO 130 

125 LET t=t+ PRINT AT 12,15; 
"CO";AT 21,18; 
130 IF x=1 THEN 


FOR n=1 TO 












IF INKEYS<> 


CHR$ 32 THEN GOTO 130 



























140 PRINT AT 10,15;" ";АТ 12, 
: 7. 
150 IF x=1 THEN FOR m=1 TO 


100: NEXT m: GOTO 120 
155 NEXT n: STOP 
9000 DATA 70,70,170,460 


Este programa será incrementado mais 
adiante. Ao rodá-lo, seremos perguntados 
a respeito do número do teste que dese- 
jamos fazer. Esse primeiro programa con- 
tém somente os dois testes iniciais. Digi- 
te 1 e estaremos prontos para lançar a 
moeda — usando a tecla de espaço. O 
ponto crucial do programa está na linha 
120, que gera aleatoriamente valores 1 
(para cara) e O (para coroa), além de fa- 
zer a contagem do número de caras e co- 
roas obtidas). A linha 150 no programa 
do Spectrum e também no do TRS-Color 
provoca uma pausa entre as jogadas. 

Poucos lançamentos, provavelmente, 
fornecerão valores diferentes para cara 
e coroa, representados no programa pe- 
las variáveis H e T, respectivamente. 
Quanto maior o número de jogadas, 
mais próximas uma da outra serão as 
freqüências de H e T — tendendo, cada 
uma, à metade do número total de lan- 
çamentos (ou 50%). Para demonstrar 
esse efeito, rode o programa novamen- 
te, mas, desta vez, selecione o teste 2. 
Ao ser pressionada a tecla de espaço, um 
laço preparado pela linha 110 lançará a 
moeda cem vezes. Note que as duas va- 
riáveis, H e T, estão bem próximas de 
50. Mude o 100 da linha 110 para 1000, 
rode o programa e observe como cara 
e coroa tendem para 500. 

Pode acontecer que, num teste de 
poucas jogadas, todas elas sejam coroa. 
Apesar disso, a probabilidade de se ob- 
ter coroa será sempre igual a 1/2 (meio). 
Convém não nos esquecermos disso, 


principalmente quando estivermos tra- 
balhando com mais de um evento. Mui- 
tos acreditam que, se dez lançamentos 
seguidos de uma moeda derem cara, a 
possibilidade de se obter coroa na 
décima-primeira jogada será maior do 
que antes. Isso não é verdade; a possi- 
bilidade de dar coroa ainda será de 50%, 
Os eventos passados não têm influência 
sobre os lançamentos seguintes. No en- 
tanto, se lançarmos onze moedas ao 
mesmo tempo, a chance de se obter on- 
ze coroas será menor que a de obter dez 
coroas e uma cara. A maior chance é de 
que o número de coroas seja próximo 
ao número de caras. 


LTIPLOS EVENTOS 


Quando há vários eventos, algumas 
informações adicionais são necessárias 
para se poder prever a probabilidade de 
cada resultado. Uma informação essen- 
cial é o número total de resultados pos- 
síveis. Por exemplo, se lançarmos duas 
vezes uma moeda, teremos três resulta- 
dos possíveis: duas caras, uma cara e 
uma coroa, e duas coroas. À primeira 
vista, pareceria que cada resultado po- 
de ocorrer 1/3 das vezes. Na verdade, as 
probabilidades sáo duas caras acontece- 
rem 1/4 (25%) das vezes; duas coroas, 
1/4; e uma cara e uma coroa, 1/2, Para 
entender essa terceira probabilidade, pre- 
cisamos de outra informagáo essencial, 
que dé conta de quantas vezes cada re- 
sultado ocorre. Uma cara e uma coroa 
acontecem duas vezes, porque existem 
duas maneiras de se obter tal resultado; 
uma cara e depois uma coroa, ou uma 
coroa e depois uma cara. Conseguimos 
assim um total de quatro resultados, trés 
dos quais diferentes entre si. 

Na prática, costuma-se usar dois re- 
cursos matemáticos que nos poupam o 
trabalho de calcular a ocorrência de ca- 
da resultado: o teorema binomial e o 
triângulo de Pascal. Binomial significa 
“dois termos”. Se um evento tem só dois 
resultados possíveis e conhecemos a pro- 
babilidade de cada um deles, podemos 
usar o teorema binomial para calcular 
tais probabilidades. O teorema binomial 
nos diz o que devemos esperar de testes 
repetidos de um evento com dois resul- 
tados possíveis. Chamaremos P à pro- 
babilidade de um dos resultados e Q 
do outro (lembremos que a soma de P 
e Q deve ser igual a 1). Denominaremos 
N o número de eventos. 

No exemplo do lançamento de uma! 
moeda, P (digamos, a possibilidade de 
dar cara) e © (coroa) serão iguais а 1/2 
para cada jogada. De acordo com o teo- 
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rema binomial, a chance de que qualquer 
evento aconteca duas vezes seguidas é a 
probabilidade de que ocorra uma vez 
multiplicada por ela mesma. Em geral, 
a regra consiste na probabilidade do even- 
to elevado à poténcia N. Portanto, para 
o caso de duas caras seguidas, PIN = 
1/2x 1/2 = 1/4. Existe então uma chan- 
ce em quatro de que obtenhamos duas 
caras seguidas. Do mesmo modo, a pos- 
sibilidade de se conseguir cinco coroas 
sucessivas é PIN=(1/2 1 5), ou 1/32. 

Como veremos mais tarde, podemos 
usar esse método para calcular a proba- 
bilidade em qualquer caso onde existam 
somente dois resultados possíveis 
(sim/não ou cara/coroa, por exemplo). 
Mas qual seria a chance de se obterem 
três caras e duas coroas em cinco lança- 
mentos? Para responder a essa pergun- 
ta, precisamos de um modelo mais com- 
plexo, Muito útil neste caso é o triân- 
gulo de números, desenvolvido pelo ma- 
temático, físico e filósofo francês Blai- 
se Pascal. Esse triângulo fornece todos 
os resultados possíveis de um evento bi- 
nomial, e pode ser entendido como al- 
gumas fileiras de números. As primei- 
ras sete fileiras são: 





Fileira 0) l 
Fileira 1) 1 1 
Fileira 2) 1 2 1 


Ейеїга 3) 3 

Fileira 4) 1245 6 4 1 
Fileira 5) 1 5 10 107 5 1 
Fileira 6)1 6 15 20 15 6 1 


Para construir um triángulo como es- 
se, escreva primeiramente as fileiras 0 e 
1, as mais fáceis de serem lembradas. A 
fileira 2 comega com um 1 à esquerda 
da fileira 1 e termina com um 1 à direi- 
ta. O número do meio é obtido pela so- 
ma dos dois algarismos imediatamente 
acima dele (1 + 1). Da mesma maneira, 
a fileira 6 é obtida somando-se 5 + 1, 
54 10, 10-- 10, 102-5 e 5 1. Se conti- 
nuarmos com esse processo, teremos um 
triángulo com um nümero de fileiras ca- 
da vez maior, o que seria difícil de con- 
seguir com a utilização de qualquer ou- 
tro método. 

O triângulo de Pascal nos dá todas 
as informações de que precisamos quan- 
do lançamos diversas moedas (ou uma 
moeda várias vezes). O número de moe- 
das (ou de lançamentos) estabelece o nú- 
mero da fileira que devemos olhar; o nú- 
mero de itens na fileira determina o de 
resultados diferentes. Por exemplo, exis- 
tem duas possibilidades para uma moe- 
да (1 е 1 па fileira 1) e sete para seis 
moedas (1, 6, 15, 20, 15, 6, 1 na fileira 
6). A soma dos itens na fileira nos dá 








o número total de resultados (2 para 
uma moeda, 4 para duas moedas, e as- 
sim por diante). 

Cada número na fileira define a pro- 
babilidade. Por exemplo, na fileira 2, o 
primeiro número (1) é a probabilidade 
para duas caras; o segundo (2), a pro- 


babilidade para uma cara e uma coroa; 
o terceiro (1), para duas coroas. Eviden- 
temente, a frequência tem que ser divi- 
dida pelo número total de resultados (4, 
neste caso) para se obter a probabilida- 
de. Note que o resultado da adição dos 
números em cada fileira é sempre uma 
potência de dois (1, 2, 4, 8, 16). Isso 
acontece porque, para qualquer um dos 
eventos, há só duas opções: cara ou 
coroa. 

A praticidade desse método é posta 
à prova quando queremos, por exemplo, 
calcular as probabilidades de lançamen- 
to de trinta moedas; a construção de um 
triângulo com trinta fileiras seria muito 
trabalhosa, além de tomar muito espa- 
ço. Existe, porém, um método gráfico 





ao qual podemos recorrer em tais situa- 
ções, e é aqui que entra a ajuda do com- 
putador. 


IRVAS DE DISTRIBUICA! 


Onde existirem muitos resultados 
com probabilidades náo muito claras, 
conseguiremos quase sempre calcular o 
que precisamos, plotando (ou seja, mar- 
cando num gráfico) uma curva de dis- 
tribuicào, definida pela freqüéncia dos 
resultados que conhecemos. Como em 
qualquer método gráfico, as informa- 
ções nele contidas são percebidas logo 
de início. Se, por exemplo, uma moeda 
for lançada trinta vezes (o que seria o 
mesmo que lançar trinta moedas de uma 
só vez), podemos traçar um gráfico com 
o número de caras obtidas. Digite a pró- 
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xima secáo de programa, mas nào apa- 
gue a anterior: 








170 REM......picos randómicos 
180 SCREEN2:FORX=5 TO 255 STEP 
4 


190 GM=0:GOSUB 610 

200 FORY=0 TO H*6 STEP 2 

210 PSET(X,188-Y),1 

220 NEXT Y,X 

230 IFINKEYS=""THEN230 ELSE RUN 
610 H=0:T=0 

650 FORS=1 TO 30 

660 IFINT(RND(1)*2)+1=1 THEN Н= 
H*l ELSE T=T+1 

670 NEXT 

680 RETURN 


170 REM ..... PICOS ALEATORIOS 
180 HGR : HCOLOR= 3: FOR X = 4 
TO 275 STEP 10 
190 GM = 0: GOSUB 610 

200 FOR N = 0 TO H: HPLOT X,16 
0 - (N * 6): NEXT N 

220 NEXT X 
230 GET A$: 
0 
235 
610 


IF AS = "” THEN 23 


TEXT RUN 

REM ..... LANCAMENTO 

620 Н = 0:Т = 0 

630 HOME : VTAB (22): PRINT "C 
ARAS: ": PRINT "COROAS: " 

640 IF GM < > 0 THEN ЧТАВ (2 
2): HTAB (31): PRINT "JOGO: ";G 
M: HTAB (17): PRINT "CARAS EM 3 
O LANCAMENTOS” 


650 FOR S = 1 TO 30 

660 IF INT ( RND (1) * 2) * 1 
= 1 THEN H = H + 1: GOTO 668 
665 T* T* 1 

668 VTAB (22): НТАВ (10): PRIN 
T ;H: HTAB (10): PRINT ;T 

670 NEXT S 

680 RETURN 

170 REM .... GRAFICO 

180 PCLS4:SCREEN 1,0:FOR X=0 TO 
255 STEP 4 


190 GM=0:GOSUB 610 





FOR Y=0 TO H*6 STEP 2 
210 PSET(X,188-Y,2) 

220 NEXT Y,X 

230 GOTO 160 


200 


610 H=0:T=0 
650 FOR TS-1 TO 30 
660 IF RND(2)-1 THEN H-H*1 ELSE 


T=T+1 
670 NEXT 
680 RETURN 


LOA 00111111 


170 REM Grafico 


175 PLOT 0,0: DRAW 180,0 
180 FOR x=4 TO 160 STEP 4 
190 LET qm=0: GOSUB 610 


200 FOR n=0 TO h: PLOT x,n*6: 
NEXT n 

220 NEXT x 

230 STOP 

610 REM Lancamento 

620 LET h=0: LET t=0 

630 PRINT AT 4,22;"CARAS -"ih; 


AT 6,22;"COROAS-";t 

640 IF qm<>0 THEN PRINT AT 0, 

0;"JOGADAS-";gm;AT 21,3;"CARAS 

EM 30 LANCAMENTOS:" 

650 FOR s-1 TO 30 

660 IF RND>=.5 THEN 
PRINT AT 2,24;" 

ih;" ": GOTO 670 

665 LET t-t*1: PRINT AT 2,24;" 

CO ";AT 6,29;t;" " 

670 NEXT s 

680 RETURN 


LET h=h+1 
CA";AT 4,29 


Ao rodar o programa, desta vez, se- 
lecione o teste 3. Devemos ver na tela 
um gráfico com uma série de pontos 
chegando a vários picos. Esta é uma das 
muitas formas possíveis nesse tipo de 
análise. Os picos sáo os números de ca- 
ras em cada trinta lançamentos ao lon- 
go do eixo Y, espaçados igualmente ao 
longo do eixo X. Existem mais picos al- 
tos do que baixos. A razão disso é que 
a possibilidade de se obter cerca de quin- 
ze (ou de doze a dezessete) caras é mui- 
to maior que a de se obter um número 
menor ou maior. Isso também pode ser 
observado no triângulo de Pascal, onde 
os valores mais altos se encontram na re- 
gião central. 

A linha 180 gera um laço para espa- 
çar os pontos ao longo do eixo X, A va- 
riável GM (número de jogadas) é zera- 
da na linha 190 e uma rotina (linhas 610 
a 680) é chamada para executar cada ba- 
teria de trinta lançamentos. Essa rotina 
usa os elementos do segundo teste, mas 
lança a moeda ““eletrônica”” trinta vezes 
e não cem. Com exceção do TRS- 
COLOR e do MSX, ao rodarmos esse 
teste, notaremos o placar para cara e co- 
roa que aparecerá na tela. Uma vez atin- 
gidos os trinta lançamentos, o número 
de caras que foi acumulado na rotina so- 
frerá um ajuste de escala na linha 200 
e será plotado na coordenada Y pela li- 
nha 210 (linha 200, no Spectrum e no 
Apple). 

Para tirar o máximo proveito de uma 
análise desse tipo, precisamos rearran- 
jar as informações, de modo que obte- 
nhamos uma das curvas mais conheci- 
das no meio estatístico: a distribuição 
normal. Digite mais estas linhas para 
obtermos tal curva: 


q 


450 REM...distribuicáo normal 
460 DIM G(30) 

470 CLS:SCREEN2:LINE(6,0)-(6,19 
1),15:LINE-(255,191),15 

480 GOSUB 560 

485 AS=INKEYS:IFAS<>” "THEN 485 
560 DEF FNN(X)=1/(4.4429*2.718” 


((X*x)/2)) 

570 DRAW"BM7,190":FORX-2 TO 255 
STEP2 

580 LINE- (X,191-640*FNN( (X-127) 
/24)),1 


590 NEXT: RETURN 


ra 





450 REM ..DISTRIB NORMAL 

460 DIM G(30): HGR : HCOLOR= 3 
470 HPLOT 0,0 TO 0,159: HPLOT 
TO 279,159 

480 GOSUB 560 

485 GET AS: IFAS< >” ” THE 
N 485 

490 END 

560 REM GRAFICO 

565 DEF ЕМ М(Х) = 1 / (4.4429 
* 2.718 * (X * X) / 2) 

570 FOR X * 1 TO 280 STEP 2 
580 HPLOT X,158 - 660 * FN N( 
(X - 140) / 24) 

590 NEXT X: RETURN 





450 REM DISTR.NORMAL 

460 DIM G(30) 

470 PCLS:SCREEN 1,0:LINE(0,0)-( 
0,191) ,PSET:LINE- (255,191) ,PSET 


480 GOSUB 560 


485 AS=INKEYS:IF AS<>”" " THEN 4 
85 

560 DEFFND(X)=1/(4.4429*2.718” ( 
(X*X) /2)) 

570 COLOR 2,3:DRAW"BM2,190":FOR 
X-2 TO 255 STEP 2 

580 LINE- (X,191-640*FND( (X-127) 
/24)) ,PSET 

590 NEXT:RETURN 


450 REM Distr.Normal 
460 DIM 9(30) 
470 PLOT 4,150: 
DRAW 245,0 

480 GOSUB 560 
485 IF INKEYS<>CHRS 32 THEN 
GOTO 485 

560 REM Graf 
570 PLOT 4,10: 
STEP 20 

580 DRAW 4,600*FN n(ABS 
600)/140))*10-PEEK 23678 
590 NEXT x: RETURN 

600 DEF EN n(x)=1/(P1*1.4142* 
2.718” ((x"2)/2)) 


DRAW 0,-140: 


FOR x=0 TO 1200 


((x- 


Desta vez, rode o programa e selecio- 
ne o teste 4, que é o de uma curva de 
distribuição do tipo normal. A linha 460 
dimensiona uma matriz que será usada 
posteriormente na contagem das caras 
obtidas. 

A linha 470 desenha os eixos das 
coordenadas X e Y e a linha 480 chama 
a rotina que desenha a curva. Essa roti- 
na usa uma função matemática (linha 
580) para desenhar a curva, o que ex- 
plica a forma *'perfeita"" desta última. 
A fungáo é definida pelas linhas 560 








































(MSX e TRS-Color), 565 (Apple e 
TK-2000) e 600 (Spectrum). Por enquan- 
to, porém, náo aperte nenhuma tecla, 
pois a rotina está incompleta. Aguarde 
o desenvolvimento do programa. 

Quando usamos informações reais, 
torna-se difícil plotar uma curva conti- 
nua. Isso já era de se esperar, pois esta- 
mos lidando com probabilidades e não 
com certezas. A probabilidade de um re- 
sultado, tal como o de chover na Índia 
na época das monções, pode ser alt: 
mas, no caso do exemplo, têm sido r 
gistrados períodos em que a seca toma 
o lugar das chuvas. 

O próximo teste ilustra muito bem es- 
se ponto. Ele repete várias vezes os ex- 
perimentos anteriores das moedas e co- 
loca no gráfico (plota) os resultados ob- 
tidos. Digite entáo a segunda parte do 
teste 4: 


nau 


490 
500 
510 
520 


FOR GM-1 TO 500 

GOSUB 610 

G(H) *G(H) *1 

PSET (H*8*7,192-G(H) *2),1 
530 NEXT 

540 GOTO 230 


(411%) 


490 FOR GM - 
500 GOSUB 610 
510 G(H) * G(H) * 1 

520 HPLOT 20 * 8 * H,160 - G(H 
y a 
530 

540 


1 TO 200 


NEXT GM 
GOTO 230 














490 
500 
510 
520 
530 
540 


FOR GM=1 TO 500 

GOSUB 610 

G(H)*G(H)*l 

PSET (H*8*7,192-G (H) *2,3) 
NEXT 

GOTO 160 


490 FOR 9=1 TO 200: LET qm=q 


500 GOSUB 610 

510 LET 9(h)=9(h)+1 

520 PLOT 8+8*h,10+4*g9 (h) 
530 PRINT AT 21,27;h;" " 
540 NEXT g 

550 STOP 


Agora, rode novamente o quarto tes- 
te. Quando a curva ideal tiver sido de- 
senhada, pressione a tecla de espaco pa- 
ra iniciar o lancamento. Aparecerá en- 
tão uma série de pontos “crescendo” 
para preencher o espaço compreendido 
pela curva. Quando o teste estiver com- 
pletado, quinhentos pontos (duzentos 
no Spectrum e no Apple) terão sido co- 
locados no gráfico (especificados na li- 
nha 490). Em alguns micros, tal como 
no Spectrum, o tempo de execução des- 
se teste é de alguns minutos. Para 
acelerá-lo, costuma-se inserir desvios 
(GOTO) em lugares apropriados ao lon- 
go do programa, mas na maioria das ve- 
zes isso traz alteração no funcionamen- 
to dos outros testes. 

Esta seção do programa chama a ro- 
tina (linha 500) que lança a moeda trin- 
ta vezes (no Apple e no Spectrum, os 
lançamentos são mostrados na tela, co- 
mo no terceiro teste). Cada bateria de 
trinta lançamentos forma um jogo, e po- 
de resultar em certo número de caras en- 
tre 0 e 30. Portanto, na matriz da linha 
460, H pode variar de O a 30. Se anali- 
sarmos pela óptica da lei das probabili- 
dades, veremos que muito dificilmente 
H assumiria valor O ou valor 30 numa 
bateria de trinta lançamentos. Uma si- 
tuação assim é conhecida como “ocor- 
rência rara”, justamente pela maneira 
com que os números aleatórios são ge- 
rados. Na verdade, números extrema- 
mente pequenos ou extremamente gran- 
des de caras em lançamentos como esse 
não acontecem com freqüéncia. Sua 
ocorrência é possível, mas a probabili- 
dade é muito baixa. 

A linha 510 faz a contagem do resul- 
tado de cada jogo por intermédio de 
uma matriz. Por exemplo, toda vez que 
o resultado de um determinado jogo for 
onze caras, o elemento de matriz G(11) 
será incrementado de 1. Da mesma ma- 
neira, toda vez que o resultado for quin- 
ze caras, G(15) será também incremen- 
tado de 1. Inicialmente, todos os ele- 


mentos da matriz são iguais a zero. 

Após cada jogada, a linha 520 altera 
a escala do valor de H (número de ca- 
ras em trinta lançamentos), a fim de 
compatibilizá-lo com os eixos X e Y. A 
próxima vez que ocorrer o mesmo resul- 
tado, um ponto será plotado na mesma 
coordenada X, mas uma unidade acima 
na coordenada Y. 

A linha 530 faz a contagem do H em 
cada jogada, verificando também o nú- 
mero de jogadas. 


COMO USAR A CURVA 


Rode algumas vezes o teste 4 para ter 
uma idéia de como variam os pontos sob 
a curva; depois, rode-o com menores va- 
lores finais para GM na linha 490. Mes- 
mo sem a curva ideal, seremos logo ca- 
pazes de imaginar uma curva idealiza- 
da passando pelos picos. Na prática, o 
inverso desse processo imaginário é ex- 
tremamente importante, pois quando 
conhecemos o perfil de uma curva po- 
demos fazer a previsáo do resultado de 
testes futuros. 

O valor de H no pico central tem um 
interesse especial, Ele é a média dos 31 
possíveis valores ao longo do eixo X 
(neste caso, 15). A média identifica o pi- 
co da curva, e constitui também o valor 
mais provável; sozinha, porém, ela nào 
é muito informativa. Embora possamos 
dizer que 15 seja o resultado mais pro- 
vável, 14 e 16 sào quase tào prováveis 
quanto ele. Existe uma faixa de valores 
comuns em torno do pico, e é importan- 
te conhecer a largura desta faixa. A mé- 
dia é usada na especificação de um ou- 
tro parâmetro estatístico importante — 
o desvio padrão —, que é a medida da 
largura da faixa de pontos comuns. A 
fórmula para o desvio padrão é relati- 
vamente complicada. Uma vez calcula- 
do esse parâmetro, podemos atribuir 
uma probabilidade para qualquer um 
dos pontos na curva. 

O desvio padrão mede o quanto os 
valores variam nos dois lados da média. 
Por exemplo, uma seção de curva com 
desvio padrão de 1,96 em cada lado da 
média englobará 95% dos resultados. Se 
aumentarmos o desvio padrão para 
2,58, a curva passará a conter 99% dos 
resultados. 

Os pacotes comerciais de software es- 
tatístico calculam o desvio padrão com 
grande facilidade e rapidez. 


SEIS RESULTADOS POSSIVEIS 


Existem muitos casos de eventos on- 
de temos mais do que dois resultados 


possíveis. Em tais casos, calcular a chan- 
ce de algum evento nào é tào simples co- 
mo olhar uma fileira do triángulo de 
Pascal. 

Por exemplo, quando jogamos um 
dado, podemos conseguir um entre seis 
resultados. Se o dado nào for viciado, 
todos os resultados sáo equiprováveis, 
ou seja, tém a mesma possibilidade de 
vir a acontecer. 

Os resultados para o langamento de 
dois dados podem ser calculados por in- 
termédio da construção de uma tabela; 
mas, quanto mais resultados tivermos, 
mais complicado ficará o método que te- 
remos de seguir. 

Aqui está uma tabela com todos os 
resultados possíveis no lançamento de 
um par de dados: 


Valor do primeiro dado 
5 


3 
Valor do 1 2 3 4 5 6 7 
segundo 2 3 4 5 6 7 8 
dado 3 4 5 6 7 8 9 
4. $60 8 9 30 
sS 6 7008 ОШО 
6 7 8 910 11 12 


Como vemos na tabela, existem 36 
maneiras diferentes de os dados caírem 
(seis linhas vezes seis colunas), embora 
haja somente onze resultados diferentes. 
A tabela apresenta várias outras infor- 
mações. Existe uma possibilidade em 36 
de obtermos os pontos mínimo e máxi- 
mo (2 ou 12 aparecem somente uma vez 
na tabela); em contrapartida, há seis 
possibilidades em 36 (1/6) de obtermos 
7 como resultado. Existe também uma 
chance em 36 de jogarmos repetido. Es- 
sa chance é mostrada na diagonal que 
vai de 2 (duas vezes o número 1) até 12 
(dois 6). 

Combinando o teorema binomial 
com essa tabela, podemos calcular as 
probabilidades para muitos jogos. Um 
bom exemplo de evento de múltiplo lan- 
gamento de dados é o jogo Monopólio, 
onde o jogador, caso esteja na ''ca- 
deia”, tem direito a três lances para ten- 
tar conseguir uma dupla (dois dados 
iguais). Intuitivamente, pode parecer 
que ele conta com 50/50 de possibilida- 
des de sair da ''cadeia'' (trés jogadas, 
cada uma com 1/6 de chance), mas isso 
não é verdade. Pela tabela, podemos ve- 
rificar que a chance de o jogador não 
conseguir uma dupla é de 30/36 (5/6) 
para cada jogada. Usando o teorema bi- 
nomial, perceberemos facilmente que a 
chance de ele não conseguir uma dupla 
três vezes seguidas é 5/6 elevado à po- 
tência 3, ou 125/216. Isso equivale, 
aproximadamente, a 58% de possibili- 
dades de fracasso. 
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SIMULAÇÕES п 


ESPACIAIS 


E ESCOLHA DA TRAJETÓRIA 
AVALIAÇÃO DA DISTÂNCIA 
CIRCUNDANDO A TERRA 
MANOBRAS NO ESPAÇO 
Ш MOVIMENTO PLANETÁRIO 











Atingir as estrelas é um antigo sonho 
do homem. Com nossos programas, 
que permitem simular a trajetória de 
um corpo no espaço, você estará 
mais perto da realização desse sonho. 


No artigo sobre trajetórias (página 
766), vimos como a velocidade de um 
projétil pode ser separada, para fins de 
análise, em uma componente vertical e 
outra horizontal. Vimos também como 
a distância do ponto de partida ao pon- 
to de chegada pode mudar conforme o 
ângulo de lançamento e a velocidade ini- 
cial. Neste artigo, avançamos mais um 
pouco no estudo dos corpos em movi- 
mento. Analisamos objetos que se mo- 
vem em campos de baixa gravidade, si- 
mulando sua trajetória a partir de pe- 
quenas distâncias da superfície da Ter- 
ra e estudando corpos em órbita. 

Digite este primeiro programa. Ele é 
um bom exemplo de como utilizar seu 
conhecimento de trajetórias para mon- 
tar jogos que usam disparos ou outros 
lançamentos mais desafiadores. 


10 FOR n=0 TO 31: 
"a"*n,a 


READ a: 


POKE USR : NEXT n 








20 BORDER 4: PAPER 0: INK 9: 
Св 

70 LET a=INT (RND*5): LET b= 
INT (RND*5)+26: LET c=INT ( 


RND*8)+2: LET h=INT (RND*8)+2 
LET st-INT (RND*100-c*8)*1: 
LET d-0 

90 LET d=d+1 

100 CLS : GOSUB 300 

110 INPUT "ANGULO ?”,a2 

120 IF a2>89 OR a2<]1 THEN 

сото 110 

130 INPUT "VELOCIDADE ?",e 

140 IF e=0 THEN GOTO 100 

160 LET an=aZ*(PI/180): LET 

х-0 

170 

180 


LET x2-x*(a*1)*8 
LET y-8*(x*TAN an-4*x*x/(e 





10;"ERROU !": GOTO 280 

275 PRINT INVERSE 1;AT 8,10;" 
BOM TIRO !";АТ 10,5; "УОСЕ CONS 
EGUIU APOS ";d 

280 PAUSE 100: PRINT BRIGHT 1 
; PAPER 2; INK 6;AT 13,8;"OUTR 
A VEZ?": PAUSE 200 

290 GOTO 70 

300 PRINT INK 5;AT 21,a;CHR$ 
144;AT 21,b;CHRS 146 

310 FOR n=] TO c: PRINT AT 21- 








n+1,12;: FOR m=1 TO c: PRINT 
INK 6;CHR$ 147;: NEXT m: NEXT 
n 
320 RETURN 
500 DATA 3,6,60,40,104,60,126, 
255 
510 DATA 36,90,165,90,60,155, 
24,60 
520 DATA 24,36,66,153,153,66, 
*e*COS an*COS an)) 36,127 
185 IF ATTR (21-INT (y/8), INT 530 DATA 28,42,85,170,127,170, 
(x2/8))-6 THEN GOTO 245 85,255 


190 IF y<=0 THEN GOTO 245 
200 1F (y>175 OR x2>255) AND d 
<10 THEN GOTO 90 

205 IF y>175 OR x2>255 THEN 


GOTO 270 10 PMODE 4:DIM G(1),E(1),T(1),B 
210 PLOT INK 8;x2,y: SOUND (1) 
-01,у/10 20 FOR K=1536 TO 2528 STEP 32:R 


220 LET x=x+3 

230 GOTO 170 

245 IF x2>=b*8+3 AND x2<=b*8+ 
10 THEN PRINT AT 21,b;CHRS 
145: FOR n=20 TO 0 STEP -1: 
SOUND .01,n: NEXT n: GOTO 270 
246 IF d<10 THEN GOTO 90 

270 IF d=10 THEN PRINT AT 8, 


EAD A:POKE K,A:NEXT 

30 GET (0,0)-(7,7),G,G:GET(0,8) 
-(7.15),Е,6 

40 GET (0,16)-(7,23),T.G:GET(O, 
24)-(7,31),B,G 

50 DATA 3,6,60,40,104,60,126,25 
5,36,90,165,90,60,155,24,60 
60.DATA 24,36,66,153,153,66,36, 








ЕЕ 











127,28,42,85,170,127,170,85,255 
70 A=RND(51)-1:B=RND(51)+197:C= 
RND (8) :H=RND(8)+1:8T=RND(100-C* 
8)+7 "0:CL8 

80 D=D+1 

90 PCLS:SCREEN 1,1:GOSUB 320 
100 IF INKEYS="" THEN 100 

110 PRINT: INPUT ” ANGULO ";AZ 
120 IF A2>89 OR A2<1 THEN 110 
130 INPUT ” VELOCIDADE ";E 

140 IF E-0 THEN 130 

150 SCREEN 1,1 

160 АМ“А2%АТМ(1)/45:Х“0 

170 X2-X*A*8 

180 Y=183- (X*TAN (AN) -4*X*X/ (E*E 
*CO8 (AN) *COS (AN) ) ) 

190 IF Y>190 THEN 250 

200 IF X2»-8T AND X2<8T+C*8+7 A 
ND Y>183-H*8 THEN 250 

210 IF Y>0 THEN PSET(X2,Y,5):80 
UND 200-Y,1 ELSE SOUND 255 AND 
(200-Y),1 

220 X-X*3 

230 IF X2<255 THEN 170 

240 GOTO 290 

250 IF Y>190 THEN Y=184 

260 PUT(X2-4,Y) - (X2*3, Y*7) , E, PS 
ET:PLAY"T5001ADECBFGAEDBGDE" 
270 PUT(A,184) - (A*7,191) ,G, PSET 
:PUT (B, 184) - (B*7,191), T, PSET 
280 IF X2>=B AND X2<B+7 THEN 30 
0 

290 IF DX10 THEN 80 

300 CLS:IF D=10 THEN PRINT 841, 
” ERROU |” ELSE PRINT 641,"BOM 
TIRO !”:PRINT 6164," VOCE CONSE 
GUIU APOS";D;"DISPAROS." 

310 FOR W=1 TO 3000:NEXT:PRINT: 
PRINT” OUTRA VEZ ...”:FOR W=1 T 
O 1200:NEXT:GOTO 70 

320 FOR X=0 TO C:FOR Y=0 TO H:P 
UT (8T*X*8,184-8*Y) - (ST*4X*8*7,19 
1-8*Y),B,PSET 

330 NEXT Y,X 

340 PUT(A,184)-(A+7,191) ,G,PSET 
:PUT(B,184)-(B+7,191),T,PSET:RE 
TURN 











10 W=RND(-TIME) 

70 A=INT(RND(1)*51) :B=INT(RND(1 
)*51+198) :C=INT (RND(1)*8+1) :H=1 
NT (RND (1) *9) *2:8T*INT (RND(1)*(1 
01-C*8))+70:D=0:CLS 

80 D=D+1 

90 SCREEN2:GOSUB 320 

100 IF INKEY$="" THEN 100 

110 SCREENO:PRINT: INPUT" Angulo 
";AZ 
120 
130 
140 
150 
160 


IF A2>89 OR A2<1 THEN 110 
PRINT: INPUT"Velocidade ";E 
IF E*0 THEN 130 
SCREEN2:GOSUB 320 
AN=A2*ATN (1) /45:X=0 

170 X2=X+A+8 

180 Y=183- (X*TAN (AN) -4*X*X/ (E*E 
СОЗ (АМ) *COS (AN) ) ) 

190 IF Y>190 THEN 250 

200 IF X2>=ST AND X2<ST+C*8+7 A 
ND Y>183-H*8 THEN 250 


ОТИ 


210 IF Y>0 THEN PSET(X2,Y):AS=" 
N"*STR$ (INT((190-Y) /2)) *"L19" :P 
LAY AS 

220 X=X+3 

230 IF X2<255 THEN 170 

240 GOTO 290 

250 IF Y>190 THEN Y=184 

260 LINE (X2,Y)-(X2,Y-8) : PLAY ” 
O1AAA" 

280 IF X2>=B AND X2<B+7 THEN 30 


0 

290 FOR W=1 TO 1500:NEXT:IF D<1 

0 THEN 80 

300 SCREENO:IF D=10 THEN PRINT: 
PRINT"TUDO FOI EM UAO!" ELSE PR 
INT:PRINT"BOM TIRO!”:PRINT"Você 
acertou em”";D;"disparos!” 

310 FOR W=1 TO 3000:NEXT:PRINT: 
PRINT"Outra vez...”:FOR W=1 TO 
1500:NEXT:GOTO 70 

320 FOR X=0 TO C:FOR Y=0 TO H:P 
SET (ST+X*8,184-Y*B) 

330 NEXT Y,X 

340 LINE (A,184)-(A+5,184):LINE 
(A*3,184)-(A*3,180) :LINE (B,18 
4)-(B*5,184):LINE (B*3,184)-(B* 
3,180) : RETURN 


10 FOR I = 770 TO 795: READ A: 
POKE I,A: NEXT 
20 POKE 768,2 
70 A = INT ( RND (1) * 51):B = 


INT ( RND (1) * 51 + 198):C = 


Vênus 


INT ( RND (1) * 8) + 1:H = І 
NT ( RND (1) * 9) + 2:8T = INT 
( RND (1) * (101 - C * 8)) +7 
0:0 = 0: НОМЕ : ЧТАВ 21 
80D=D+1 
90 HGR : HCOLOR= 3: GOSUB 320 
100 GET AS 
110 INPUT "ANGULO? ”;A2 
120 IF A2 > 89 OR A2 < 1 THEN 





110 

130 УТАВ РБЕК (37): НТАВ 20: 
INPUT "VELOCIDADE? ";E 

140 IF E = O THEN 130 

160 AN = AZ * АТМ (1) / 45:X = 
0 

170 X2 = X+A+8 

180 Y = 157 - (X * ТАМ (AN) - 
4*X*X/ (E *E* COS (AN) 
* COS (AN))) 

190 IF Y > 160 THEN 250 

200 IF (X2 > = ST) AND (X2 < 
ST + C * B + 7) AND (Y > 157 - 
H * 8) THEN 250 

210 IF Y > 0 THEN HPLOT X2,Y: 
POKE 768,2: POKE 769,200 - Y: 
CALL 770 

220 X= Xx + 3 

230 IF X2 < 259 THEN 170 

240 GOTO 290 

250 IF Y > 158 THEN Y * 158 
260 HPLOT X2,Y TO X2,Y - 8: FO 
R X = 1 TO 12:W = PEEK ( - 163 
36): NEXT 

280 IF X2 > = ВАМ X2 < B + 
7 THEN 300 

290 FOR I = 1 TO 1000: NEXT : 














TI a E A 








HA 





€ mercúrio 





IF D « 10 THEN 80 

300 FOR I - 1 TO 1500: NEXT 
HOME : TEXT : IF D = 10 THEN P 
RINT : PRINT "TUDO FOI INUTIL!" 
: GOTO 310 





305 PRINT : PRINT "BOM TIRO!": 
PRINT "VOCE ACERTOU EM ";D;" D 
ISPAROS!" 


310 FOR I - 1 TO 4000: NEXT 
PRINT PRINT "QUTRA VEZ...”: F 
OR 1 = 1 TO 4000: NEXT GoTo 7 


0 

320 FOR X = 0 TO C: FOR Y = 0 

TO H: HPLOT ST + X * 8,158 - Y 

* 8 

330 NEXT : NEXT 

340 HPLOT A,158 TO A + 5,158: 

HPLOT A + 3,158 TO A + 3,150: H 
PLOT B,158 TO B + 5,158: HPLOT 

B + 3,158 TO B + 3,150: RETURN 


5000 DATA 172,1,3,174,1,3,169 
,4,32,168,252,173,48,192,232,20 
8,253,136,208,239,206,0,3,208,2 
31,96 


O programa solicita que vocé especi- 
fique a velocidade e-o ángulo de lanca- 
mento para executar um disparo de um 
ponto próximo ao canto inferior esquer- 
do da tela até um alvo situado junto ao 
canto inferior direito. Dois fatores difi- 
cultam o jogo: a determinação aleató- 
ria da distância entre o ponto de lança- 
mento e o alvo e a presença de uma bar- 


reira de tamanho variável entre os dois 
pontos. Qualquer trajetória que se es- 
colha deve ser alta o bastante para trans- 
por essa barreira. 


ҮҮӨ TÁNCIA 





0А 





Conhecemos só as posições do atira- 
dor, do obstáculo e do alvo. No entan- 
to, podemos estimar corretamente a ve- 
locidade e o ângulo necessários para 
produzir uma curva que leva o projétil 
acima do obstáculo até atingir o alvo. 
Com um pouco de prática, você verá 
que é possível obter grande proporção 
de acertos em uma série de tiros. 

Mas, em geral, as coisas não são tão 
fáceis. Muitas vezes temos apenas uma 
idéia aproximada da distância até o al- 
vo, e devemos calcular a velocidade e 
ângulo de tiro com este dado impreci- 
so. Analisando se o tiro caiu para cá ou 
para lá do alvo, avaliações mais preci- 
sas vão sendo feitas, até que se consiga 
sucesso. O programa seguinte mostra es- 
se processo. Depois de gravar o progra- 
ma anterior, apague-o e digite estas 
linhas: 


-10 CLS 

20 INPUT "VELOCIDADE INICIAL 
(1-10000 m/s)",sp 

30 IF sp<l OR sp>10000 THEN 
GoTo 20 

40 INPUT AT 4,0;"ANGULO (1-90 
graus)”,a 

50 IF a<l OR a>=90 THEN GOTO 
40 

60 LET a=a*(P1/180) 

70 LET r-sp*sp*SIN (2*a)/10 
80 PRINT AT 10,3;"0 ALCANCE F 
OI DE ";INT (r*.5);" metros" 
90 PRINT AT 20,1;"QUALQUER TE 
CLA PARA RECOMECAR (0 SAI)" 

100 PAUSE 0: LET a$-INKEYS: IF 

a$2"" THEN GOTO 100 

110 IF a$4»"0" THEN GOTO 10 


10 CL8 

20 INPUT” VELOC. INICIAL (1-100 
00 M/S) ";8Р 

30 IF SP<1 OR 8P>10000 THEN 10 
40 INPUT” ANGULO (1-90 GRAUS)"; 
A 

50 IF AX1 OR A>90 THEN 40 

60 A=AXATN (1) /45 

70 R=SP*XSP*XSIN(2*A)/10 

80 PRINT:PRINT” O ALCANCE FOI D 
E”; INT(R+.5);"METROS” 

90 PRINT:PRINT” QUALQUER TECLA 
PARA RECOMECAR '0' SAI" 

100 AS=INKEYS:IF A$="" THEN 100 


110 IF AS="0” THEN CLS:END ELSE 
10 


10 CLS 

20 INPUT"VELOCIDADE DE LANCAMEN 
TO (1-10000 M/S)";SP 

30 IF SP<1 OR SP>10000 THEN 10 
40 INPUT"ANGULO DE LANCAMENTO ( 
1-90 GRAUS)";A 

50 IF AX1 OR A589 THEN 40 

60 A*A*ATN(1)/45 

70 R-SP*SP*SIN(2*A) /10 

BO PRINT:PRINT"A DISTANCIA ALCA 
NCADA £";INT(R*.5);"METROS" 

90 PRINT:PRINT"PRESSIONE <0> PA 
RA TERMINAR OU QUALQUER ouT 
RA TECLA PARA CONTINUAR"; 

100 AS-INKEYS:IF A$-"" THEN 100 
110 IF AS-"O" THEN CLS:END ELSE 
10 


10 HOME 

20 INPUT "VELOCIDADE DE LANCAM 
ENTO (1-1000 M/S)? ";SP 

30 IF SP < 1 OR SP > 10000 THE 
N 10 

40 INPUT "ANGULO DE LANCAMENTO 
(1-90 GRAUS) ";A 

50 IF AÀ < 1 OR À > 89 THEN 40 


60 А = А ж АТМ (1) / 45 

70 В = SP * SP * SIN (2 * A) / 
10 

80 PRINT PRINT "A DISTANCIA 
ALCANCADA E DE "; INT (R + .5); 
” METROS” 

90 PRINT PRINT "TECLE <0> PA 


RA TERMINAR OU QUALQUER 

OUTRA TECLA PARA CONTINUAR" ; 
100 GET AS 

110 ІҒ А5 - "0" THEN HOME : E 
ND 

120 coro 10 





O programa pede valores para a ve- 
locidade inicial (linha 20) e para o ân- 
gulo de lançamento (linha 40). A linha 
70 calcula e mostra a distância a que es- 
ses dois valores levariam o projétil. A 
variável R corresponde à distância; SP 
refere-se à velocidade e A, ao ângulo. 
O valor aproximado para a aceleração 
da gravidade próximo à superfície da 
Terra é igual a 10. 

Ignora-se o efeito da resistência do ar 
mas, em experimentos reais, ele deveria 
ser considerado. A maior velocidade de 
lançamento permitida é 10000 m/s. A 
velocidade de 2000 m/s foi usada em 
lançamentos de objetos a grandes alti- 
tudes, para pesquisar o espaço. Os ob- 
jetos atingem 180 km de altitude quan- 
do lançados a um ângulo de 90º. Mas, 
sem contar a resistência do ar, chegam 
a 250 km. 
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Se um objeto é lançado em um ân- 
gulo que o leva muito longe da superfí- 
cie da Terra, o efeito da fricção do ar 
diminui. Porém, quando se pretende 
que ele atinja uma grande distância do 
ponto de lançamento, é preciso levar em 
conta a curvatura da Terra. 

Um dos primeiros a considerar esta 
questão foi o cientista inglês Isaac New- 
ton. Ele imaginou um poderoso canhão 
que lançasse seus projéteis do alto de 
uma montanha suficientemente grande 
para que seu pico ficasse fora da atmos- 
fera terrestre. Tiros dados a velocidades 
crescentes levariam a distâncias também 
crescentes se a Terra fosse plana. Mas, 
como ela é curva, a superfície se afasta 
do ponto de lançamento, fazendo com 
que o projétil percorra distâncias ainda 
maiores. 

Eventualmente, argumentava New- 
ton, um lancamento poderia ter uma ve- 
locidade inicial táo alta que o projétil 
nunca atingiria o solo, mas poderia, em 
termos teóricos, atingir o pesquisador 
bem na nuca. Á medida que o projétil 
caísse em direção ao solo, este ““cairia”” 
sob ele (visto que a Terra é redonda). 
Dessa maneira, o projétil ficaria para 
sempre em queda livre — ou seja, esta- 
ria em órbita. 

Uma vez que um objeto escapa da 
gravidade de um planeta, sua velocida- 
de e distância determinam um tipo de 
órbita — circular ou elíptica. 

Para que se possa prever a trajetória 
e fazer medições relacionadas a um pla- 
neta ou satélite, sua órbita precisa ser 
conhecida, ou seja, devemos saber a for- 
ma exata da elipse. O grau de “'achata- 
mento” da elipse é sua excentricidade 
(E), que corresponde à proporção entre 
seu comprimento e sua largura. Quan- 
do E é igual a 1, temos uma elipse tão 
larga quanto comprida, ou seja, um 
círculo. 

Digite e execute este programa para 
ver o efeito da variação de E entre va- 
lores menores e maiores que 1: 


10 cLs 

30 INPUT 
a 1.9)",e 
40 IF e<.1 OR e>1.9 THEN 
сото 30 

50 PLOT 127,87+e*40 

60 FOR a=0 TO 2*PI*.2 STEP .1 
70 DRAW 127*(40*SIN a)-PEEK 
23677,87*(e*40*COS a)-PEEK 
23678 

80 NEXT a 


"EXCENTRICIDADE (.1 








90 PRINT AT 20,1;"QUALQUER TE 
CLA PARA RECOMECAR (0 SAI)" 
100 PAUSE 0: LET aS=INKEYS: 

IF 4$="" THEN GOTO 100 

110 IF a$4»"0" THEN GOTO 10 


órbita diferente. Quanto menor for o 1 
raio da órbita, maior será a velocidade  — | 
com que o objeto deve se mover. Digite 

o próximo programa para ver como is- 

so funciona: 


10 PMODE 4,1:PCLS 

30 CLS:INPUT"EXCENTRICIDADE (.1 
À 1.9) ";E 

40 IF E<.1 OR E>1.9 THEN 30 

50 SCREEN 1,1 

70 CIRCLE (128,96) ,48,5,E 

100 AS=INKEY$S:IF AS: THEN 100 
110 IF A$-"0" THEN CLS:END ELSE 
30 


nu 


30 CLS:INPUT"EXCENTRICIDADE (0. 
1 A 1.9)”;E 
40 IF E<.1 OR E>1.9 THEN 10 





50 SCREEN 2:COLOR 15,4,4 

70 CIRCLE(128,96),48,15,,,E 

100 AS-INKEYS:IF AS-"" THEN 100 
110 IF A$-"0" THEN CLS:END ELSE 
30 

10 TEXT 

30 HOME INPUT "EXCENTRICIDAD 


Е (0.1 А 1.9) ";Е 
40 IFE < .1 OR E > 1.9 THEN 3 
0 


50 HGR2 : HCOLOR= 3 

60 X = 130:Y = 90 

70 РОВА = 0 ТО 2 * 3.1416 STE 
Р .05 

80 HPLOT X * 45 * SIN (A),Y 
(E * 45 * COS (A)) 

90 NEXT 

100 GET A$ 

110 IF AS = "0" THEN TEXT : H 
OME END 

120 GOTO 10 


O programa gira entre as linhas 30 e 
110 para desenhar elipses. A linha 30 de- 
termina o valor de E de acordo com sua 
escolha. O TRS-Color e o MSX usam 
o comando CIRCLE (linha 70) para de- 
senhar as curvas. Os outros micros em- 
pregam um laço FOR...NEXT para de- 
senhar cada ponto. 

Digite valores de E na faixa indicada 
na tela. E igual a 1 corresponderá a um 
círculo; E menor que 1, a uma elipse 
achatada em cima e embaixo, e E maior 
que 1, a uma elipse achatada lateralmen- 
te. Assim, toda órbita pode ser conside- 
rada uma elipse, com um valor particu- 
lar de E. 

Uma vez em órbita, um satélite ou 
uma espaçonave não precisam de pro- 
pulsão, pois estarão caindo livremente. 
O uso de foguetes irá movê-los para uma 





= RND*60): IF ABS (r-rt)<10 80 ГЕТ а=а+в 
THEN GOTO 40 100 LET at=at+.1*SQR ((40/rt)” 
50 CIRCLE 127,87,4 3) 
10 CLS : ТЕТ gc=0 60 LET s=.1: LET a=0: LET at= 110 IF INKEY$="7" AND r<85 
40 LET r=40: LET rt=10+INT ( INT (RND*10)*1: LET f-0 THEN LET f=f+l: LET r=r+2 























LET s-s*SQR (((r*2)/r)^3): 
GOTO 130 

115 IF INKEY$-"6" AND r>8 THEN 
LET f=f+1: LET r=r-2: LET s=8 
*SQR (((r*2)/r)^3): GOTO 130 
120 FOR p=1 TO 5: NEXT p 

130 LET x=r*SIN a: LET y=r*COS 


a 
140 LET xtert*SIN at: 
t*COS at 

150 PLOT 127*x,87*y 
160 SOUND .02,r/2 
165 IF 9c<>0 THEN PLOT 
1;127%ох,87%оу 

170 PLOT OVER 1;127+xt,87+yt: 
LET ox=xt: LET oy=yt: LET qc=] 
180 IF ABS (x-xt)>4 OR ABS (y- 
yt)>4 THEN GOTO 80 
190 PRINT AT 20,12; 
200 GOTO 200 


LET yter 


OVER 


” PONTOS” 





10 PMODE 4:PCLS:SCREEN 1,1 
40 R=30:RT=10+RND(70) :IF ABS(R- 
RT)<20 THEN 40 

50 DRAW”BM128,96S8NUNRNDL” 

60 8=.1:A=0:AT=RND(10) :F=0 

80 A=A+S 

95 LT=AT 

100 AT-AT*.1*SQR((40/RT) ^3) 

110 IF PEEK(341)=247 AND R<95 T 
HEN F=F+1:R=R+1:S=S*SQR(((R-1)/ 
R)^3)ELSE IF PEEK(342)-247 AND 
R>8 THEN F=F+1:R=R-1:8=S*SQR ( (( 
R+1)/R)"3) ELSE FOR K=1 TO 25:NE 
XT 





130 X*R*SIN (A) : Y*R*COS (A) 

140 XT-RT*SIN (AT) : YT-RT*COS (AT) 
150 PSET(128*X,96-Y,5) 

160 SOUND R*2,1 

170 PSET(128*XT,96-YT,5) 

175 PSET(128+RT*SIN(LT), 96-RT*C 
OS(LT),0) 

180 IF ABS(X-XT)>="4 OR ABS (Y-YT 
)>=4 THEN 80 

190 CLS:PRINT" VOCE USOU";F;"TO 
QUES” 


PS 


5 W-RND(-TIME) 

10 SCREEN2 

40 R=30:RT=INT(RND(1)*70)+11:1F 
ABS(R-RT)<20 THEN 40 

50 CIRCLE (128,96),2 

60 S=.1:A=0:AT=INT(RND(1)*11)+1 
:F=0 

80 A=A+S 

95 LT=AT 

100 AT=AT+.1*SQR((40/RT) 3) 

105 FOR I=1 TO 5:AS=INKEYS:IF A 
$<>”” THEN 1=5 

234 NEXT 

110 IF AS-CHR$(30) AND R«95 THE 
N F=F+1:R=R+1:S=S*SQR ( ((R-1) /R) 
53) 

120 IF AS=CHR$(31) AND R>8 THEN 
F=F+1:R=R-1:S=S*SQR ( ((R+1)/R)” 
3) 





































140 XT = RT * 
* COS (AS) 
150 HPLOT 128 * X,96 - Y 
170 HPLOT 128 * XT,96 - YT 
175 HCOLOR= 0: HPLOT 128 + RT 
Ж SIN (LT),96 - RT * COS (LT) 
: HCOLOR= 3 
180 IF ABS (X - XT) > = 4 OR 
ABS (Y - YT) > = 4 THEN 80 
190 TEXT : HOME : PRINT "VOCE 
USOU ";F;" TOQUES" 


SIN (AS):YT = RT 











MANOBRAS NO ESPACO 



















Executando o programą 
um satélite-alvo e a trajetória 
pave em órbita. Tente igualar as duas 

















Órbita de quatro planetas internos. 


130 
140 
150 


X=R*SIN (A) : Y=R*COS (A) 
XT=RT*SIN (AT) :YT=RT*COS (AT) 
PSET (128*X,96-Y) 

170 PSET (128*XT,96-YT) 

175 PSET (128*RT*SIN(LT),96-RT* 
COS(LT)),0 

180 IF ABS(X-XT)>=4 OR ABS(Y-YT 
)>=4 THEN 80 

190 SCREENO:PRINT"VOCE USOU”;F; 
"TOQUES” 


Cad) [có] 


10 HGR2 

40 R = 30:RT * INT ( RND (1) * 
70) + 11: IF ABS (R - RT) < 2 
0 THEN 40 

50 HPLOT 126,96 TO 130,96: HPL 
OT 128,94 TO 128,98 
60 8 = .1:A = 0:AS = 
(1) * 11):F =,0 
В0А-А%8 

95 LT = AS 

100 АЗ = АЗ + .1 х 
RT) ^3) 

105 POKE - 16368,0 
110 IF PEEK ( - 16384) = 181 
AND R < 95 THEN F = F + 1:R=R 
+ 1:8 = 8 * SOR (((R - 1) / R 
ESA 

120 IF PEEK ( - 16384) = 182 
АМО В > 8 THEN F = F + 1:R=R 


INT ( RND 


SQR ((40 / 


- 1:8 * 8 * SQR (((R * 1) / R) 
= 

125 РОКЕ - 16368,0 
130 Х = В * SIN (A):Y =R>* C 
05 (А) 


linha 100, que usa uma imp 
da física: o quadrado do tei 
percorrer uma órbita coi 

pelo cubo do raio é u: 

essa razão, o SQR e à potência 3 estão 
na linha 100. 











bita. Lembre-se € 
órbita, maior a 


VIMENTO PLANETARIO 


Na realidade, manobrar de uma ór- 
bita para outra é muito mais complica- 
do do que sugere o programa anterior. 
A dificuldade nào se encontra na mu- 
danga de uma órbita para outra, mas na 
localização de um alvo na vastidão do 
espaço. E, para complicar um pouco 
mais, é preciso levar em consideração 
que a gravidade do Sol, da Lua e, tam- 
bém, dos planetas tem efeito sobre o 
movimento de uma espaçonave. 

Na prática, poderosos computadores 
são as ferramentas dos navegantes do es- 
paço. Eles controlam a velocidade, o 
tempo e a direção dos foguetes, garan- 
tindo que estes se mantenham na traje- 
tória desejada. 

Uma vez na órbita correta, a nave cai 
livremente no campo gravitacional do 
sistema solar. Ela precisa apenas de pe- 
quenas correções de curso no decorrer 
de meses e até anos de viagem — é qua- 
se tão previsível quanto os planetas que 
circundam o Sol. 

O programa seguinte permitirá a ob- 
servação do movimento dos planetas. 
















L 120 Ров q-1 TO s 



























10 BORDER 4: CLB : LET qc=0 
20 DIM d(9): DIM p(9): DIM i( 
9): DIM a(9): DIM b(9): DIM x 
(9): DIM y(9) 

30 FOR t=1 TO 9: READ d(t),p( 
t): NEXT t 

40 INPUT "Quantos planetas (1 
-9) ?",8 

50 IF s<l OR 8>9 EN GOTO 
40 

60 LET sc-d(s)/32 LET t-p(s 
)/75 

70 PRINT "Ha um espaco de "; 
INT t;” dias”'"entfe cada pon 
to.": PRINT $1;" <BPACE 
CONTINUAR" 


32 THEN 





0 сы 
PRINT $1;"PR 
PARA RECOMECAR" 
110 LET n-1: LET m^ 
/180 


ONE «SPACE 


| 130 LET r-d(q)/sc: 
шт ыт: LET e=0: 
| 140 IF q-1 THEN LE 
b-a*.98 
150 IF q=8 THEN LE 
LET b=a*.96 
160 LET 1(q)= 
180 LET y=9 
05 


00 

BRIGHT 0 7+y (a) 

210. PLO' B 127*a(q)/4, 
87+b(q)/4: Li d) *a(q)/4: 


LET y(q)*b(q)/4 
240 LET a(q)*x: Li 
NEXT q 

250 LET memtt 


260 IF INKEYS-CHR$ 32 THEN 
RUN 
270 LET gc-1: GOTO 120 


280 DATA 58,88,108,225,150,365 
‚228,687 

290 DATA 778,43 
2870,30685 


8,1427,10759, 


b 300 DATA 4497,60190,5969,90741 





10 PMODE 4:PCI 
20 DIM D(8) ,P(8),1(8),A(8) ,B(8) 


30 FOR T=0 TO” 8:READ D(T),P(T): 

NEXT 

40 CL8: INP! " QUANTOS PLANETAS 
(1.9) ";8 

50 IF S<ISOR S>9 THEN 40 


0 S*8-J*SC-D(8)/90:T-P(8)/75 
70 NT:PRINT" HÀ UM ESPACO DE 
";INT(T);"DIAS":PRINT" ENTRE CA 
DA PONTO":PRINT:PRINT:PRINT "PR 
ESSIONE<ESPACO>PARA CONTINUAR” 
75 IF INKEYS<>” ” THEN 75 
80 SCREEN 1,1 
90 CIRCLE (128,96) ,1,5 
110 G=ATN(1)/45 

















120 
130 
)/T 
140 
150 
155 
160 


FOR Q=0 TO 8 
R*D(Q)/SC:A*R 





IF Q=0 THEN E=.2 
IF Q-8 THEN E*.2! 
IF 855 AND Q<6 THEN 245 

IF P>3 THEN P=INT(P+.5) 

170 1(0)“1(0)%360/Р 

180 Y=G*I (Q) :X=INT (A* (COS (Y) -E) 
) :Y=INT(B*SIN(Y)) 





200 CIRCLE (128*A (Q) ,96-B(Q)) ,1, 
0 
220 PSET (128*A(Q),96-B(Q),5) 
230 CIRCLE (128*X,96-Y),1,5 
240 A(Q)=X:B(Q)=Y 
245 NEXT 

0 M=M+T 


INKEY$=" " THEN RUN 
TO 120 
'A 58,88,108,225,150,365, 


АТА 778,4333,1427,10759,28 
85 


40 INPUT"QUANTÓ 
"uS 

50 IF S<l OR S>9 THB 

60 S-S-1:SC-D(S) /90:T: 
70 PRINT:PRINT"na un Ar! Q DE" 
FINT(T);"DIAS ENTRE CADA PONTO” 
: PRINT:PRINT:PRINT"TECLE A BARR 
A DE ESPAÇOS PARA CONTINUAR” 

75 IF INKEYS<>” " THEN 75 

80 SCREEN 2 

90 CIRCLE (128,96),1,15 

100 G=ATN(1)/45 

0 FOR 0-0 ТО 8 

R=D (Q)/SC:A=R:B=R:E=0:P=P(Q 


PLANETAS (1-9) 











40 
81/75 

















)/T 
140 
150 
160 





IF Q=0 =.2:B=A*.98 
ІЕ 0-8 THEN ¿B=A*.96 
IF P>3 THEN P=INT(P 
170 I(Q)*I(Q)*360/P 
180 Y=G*I (Q) :X=INT(A*(COS (Y) -E) 
) :Y=INT(B*SIN(Y)) 

200 CIRCLE(128*A(Q),96-B(Q)) 1, 
15 


220 PSET(128*A(Q),96-B(Q)),5 
230 CIRCLE(128*X,96-Y),1,6 

240 A(Q)*X:B(Q)*Y 

245 NEXT 

250 M=M+T 

260 IF INKEY$=" " THEN RUN 

270 GOTO 120 

280 DATA 58,88,108,225,150,365, 
228,687 

290 DATA 778,4333,1427,10759,28 
70,30685 

300 DATA 4497,60190,5969,90741 
10 TEXT 


20 DIM D(8),P(8),1(8),A(8),B(8 
) 

30 FOR T = 0 TO 8: READ D(T),P 
(T): NEXT 

40 HOME : INPUT "QUANTOS PLANE 
ТА8 (1-9) ";8 

50 IF 8 < 1 OR 8 > 9 THEN 40 
60 8 = 8 - 1:8C = D(S) / 90:T = 
P(S) / 75 

70 PRINT : PRINT "HA UM ATRASO 


DE "; INT (T);" DIAS ENTRE CAD 
A PONTO": PRINT : PRINT "TECLE 
A BARRA DE ESPACOS PARA CONTINU 
AR" 

75 GET A$: IF A$ < > CHRS (3 


2) THEN 75 
80 HGR2 : HCOLOR= 3 
90 HPLOT 128,96 


110 G = АТМ (1) / 45 

120 FOR Q = 0 TO 8 

130 R * D(Q) / SC:À * R:B * R:E 
= 0:P = P(Q) / T 


140 IF Q* 0 THEN E * .2:B * A 
* .98 

150 IF Q = 8 THEN E = .26:B = 
À * .96 

155 ТЕ 8 > 5 AND Q < 6 THEN 24 
5 

160 IF P > 3 THEN P = ІМТ (Р 
IS 


170 I(Q) * I(Q) * 360 / P 













180 Y = G * I(Q):X = INT (A * 
( COS (Y) - E)):Y * INT (B * 
SIN (Y)) 
200 HCOLOR- 0: HPLOT 129 + A(Q 
),96 - B(Q) TO 128 * A(Q),95 — 
B(Q) TO 127 * A(Q),96 - B(Q) TO 
128 * A(Q),97 - B(Q) 

210 HCOLOR= 3: HPLOT 128 + A(Q 
,96 - B(Q) 

60 HPLOT 129 + X,96 - Y TO 12 

,95 - Y TO 127 * X,96 - Y 

TO 1 + X,97-* 
240 X:B(Q) - Y 
245 
250 

260 РОКЕ 6968,0 
265 IF РЕЕК ( 246384) > 128 
THEN RUN 

270 GOTO 120 

280 DATA 55,88,108,229$150,36 








28,687 


290 69, 






778,4333,1427,10 


2870,3068 
300 DATA 90,5969,90/4 
1 


Ao executar o programa, vocé deve 
escolher o número de planetas que de- 
seja ver. Quanto maior o número deles, 
mais complicada a figura. Para identi- 
ficar os planetas, lembre-se de que Mer- 
cúrio está mais perto do Sol, seguido por 
Vênus, Terra, Marte, Júpiter, Saturno, 
Urano, Netuno e Plutão. 

Execute o programa com diferentes 
valores. Note que as órbitas de dois pla- 
netas — Mercúrio e Plutão — são elíp- 
ticas. Na verdade, as outras também o 
são, mas têm uma excentricidade tão pe- 
quena que parecem circulares. 











AVALANCHE: 





Um jogo de agáo náo seria completo 
sem uma abertura musical. Nosso video- 
game toca a melocia Greensleeves, no 
tom e ritmo corretos. Talvez você criti- 
que nossa escolha, por julgá-la pouco 
adequada a um videogame. Contudo, de 
acordo com a lenda, Henrique VIII es- 
creveu essa melodia para sua esposa Ana 
Bolena. Mais tarde, ela teve um fim bas- 
tante trágico, assim como será o de Wil- 
lie, se cometer qualquer descuido no jo- 
go. Além disso, não teremos que pagar 
direitos autorais — o que é muito im- 
portante... 


A rotina Assembly listada a seguir 
utiliza a sub-rotina da ROM que contro- 
la o comando SOUND, o que facilita a 
execução das notas musicais. 


10 REM org 60000 
20 REM ld ix,57359 
30 REM msk 1d b,19 
40 REM tune push bc 
50 REM 1d d, (1x+1) 
60 REM 1d e, (ix*0) 
70 REM 1d h, (ix*3) 
80 REM ld 1,(1x+2) 
90 REM push ix 

REM call 949 
REM pop ix 

REM 1d de,4 
REM add ix,de 
REM pop bc 

REM djnz tune 
REM ret 


120 
130 
140 
150 
160 


Podemos escolher qualquer melodia, 
contanto que fornegamos a essa rotina 
as informações necessárias sobre o que 
vai tocar. O programa BASIC que apre- 
sentamos a seguir coloca na memória os 
dados que o computador precisa para 
executar Greensleeves. As notas, com 
suas respectivas durações, formarão 
uma espécie de tabela, colocada logo 
abaixo da tabela ASCII que contém os 
textos do título e das instruções. 


5 CLEAR 57358 

10 FOR n=57359 TO 57434 STEP 
2: READ a: POKE п+1,ІМТ (а/ 
256): POKE n,a-(256*INT (a/ 
256)): NEXT n 

20 DATA 98,1460,233,1223,131, 
1086,220,964,78,908,147,964, 





EFEITOS SONOROS 


Vamos ouvir um som antes de colocar 
nosso personagem em cena. Que tal um 
grande sucesso de 1560? Sente-se diante 
de seu micro e prepare uma abertura 
musical digna de Avalanche. 








261,1086,110,1297,131,1642,49 
.1460,110,1297,233,1223,98, 
1460,147,1460,44,1642,98,1460 
,220,1297,92,1548,220,1959 


COMO FUNCIONA 


A rotina começa colocando o ende- 
reço 57359 no registro IX. Como regis- 
tro-índice, IX vai servir de apontador e 
seu valor inicial corresponde ao início 
da tabela de notas. 





Em seguida, 19 é colocado em B, re- 
gistro que servirá como contador, Seu 
conteúdo inicial corresponde ao núme- 
ro de notas que serão executadas (o tre- 
cho de Greensleeves que vamos tocar 
tem dezenove notas). Esse valor é guar- 
dado temporariamente na pilha, pelo 
comando push be. O registro C precisa 
ser guardado junto com o B porque não 
existe um comando que guarde registros 
de oito bits na pilha. As instruções push 
e pop só aceitam pares de registros co- 
mo operandos. 

Mas por que guardar o valor de Be 
C na pilha, se nenhum dos dois regis- 


tros será usado até que a instrucáo pop 
be recupere seu conteúdo original? Es- 
ta é uma boa pergunta. Enquanto o va- 
lor de BC está na pilha, o programa cha- 
ma uma sub-rotina da ROM, que pode 
muito bem usar o registro B. Embora 
uma sub-rotina possa alterar o valor de 
qualquer registro, ela sempre deixa a pi- 
Iha intacta. Assim, sempre que chama- 
mos uma sub-rotina que nào conhece- 
mos bem, devemos guardar o conteúdo 
dos registros importantes na pilha. 

O primeiro nümero da tabela é colo- 
cado em DE; o segundo, em HL. A ope- 
ração, diferentemente do usual, empre- 
ga comandos com endereçamento inde- 
xado, de modo que IX é usado como 
apontador. Os registros têm que ser car- 
regados um de cada vez, já que não há 
comandos que carreguem pares de regis- 
tros nesse tipo de endereçamento. Se 
consultarmos a listagem do programa 
BASIC, veremos que cada número ocu- 
pa dois bytes, ainda que muitos sejam 
menores que 256. 

Os números formam pares. O primei- 
ro valor determina a duração da nota — 
na realidade, ele especifica o número de 
ciclos gerados pela rotina do comando 
SOUND. O número corresponde, en- 
tão, à fregiiência da nota multiplicada 
pela sua duração em segundos. O segun- 
do número determina a tonalidade da 
nota. Para calcular seu valor, podemos 
usar a fórmula 437500/f-30125, onde f 
é a freqüéncia da nota. 

A rotina coloca o conteúdo de IX na 
pilha, para preservar o valor do apon- 
tador, e, em seguida, chama a sub-ro- 
tina da ROM. A sub-rotina do coman- 
do SOUND é chamada pela instrução 
call 949. Ela usa os valores de HL e DE 
para produzir o som. A instrucáo pop 
ix recupera da pilha a posicáo do apon- 
tador na tabela de notas; o ponteiro 
avanca um par de notas, com a coloca- 
ção de 4 em DE (ld de, 4) е a soma des- 
se valor a IX (add ix, de). O emprego de 
add é necessário, já que não existe uma 
instrução especial para somar valores ao 
índice IX. Poderíamos usar quatro ins- 
truções inc ix, mas o processo seria mais 
demorado. 

O valor original do contador volta 
para BC. A instrução djnz subtrai uma 
unidade de B e, se este não foi ainda re- 
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duzido a zero, ela faz o processador vol- 
tar para emitir mais uma nota. Após de- 
zenove notas, o processador deixa o la- 
ço e encontra ret. 

Para testar a sub-rotina, utilize 
RAND USR 60000, mas não se esqueça 
de que a tabela de notas deve estar re- 
gistrada na memória. 





T S E М! IA 


Mesmo depois de toda aquela conver- 
sa sobre Henrique VIII, talvez você 
queira ouvir outra música. Embora não 
seja aconselhável fazer a substituição 
dentro do nosso jogo, você pode usar a 
rotina separadamente. 

Escolha a música de sua preferência 
e traduza-a nos parâmetros que a roti- 
na utiliza para emitir notas musicais. 
Lembre-se, contudo, de que melodias 
diferentes requerem um outro valor pa- 
ra o contador B, que determina o nú- 
mero de notas executadas. 


O TRS-Color executa a melodia 
Greensleeves por intermédio da rotina 
Assembly, que é dada a seguir. Não se 
esqueça de aumentar a memória dispo- 
nível com POKE 25,6:POKE 26,1:NEW 
e também de proteger uma área para o 
programa em código. 

10 ORG 30000 
20 LDX $MUSIC 








BTX MUPOINT 
LDA 419 
PSHS A 
LDA $FFO1 
ANDA 4247 
STA $FF0l 
LDA $FF03 
ANDA $247 
STA $FFO3 
LDA $FF23 
ORA 48 
STA $FF23 
MAIN LDU MUPOINT 

ORCC #850 

PULU A,X 

CMPU $MUSIC*57 

BLO MONE 

LDU (MUSIC 

MONE STU MUPOINT 

PSHS X 

LDB 4252 

MTWO STB SFF20 

MTHR LEAX -1,X 

BNE MTHR 

LDX ,8 

CLR $FF20 

MFOU LEAX -1,X 

BNE MFOU 

LDX ,8 

DECA 

BNE MTWO 

LEAS 2,8 

DEC ,8 

BNE MAIN 

ANDCC ФЗАҒ 

PULS A,PC 

MUPOINT FDB $758A 
MUSIC FCB 98,0,189,233 
FCB 0,158,131,0 
FCB 141,220,0,125 
FCB 78,0,118,147 
FCB 0,125,255,0 
FCB 141,110,0,168 








460 FCB 131,0,212,49 
470 FCB 0,189,110,0 
480 FCB 168,233,0,158 
490 FCB 98,0,189,147 
500 FCB 0,189,44,0 

510 FCB 212,98,0,189 
520 FCB 220,0,168,92 
530 FCB 0,200,220,0,252 


O programa tem duas entradas: uma 
fica em 30000 e outra em 30008 (linha ' 
50). Se a rotina for chamada pelo pri- 
meiro endereço, executará a melodia in- 
teira; se for chamada pelo segundo, exe- 
cutará apenas uma nota. Esta última op- 
ção permite que se toque a melodia sem 
interromper a ação do jogo. Podemos 
tocar uma nota, fazer alguma outra coi- 
sa na tela, tocar outra nota, e assim por 
diante. 


ARMAZENE A MELODIA 


O valor do rótulo MUSIC é coloca- 
do no byte rotulado MUPOINT. Em- 
bora na listagem — e, posteriormente, 
na memória — o valor de MUSIC já es- 
teja nesse byte, usa-se MUPOINT para 
guardar a posição da última nota exe- 
cutada, o que é útil quando tocamos a 
melodia uma nota de cada vez. 

O comando LDA #19 coloca no 
acumulador o número de notas do tre- 






AS, 






















cho de Greensleeves que vamos execu- 
tar — dezenove. Se vocé náo quiser to- 
car a melodia inteira de uma vez, colo- 
que no acumulador o número de notas 
que pretende ouvir. Assim, optando pe- 
la execugáo da música nota por nota, 
vocé deverá colocar 1 em A. 

O conteúdo de A é levado para a pi- 
Iha da máquina por PSHS A. Trata-se, 
porém, apenas de uma armazenagem 
temporária. Mais tarde, o programa 
precisará do nümero de notas. 

As nove instruções que se seguem via- 
bilizam a produção de sons, colocando 
os valores apropriados no chip de som 
do TRS-Color. 


A ROTINA PRINCIPAL 


MUPOINT aponta para a próxima 
nota a ser executada, de modo que o en- 
derego do próximo byte da tabela de no- 
tas é colocado no apontador da pilha do 
usuário pelo comando LDU MU- 
POINT. Isto efetivamente transforma a 
tabela de notas na pilha do usuário. 

A instrução ORCC #$50 impede — 
“desabilita””, no jargão da informática 
— interrupções, mascarando o conteú- 
do do registro indicador de status. 
Quaisquer que sejam os valores dos bits 
4 e 6 desse registro, eles passam a ser 1 
quando fazemos a operação “ou” en- 
tre seu conteúdo e 50 em hexadecimal 
(80 em decimal). 









Como U está apontando para a ta- 
bela de notas, a instrução PULU A,X 
traz para dentro de A o próximo byte 
da tabela, e para dentro de X os dois 
bytes seguintes. Além disso, também so- 
ma 3 ao registro U, que passa a apon- 
tar para o próximo byte. 

Os dados necessários para o som vém 
em grupos de trés bytes. O primeiro cor- 
responde ao número de vezes que a no- 
ta será tocada. Os dois seguintes deter- 
minam a duração que influi na freqüén- 
cia da nota. 

Em seguida, o registro U é compara- 
do com #MUSIC +57, o endereço fi- 
nal da tabela de notas. O comando BLO 
provoca um desvio se o valor de U for 
menor, pois, nesse caso, ainda não che- 
gamos ao fim da tabela e a próxima ins- 
trução será ignorada. Ela colocaria o en- 
dereço inicial da tabela de volta no 
apontador e a música poderia, então, ser 
tocada novamente. 

De qualquer maneira, o valor do 
apontador volta para MUPOINT, para 
que o processador saiba qual é a próxi- 
ma nota. A duração da nota, que se en- 
contra em X, é colocada temporaria- 
mente na pilha da máquina. 

As instruções LDB #252 е ЅТА 
$FF20, referentes ao conversor analógi- 
co-digital, preparam-se para usar o alto- 
falante da TV. LEAX — 1,X diminui o 
valor de X, e BNE faz o processador re- 
petir a instrucáo anterior, até que X se- 
ja zero. 

LDX ,S coloca o valor da pilha em 
X, funcionando como um PULS X, sem 
somar nada, no entanto, ao apontador 








da pilha. CLR SFF20 desliga o alto- 
falante da TV e a mesma rotina de con- 
tagem em X é repetida. 

O valor da pilha retorna a X e o nú- 
mero de vezes que a nota vai ser tocada 
é diminuído em uma unidade — DECA. 
Outra instrução BNE faz o processador 
repetir o laço MTWO, até que A seja re- 
duzido a zero. 

A instrução LEAS 2,8 limpa a pilha 
e DEC ,S subtrai 1 do conteúdo do pró- 
ximo byte da pilha da máquina — nú- 
mero de notas, colocado na pilha no iní- 
cio. BNE MAIN faz o processador vol- 
tar e executar a próxima nota, caso o nú- 
mero de notas náo tenha sido reduzido 
a zero. 

ANDCC #AF permite novamente 
— ou seja, “reabilita”” — a ocorrência 
de interrupções, “desmascarando”” o re- 
gistro de status. Finalmente, PULS 
A,PC retira dois valores da pilha da má- 
quina, colocando em A o valor da nota 
— reduzido a zero — e em PC, os pró- 
ximos dois bytes. Eles correspondem ao 
endereço de retorno da sub-rotina, co- 
locado ali quando a rotina foi chama- 
da. O procedimento, nesse caso, é equi- 
valente a um comando RTS. 


Para dotarmos nosso videogame de 
uma trilha sonora, precisaremos utilizar 
o microprocessador especial que o MSX 
possui para produzir sons: o PSG — 
Programable Sound Generator. Apre- 
sentamos, no artigo publicado à página 




















diferença entre os comandos 
outi e otir no MSX? 

No artigo da página 213, vimos co- 
mo empregar o comando de ação em 
bloco otir. Aqui, utilizamos um coman- 
do muito parecido: outi. 

Tanto otir como outi sáo usados 
quando se quer transferir dados que es- 
táo em uma tabela na memória RAM, 
através de uma porta de saída. Esses 
dois comandos agem sobre os registros 
HL, B e C. HL é usado como aponta- 
dor, B como contador e C contém o nú- 
mero da porta de saída. Assim, antes 
da primeira execução do comando, o 
par HL deve conter o endereço inicial 
da tabela, e o registro B, o número de 
elementos da mesma. 

Ambos somam uma unidade ao con- 
teúdo de HL e subtraem o mesmo de 
B. Mas há uma diferença entre eles: o 
comando otir repete esta operação 
muitas vezes, transferindo vários ca- 
racteres até que B seja reduzido a ze- 
ro; outi, por sua vez, só transfere um 
número a cada execução. 

O comando otir é, por si mesmo, um 
laço completo, u 
tador e fazendo si 
dicador de zeros. Mostra-se, portanto, 
mais adequado quando queremos 
transferir dados a grande velocidade. 
No artigo anterior, aqui mencionado, 
ele foi utilizado para transferir um ban- 
co de caracteres para a memória de 
vídeo. 

Já a instrucáo outi deve fazer parte 
de um laco. Ela vai diminuindo o valor 
de B, mas não é capaz de descobrir por 
si mesma que este foi reduzido a zero. 
Para isso, o programador precisa incluir 
um teste do tipo jr nz. O emprego da 
instrução outi é, assim, mais indicado 
quando precisamos interromper a 
transferência dos dados a todo instan- 
te para a realização de algum tipo de 
processamento. Em nosso caso, jamais 
poderíamos transferir valores para o 
PSG em alta velocidade — obteríamos 
barulho, e não música. 

A transferência foi feita numa velo- 
cidade irregular, sendo interrompida 
por pausas cuja duração é variável. A 
execução dessas pausas e a constan- 
te mudança nos números dos registros 
que estavam sendo alterados — envia- 
dos por out 160,a — correspondem à 
realização de algum tipo de proces- 
samento. 














168, uma introdução ao funcionamen- 
to desse dispositivo. 

O PSG possui catorze registros. Os 
valores ali colocados determinam os di- 
versos parâmetros do som produzido. 
Podemos controlar a tonalidade, o vo- 
lume e sua evolução ao longo do tempo 
(envoltória ou envelope). Temos à nos- 
sa disposição três canais, que funcionam 
simultaneamente, emitindo cada qual 
um som diferente. Todos eles podem to- 
car notas musicais e, também, produzir 
ruídos. 

As rotinas Assembly deste artigo exe- 
cutam Greensleeves em duas vozes — is- 
to é, são usados dois canais para pro- 
duzir acordes. Para que o computador 
saiba que notas tocar e com qual dura- 
ção, um programa BASIC colocará uma 
tabela de notas na memória. 


CONDIÇÕES INICIAIS DO PSG 


A rotina listada a seguir prepara o 
PSG para tocar a música, colocando va- 
lores lidos na tabela dentro dos registros 
apropriados. Use nosso Assembler pa- 
ra montá-la na memória. Não se esque- 
ça de modificar o comando CLEAR da 
linha 5000, para proteger a memória aci- 
ma de &HCFFF. As rotinas em código 
devem ser montadas primeiro. Em se- 
guida, pode-se apagar o Assembler e 
executar o programa BASIC que apa- 
rece no final do artigo. 


10 org -12216 
20 ld h1,-14500 


30 ld b,6 

40 init ld c,160 
50 outi 

60 ld c,161 

70 outi 

80 jr nz,init 
90 ret 

100 end 


Dispomos de duas alternativas para 
modificar o valor de um registro do PSG 
em BASIC. Podemos utilizar tanto o co- 
mando SOUND R,V— que coloca no 
registro R o valor V— quanto a instru- 
ção OUT. 

O microprocessador PSG é conside- 
rado um periférico da unidade de pro- 
cessamento central, de maneira que exis- 
tem dois endereços da área de comuni- 
cação — 1/0 — que funcionem como 
portas de entrada e saída. O valor en- 
viado pela porta 160 indica o registro 
que será alterado, enquanto a porta 161 
corresponde ao destino do novo valor 
do registro. Dessa maneira, o par de ins- 
truções OUT 160,R:OUT 161,V equiva- 
le ao comando SOUND R,V. 

Como vimos no artigo da página 213, 
existe, em linguagem de máquina, uma 





instrução out que funciona de modo pa- 
recido ao comando BASIC de mesmo 
nome. Contudo, como vamos transfe- 
rir valores de uma tabela para o PSG, 
usaremos um comando de ação em 
bloco. 

Nossa rotina utiliza o comando ou- 
ti, cujas características devemos enten- 
der antes de passarmos a examinar o 
funcionamento do programa. Esse co- 
mando envia o valor contido no ende- 
reço apontado pelo par HL através da 
porta que tem seu número no registro 
C. Em seguida, o conteúdo do par HL 
aumenta em uma unidade e o conteúdo 
de B diminui também em uma unidade. 

O comando outi é útil para transfe- 
rir dados de uma tabela, um a um, atra- 
vés de uma porta. Antes de sua primei- 
ra aparigáo, devemos colocar em HL o 
endereco inicial da tabela, em C, o nú- 
mero da porta, e em B, o número de ve- 
zes que queremos repetir o processo. Ca- 
da vez que outi é executado, HL passa 
a apontar para o endereço seguinte da 
tabela. B é diminuído e, quando for re- 
duzido a zero, o indicador de zero será 
estabelecido. 

A primeira instrução determina o en- 
dereço inicial da rotina, — 12216. Em se- 
guida, os registros HL, B e C recebem 
os parâmetros da instrução outi. O en- 
dereço inicial da tabela de notas é colo- 
cado em HL por ld hl, — 14450. Como 
sáo necessários trés pares de valores para 
ativar o PSG, a linha Id b,6 coloca 6 em 
B. A linha rotulada com init coloca em 
C o número da porta de saída que de- 
termina o registro. 

Quando se executa a instrução outi 
pela primeira vez, o valor que marca o 
início da tabela, apontado por HL, é en- 
viado pela porta 160 — conteúdo de C. 
Se olharmos o programa BASIC no fi- 
nal do artigo, veremos que foi enviado 
o número 7. Soma-se uma unidade ao 
par HL, que aponta, entáo, para o pró- 
ximo número da tabela, e subtrai-se uma 
unidade de B. 

A instrução Id c,161 faz com que o 
valor enviado por outi na linha seguin- 
te se dirija à porta 161. Se consultarmos 
novamente a listagem BASIC, veremos 
que foi enviado o número 24. O valor 
de HL aumenta novamente e o de B di- 
minui. Como B ainda não foi reduzido 
a о o processador retorna ao rótulo 
init. 

O laco entre as linhas 40 e 80 repete- 
se trés vezes. A instrução outi é execu- 
tada seis vezes, de forma que sáo envia- 
dos trés pares de nümeros. Subtrai-se de 
B uma unidade seis vezes. Na sexta vez, 
a condição de jr nz,init náo é satisfeita, 
е а instrução ret provoca o retorno da 
sub-rotina. 





Cada volta desse lago equivale a um 
comando SOUND. O primeiro valor en- 
viado é o registro, e o segundo, seu no- 
vo conteúdo. Mas que papel desempe- 
nha cada registro? 

A primeira volta do lago coloca 24 no 
registro 7 do PSG. Esse registro selecio- 
na o modo de utilizagáo dos canais de 
som. Cada um dos seus seis primeiros 
bits determina se um canal vai produzir 
som, ruído ou se vai permanecer em si- 
léncio. Quando valem 1, os trés primei- 
ros bits ativam os canais A, B e C, res- 
pectivamente, para a produção de ruí- 
do. Os três bits seguintes ativam os ca- 
nais para a produção de sons musicais. 
Como 24 é 00011000 em binário, ele ati- 
va a produção de notas musicais em A 
e B. 

Na segunda volta do laço, o valor 15 
vai para o registro 8 do PSG. Esse re- 
gistro controla o volume do canal A — 
15 é o volume máximo. 

Na terceira e última volta, o registro 
9, que controla o volume do canal B do 
PSG, recebe o valor 15. 


ire PU eia 


Depois de ativar o PSG, podemos co- 
megar a tocar nossa música. Greenslee- 
ves compóe-se de acordes de duas no- 
tas, cada uma emitida por um dos ca- 
nais ativados. As notas seráo obtidas na 
mesma tabela, que especifica também 
qual é a duração do acorde formado por 
cada par delas. A rotina listada a seguir 
executa um acorde. Monte-a e grave-a 
separadamente. 


10 org -12200 
20 ld hl,-14494 





30 1d b,4 
40 ld c,161 
50 1d a,0 


60 tune out 160,a 
70 inc a 


80 outi 
90 jr nz,tune 
100 ret 
110 end 


Os acordes sáo compostos por notas 
emitidas simultaneamente pelos canais 
A e B. Registros do PSG controlam a 
tonalidade de cada nota. Os registros 0 
e 1 controlam a tonalidade do canal A, 
enquanto 2 e 3, a do canal B. Os regis- 
tros O e 2 correspondem aos bytes me- 
nos significativos; 1 e 3, aos mais signi- 
ficativos. Para emitir um acorde preci- 
saremos, então, modificar o conteúdo 
de quatro registros do PSG, usando no- 
vamente a instrução outi. Por isso, a ro- 
tina começa acertando os valores de HL, 
B e C, depois de estabelecido o endere- 
ço inicial. 

A instrução ld hl, — 14494 coloca em 


HL o endereço da primeira nota da ta- 
bela, Como emitiremos quatro notas, o 
número quatro é colocado em B. O nú- 
mero da porta 161 — utilizada para en- 
viar novos valores de registros ao PSG 
— é colocado em С. 

Nesta rotina, o registro A conterá o 
número do registro do PSG a ser alte- 
rado; assim. seu valor inicial será 0 — 
ld a,0 

O comando out 160,a envia o contey- 
do de A pela porta 160, indicando ao 
PSG o registro que será alterado. Em se- 
guida, A aumenta em uma unidade. A 
instrução outi envia, então, através da 
porta 161, o próximo valor da tabela, 
apontado por HL. HL aumenta em uma 
unidade e B diminui o mesmo tanto. En- 
quanto B não for reduzido a zero, a ins- 
trução jr nz, tune repetirá o lago entre as 
linhas 60 e 90. 

Na primeira volta do lago, o registro 
A contém 0, de maneira que o registro 
O do PSG recebe o valor da tabela 
apontado por HL. A cada volta, A au- 
menta em uma unidade e os registros 1, 
2 e 3 do PSG recebem os próximos va- 
lores da tabela de notas. 

Na quarta vez que outi está sendo 
executado, o valor de B reduz-se a ze- 
ro. A condição de jr nz, tune não é mais 
satisfeita e a instrução ret provoca o re- 
torno da sub-rotina. 


CONTROLE DA DURAÇÃO DO ACORDE 


O som correspondente ao conteúdo 
dos registros do PSG é emitido conti- 
nuamente, até que modifiquemos um de 
seus parâmetros ou desliguemos o PSG. 
Assim, para controlarmos a duração do 
som, usamos uma sub-rotina que não 
faz absolutamente nada por algum tem- 
po, provocando uma pausa. Enquanto 
durar essa pausa, o acorde será execu- 
tado; quando ela terminar, poderemos 
emitir um novo acorde. A duração será 
determinada por um número da tabela 
de notas. Eis a rotina: 


10 org -12183 

20 1d b, (h1) 

30 18р 18 Һ1,1000 
40 ld de,0 

50 144 dec hl 

60 push hl 

70 sbc hl,de 


80 pop hl 

90 jr nz,ldq 
100 djnz 14р 
110 ret 

120 end 


Quando a rotina de emissào do acor- 
de termina, deixa em HL o enderego do 
próximo número da tabela de notas. Es- 
se número indica a duração do acorde, 











O PROCESSADOR DO TRS-COLOR 
Os usuários do TRS-Color costumam 
sentir muita dificuldade quando fazem 
suas primeiras experiências com lin- 
guagem de máquina. Para eles, aqui 
vão algumas recomendações. 

O processador 6809 é um dos mais 
poderosos chips de oito bits. Sua ver- 
satilidade tem, contudo, um preço ele- 
vado, pois o grande número de coman- 
dos e formas de endereçamento pode 
confundir o principiante. 

No 6502 e no Z-80, processadores 
das outras máquinas, é possível fazer 
muita coisa interessante com um pe- 
queno conhecimento dos comandos de 
armazenamento e de controle de lacos. 
Basta saber que valores colocar nas po- 
sições adequadas. Programas um pou- 
co maiores exigem o uso da pilha para 
a armazenagem temporária, mas isto 
não é um grande problema. 

O 6502, processador do Apple e do 
TK-2000, conta com vários tipos de 
endereçamento. Mas são tão poucas 
as instruções disponíveis que essa van- 
tagem deixa de ser significativa. 

O 6809 é um precursor dos chips de 
dezesseis bits. Toda a sua estrutura de 
endereçamento e armazenagem ba- 
seia-se em números de dois bytes. 
Seus registros comportam dezesseis 
bits. Ao mesmo tempo, ele é um chip 
de oito bits. Cria-se, assim, uma infini- 
dade de modos de endereçamentos — 
surgindo termos como pós-byte e en- 
dereço efetivo —, o que confunde mui- 
ta gente. São tantos os comandos. de 
ação em bloco, executando tarefas di- 
ferentes, que é difícil deduzir suas fun- 
ções pelo nome. 

O que mais confunde o principian- 
te, contudo, é a utilização das pilhas. 
Há duas pilhas, a do usuário e a da má- 
quina, cada uma com seu apontador. 
E elas náo são usadas apenas para 
guardar valores temporariamente. O 
uso inteligente de seus apontadores 
permite economizar várias linhas de 
programação, mas certas operações 
com as pilhas são de deixar qualquer 
um atordoado. E, pior ainda, é impos- 
sível fazer programas sem esses recur- 
sos avançados. 

A saída está no estudo cuidadoso 
das instruções explicadas no texto. Na 
falta de um manual do 6908, liste as 
características de cada instrução. Ou- 
tra medida obrigatória é a leitura dos 
textos introdutórios à programação em 
código, já publicados em INPUT. Neles 
o usuário do TRS-Color encontrará con- 
ceitos fundamentais sobre o seu pro- 








cessado! 














e é colocado em B pela instrução 14 
b,(hl). O registro B determinará o nú- 
mero de vezes que o laço rotulado Idp 
vai ser executado. Nesse laço, 1000 é co- 
locado no par HL, que diminui uma 
unidade a cada volta do laço interno 
104. Guarda-se HL temporariamente na 
pilha, para gastar tempo. 

A instrução sbc hi, de subtrai zero — 
conteúdo de DE — do conteúdo de HL. 
Faz-se isto para afetar o indicador de ze- 
ros, quando HL for reduzido a zero, 
pois a instrução pop HL nào modifica 
esse sinalizador. Quando HL contém ze- 
ro, a condição de jr nz,ldq não é satis- 
feita e o processador passa ao laço ex- 
terno, controlado por B. 

A cada volta do laco externo, B di- 
minui. Quando ele se torna zero, ret 
provoca o retorno da sub-rotina. 

Podemos controlar o andamento da 
música aumentando ou diminuindo o 
número de execuções do laço interno. 
Para isto, basta colocar um número di- 
ferente de 1000 em HL, na linha 30. 


Al 


O trecho de Greensleeves que vamos 
executar tem 88 acordes. As rotinas que 



























ERRATA 
ASSEMBLER DO TRS-COLOR 
Para que seu programa Assembler 
funcione a contento, vocé precisará fa- 
zer algumas modificaçõe 


10 PCLEAR 1:CLEAR 300! 
T 0233,*INICIALIZANDO"” :R$=CHRS ( 
13):POKE 146,1 


100 DATA COM,115,3,CWAI,108,1,D 
AA, 25, ,ORA, 186,1, TST, 125, 3, LEAS 
466, 3, LEAU, 67 , 3, LEAX, 64, 3, LEAY, 
65,3, MUL, 61, , EORA, 184, 1, ORB, 250 


1550 P1=1478:P0=P1:P2=0 














1560 PRINT 8448-P2,K;TAB(6)TS (K 
2) :P9=PO+LEN(TS (K2)) 


1565 IF LEN(TS(K2))+P0>1503 THE 
N P0=P0-32:P2=P2+32:P1=P1-32:G0 
TO 1565 


1950 IF X8<>"8” OR BD$<"0" OR B 
D$»*G* THEN 1980 


A alteração na linha 10 é necessá- 
ria devido aos POKE que aumentam 
memória disponível. Se você não exe- 
cutar esses comandos antes de ler o 
Assembler na fita cassete, ele não con- 
seguirá montar o videogame. 

As demais modificações ajustam al- 
guns defeitos contidos no programa 
original 














mostramos até agora ativaram o PSG e 
tocaram um acorde apenas. Para a exe- 
cução da melodia toda, precisaremos de 
um programa principal, que chame or- 
denadamente as sub-rotinas. Monte a 
rotina que se segue com seu Assembler, 
gravando depois os códigos. 


10 org -12166 
20 call -12216 
30 ld b,88 

40 loop push bc 
50 call -12197 
60 push hl 

70 call -12183 
80 pop hl 


90 inc hl 

100 pop bc 

110  dànz loop 
120 call -12213 
130 ret 

140 end 


A primeira providéncia do progra- 
ma principal é chamar a sub-rotina que 
ativa o PSG, que fica no endereco 
— 12216. Quando o processador retor- 
na, HL aponta para a primeira nota da 
música — sétimo número da tabela. 

A instrução Id b,88 coloca em B o nú- 
mero de acordes que seráo executados. 
Como a rotina que emite o acorde utili- 
zará o registro B como contador, o con- 
teüdo deste é temporariamente guarda- 
do na pilha com push BC. 

A rotina que emite o acorde é, entáo, 
chamada. Note que o enderego de trans- 
feréncia é — 12197, e nào — 12200 (veja 
listagem). Ignora-se a primeira linha — 
linha 20 — da rotina do acorde, pois HL 
já contém o valor — 14494, que corres- 
ponde ao sétimo nümero da tabela. Es- 
sa linha foi incluída no programa para 
que a melodia possa ser tocada mais de 
uma vez, sem precisarmos ativar nova- 
mente o PSG. 

Quando o processador retorna da 
sub-rotina, o par de registros HL apon- 
ta para o próximo número da tabela. 
Como HL será usado como contador na 
sub-rotina de pausa, seu valor também 
é guardado na pilha com push hl. 

A instrução call — 12183 chama a 
sub-rotina que é responsável pela dura- 
ção do acorde. 

Quando a rotina de pausa termina, 
o conteúdo de HL é recuperado da pi- 
Iha. Esse valor, porém, está “atrasado”, 
pois aponta para o número da tabela 
que controla a duração da nota, já usa- 
do pela rotina de pausa. Para que HL 
aponte para a próxima posição da tabe- 
la, precisamos somar 1 ao seu conteú- 
do, usando inc hl. 

O conteúdo de B — nosso contador 
de acordes — é recuperado da pilha por 
pop bc. Em seguida, a instrugáo djnz 


loop subtrai 1 de B e volta para o rótu- 
lo loop enquanto B náo tiver sido redu- 
zido a zero. 

O laco entre as linhas 40 e 110 é re- 
petido 88 vezes, uma para cada acorde. 
As notas sáo executadas até que sua to- 
nalidade se modifique — sendo, portan- 
to, substituídas por outras notas. Se o 
programa parasse aqui, o PSG ficaria 
emitindo o último acorde da canção du- 
rante todo o jogo, o que você certamen- 
te não deseja. 

Para desligar o PSG, a rotina que o 
ativou no início é chamada novamente, 
só que com outro endereço de transfe- 
rênçia. A instrução call — 12213 ignora 
a primeira linha da sub-rotina, que co- 
locava o enderego inicial da tabela em 
HL. Assim, como HL ainda aponta pa- 
ra o próximo número náo usado na ta- 
bela, a sub-rotina utiliza os últimos seis 
números. Se procurarmos na listagem 
BASIC, veremos que estes sáo 8, 0, 9, 
0, 10 e 0. Os registros 8, 9e 10, que con- 
trolam o volume dos três canais, rece- 
bem, então, o valor 0, e o PSG é si- 
lenciado. 

Como toda rotina que se preze, esta 
termina com ret. 

interessante notar a importância do 
apontador HL na execução da melodia. 
No decorrer da execução, ele percorre 
toda a tabela. Para que isso seja possi- 
vel, a cada volta do laço entre as linhas 
40 e 110, seu valor é atualizado quatro 
vezes pela instrução outi e uma vez por 
inchl — o que corresponde á transferén- 
cia de cinco valores da tabela. Quatro 
deles vào para o PSG e um vai para o 
registro B controlar a duração da nota. 
Como a rotina de pausa utiliza HL, en- 
tre a execução das linhas 60 e 80 o apon- 
tador da posição atual na tabela de no- 
tas fica guardado na pilha. 


A TABELA DE NOTAS 


O conjunto de rotinas apresentado 
executa uma melodia em duas vozes. Na 
realidade, ele pode tocar qualquer me- 
lodia desse tipo. Cabe à tabela de notas 
determinar os acordes que serão incluí- 
dos. Para criá-la, apague o Assembler 
e use este programa BASIC. 


10 CLEAR 200,-14501 

20 FOR 1=0 ТО 451 

30 READ A:POKE -14500*1,A 
40 NEXT 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 


7,24,8,15,9,15 
253,0,253,0,10 
213,0,253,0,30 
189,0,213,0,10 
169,0,213,0,15 
159,0,213,0,5 

169,0,28,1,10 











x 





1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


189,0,28,1,30 
225,0,225,0,10 
28,1,225,0,15 
253,0,225,0,5 
225,0,253,0,10 
213,0,253,0,30 
253,0,253,0,10 
253,0,63,1,15 
12,1,63,1,5 
253,0,63,1,10 
225,0,253,0,17 
225,0,169,0,10 
12,1,225,0,10 
169,0,82,1,20 
253,0,82,1,10 
213,0,253,0,30 
189,0,253,0,10 
169,0,213,0,15 
159,0,213,0,5 
169,0,213,0,10 
189,0,28,1,30 
225,0,28,1,10 
28,1,225,0,15 
253,0,225,0,5 
225,0,225,0,10 
213,0,253,0,30 
225,0,225,0,5 
253,0,213,0,5 
253,0,189,0,5 
12,1,169,0,15 
45,1,169,0,5 
12,1,169,0,10 
253,0,253,0,30 
253,0,126,0,10 
253,0,169,0,10 
253,0,253,0,30 
142,0,213,0,30 
142,0,189,0,5 
142,0,169,0,5 
142,0,169,0,15 
159,0,189,0,5 
169,0,213,0,10 
189,0,28,1,30 
189,0,253,0,5 
225,0,225,0,10 
28,1,225,0,15 
253,0,253,0,5 
225,0,28,1,10 











DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 


213,0,253,0,30 
213,0,225,0,5 
253,0,213,0,10 
253,0,213,0,15 
12,1,225,0,5 
253,0,253,0,10 
225,0,82,1,17 
225,0,169,0,10 
12,1,225,0,10 
82,1,82,1,20 
82,1,123,1,10 
142,0,170,1,30 
142,0,123,1,5 
142,0,82,1,10 
142,0,82,1,15 
159,0,123,1,5 
169,0,170,1,10 
189,0,28,1,30 
189,0,253,0,5 
225,0,225,0,10 
142,0,225,0,15 
253,0,253,0,5 
225,0,28,1,10 
213,0,253,0,30 
225,0,225,0,5 
253,0,213,0,5 
253,0,189,0,5 
12,1,169,0,15 
45,1,169,0,5 
12,1,82,1,10 
253,0,253,0,30 
253,0,126,0,10 
253,0,169,0,10 
253,0,253,0,30 
8,0,9,0,10,0 








A linha 10 protege a memória acima 
de — 14501 para ali colocar a tabela. O 
laco FOR...NEXT entre as linhas 20 e 
40 usa READ para obter os nümeros da 
tabela e POKE para transferi-los para 
a memória. 

Cada linha. DATA contém os dados 
necessários para um acorde. Os núme- 
ros são respectivamente: byte menos sig- 
nificativo da tonalidade do canal A, 
byte mais significativo dessa mesma to- 
nalidade, byte menos significativo da to- 
nalidade do canal B, byte mais signifi- 
cativo dessa mesma tonalidade e dura- 
ção do acorde. 

Não se preocupe com os valores que 
determinam as tonalidades das notas. 
Em um próximo artigo, apresentaremos 
uma tabela para a conversão dos parâ- 
metros da instrução PLAY nos valores 
de registros do PSG. 



































OJOGO 


Aqui está a última parte do jogo do 
Otelo. Após digitar as linhas necessárias 
para completar a movimentação do jo- 
gador, a rotina de movimentação do 
computador e o final da rotina de jogo, 
você poderá se considerar pronto para 
testar suas habilidades, desafiando o seu 
computador. 


VERIFICAÇÃO DAS POSIÇÕES 





2090 IF NF=1 THEN 2120 

2100 COLOR 1:LINE(0,182)-(255,1 
91) ,PSET, BF : DRAW"C4SBBMO, 182" :A 
$-"LONGE DA JOGADA":GOSUB 9300: 
FOR F=1 TO 900:NEXT F 

2110 GOTO 2000 

2120 RF=0:FOR Q=1 TO 8:IF C(Q)* 
O THEN 2170 

2130 XP=X:YP=Y 

2140 XP=XP+D(Q,1):YP=YP+D(Q,2): 
IF XP=0 OR XP=9 OR YP=0 OR YP=9 
THEN C(Q)*0:GOTO 2170 

2145 IF B(XP,YP)=2 THEN 2140 
2150 IF B(XP,YP)=1 THEN RF=1:GO 
TO 2170 

2160 IF. B(XP,YP)*0 THEN C(Q)*0 
2170 NEXT Q 

2180 IF RF-1 THEN 2210 

2190 COLORI:LINE(0,182)-(255,19 
1) , PSET , BF : DRAW” S8C4BM0 , 182” : AS 
="JOGADA NAO GANHA A TRILHA” :GO 
SUB 9300:FOR F=1 TO 900:NEXTF 
2200 GOTO 2000 

2210 FOR Q=1 TO 8:IF C(Q)=0 THE 
N 2250 

2220 XP=X+D(0,1):YP=Y+D(9,2) 
2230 IF B(XP,YP)=1 THEN 2250 





ШИЕ ЕЕ...” аллы E E 


DO OTELO (2) 


2240 B(XP,YP)=1:XP=XP+D(Q,1):YP” 
=YP+D(Q,2):GOTO 2230 

2250 NEXT Q 

2260 B(X,Y)=1 

2270 CP-2:RETURN 


2090 IF NF=1 THEN GOTO 2120 
2100 PRINT AT 17,0;"LONGE DA JO 
GADA": FOR F=1 TO 500: NEXT F 
2110 PRINT AT 17,0;" 

": GOTO 2000 
2120 LET RF=0: FOR Q=1 TO 8: IF 
C(Q)=0 THEN GOTO 2170 
2130 LET XP=X: LET YP=Y 
2140 ГЕТ Хр=Хр+р (0,1): LET YP=Y 
P*D(Q.2): IF XP=0 OR XP=9 OR ҮР 
=0 OR YP=9 THEN LET C(Q)=0: GO 
TO 2170 
2145 IF B(XP,YP)=2 
140 
2150 IF B(XP,YP)=1 
=1: GOTO 2170 
2160 IF B(XP,YP)=0 
q)=0 
2170 
2180 
2190 
GANHA À TRILHA”: 
: NEXT F 
2200 PRINT AT 17,0;" 

": сото 2000 

2210 FOR 0-1 TO 8: IF C(Q)=0 TH 
EN GOTO 2250 
2220 LET XP=X+D(Q,1): 
D(Q.2) 
2230 IF B(XP,YP)=1 THEN GOTO 2 
250 
2240 LET B(XP,YP)=1: 


THEN GOTO 2 


THEN LET RF 
THEN LET C( 
NEXT Q 

IF RF=1 THEN GOTO 2210 
PRINT AT 17,0;" JOGADA NAO 
FOR F-1 TO 500 


LET YP-Y* 


LET XP=XP+ 


D(Q,1): LET YP=YP+D(Q,2): GOTO 
2230 
2250 NEXT Q 



















Apresentamos neste artigo a segunda 
metade do jogo do Otelo. Depois 

de digitá-la, completando o programa, 
desenvolva algumas jogadas 
inteligentes... e derrote o computador! 





2260 LET B(X,Y)=1 
2270 LET CP=2: RETURN 


PSU 


2090 IFNF=1 THEN 2120 

2100 LINE(0,182)-(255,191),1,BF 
:DRAW"C15SB8BM50,182":AS-"LONGE 
DA JOGADA" : GOSUB9300: FORF=1TO90 
0:NEXTF 

2110 GOTO 2000 

2120 RF-0:FORQ-1 TO B:IFC(Q)*0 
THEN2170 

2130 XP=X:YP=Y 

2140 XP-XP*D(Q,1) : YP-YP*D(Q,2) : 
IFXP=0 OR XP=9 OR YP=0 OR YP-9 
THENC (Q) *0:G0TO2170 

2145 IF B(XP,YP)=2 THEN 2140 
2150 IF B(XP,YP)=1 THEN RF=1:G0 
TO 2170 

2160 IF B(XP,YP)=0 THEN C(Q)=0 
2170 NEXTQ 

2180 IF RF=1 THEN 2210 

2190 LINE(0,182)-(255,191),1,BF 
:DRAW"C15S8BM1O, 182” :A$=" JOGADA 
NAO GANHA A TRILHA” :GOSUB9300: 
FORF*1TO900:NEXTF 

2200 GOTO 2000 

2210 FORQ=1T08:IFC(Q)=OTHEN2250 
2220 XP=X+D(Q0,1) :YP=Y+D(Q,2) 
2230 IF B(XP,YP)=1 THEN2250 
2240 В(ХР,ҮР) =1:ХР=ХР+р (0,1) :ҮР 
*YP*D(Q,2) :G0T02230 

2250 NEXTQ 

2260 B(X,Y)=1 

2270 CP=2:RETURN 


16] 


2090 IF NF = 
2100 VTAB (17): 
LONGE DAS MINHAS 
= 0 TO 1500: NEXT 
2110 VTAB (17): 


1 THEN 2120 
PRINT "JOGADA 
PECAS": FOR F 


PRINT " 

": GOTO 2 
000 
2120 RF 


- 1 TO 8: IF 
c(o) = 0 


0: FOR Q = 
THEN 2170 
X:YP ^ Y 
2140 XP XP + D(Q,1):YP = YP + 
D(Q,2): IF (XP = 0 OR XP = 9) 
ОВ (ҮР = 0 OR YP = 9) THEN C(Q) 
= 0: GOTO 2170 


2130 XP 


2145 IF B(XP,YP) = 2 THEN 2140 
2150 IF B(XP,YP) = 1 THEN RF = 
1: GOTO 2170 

2160 IF B(XP,YP) = 0 THEN C(Q) 
- 0 

2170 МЕХТ 


2180 ІҒ ВҒ - 1 ТНЕМ 2210 











2190 VTAB (17): PRINT "SUA JOG 
ADA NAO GANHA A TRILHA": FOR F 
= 0 TO 1500: NEXT 
2200 VUTAB (17): PRINT ” 

": GOTO 2 
000 
2210 FOR Q = 1 TO 8: IF C(Q) = 


0 THEN 2250 
2220 XP = X + D(Q,1):YP = Y +D 


(0,2) 

2230 IF B(XP,YP) = 1 THEN 2250 
2240 B(XP,YP) = 1:XP = XP + D(Q 
,1):YP = YP + D(Q,2): GOTO 2230 
2250 NEXT Q 

2260 B(X,Y) = 1 


2270 СР - 2: RETURN 

Antes de saltar para a linha 2120, o 
indicador NF vé se há alguma pega do 
computador em um quadrado adjacen- 
te (linha 2090). Caso exista, a linha 2100 
imprime uma mensagem de erro. As li- 
nhas 2120 a 2170 verificam se a jogada 
encosta a peca em alguma fileira de pe- 
ças do adversário. 

A linha 2140 verifica se a posição che- 
cada no passo anterior está dentro dos 
limites do tabuleiro. Se não estiver, es- 
ta posição será abandonada e a próxi- 
ma, testada. Na linha 2145, testamos se 
a peça em exame pertence, de fato, ao 
computador. Em caso afirmativo, o 
programa volta para a linha 2140 e atua- 
liza a posição. 

A linha 2180 examina o resultado da 
última operação. Se a fileira foi encon- 
trada, o programa salta para a linha 
2210. As linhas 2190 e 2200 imprimem 
uma mensagem no caso de uma filei- 
ra não ser ladeada. O programa vol- 
ta para a linha 2000. 
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Œ MOVIMENTAÇÃO DO JOGADOR: 


FINAL DA ROTINA 














VERIFICAÇÃO DE JOGO 

DAS POSIÇÕES W ANÚNCIO DO VENCEDOR 

E ROTINA DE MOVIMENTAÇÃO Ш OPÇÃO PARA 
DO COMPUTADOR NOVA PARTIDA 





A rotina que descreve a movimenta- 
ção do jogador está contida entre as li- 
nhas 2210 e 2260 do programa. O teste 
C(Q)=0, da linha 2210, verifica se uma 
fileira do adversário foi encontrada, por 
meio de um ciclo que vai de 1 a 8. Se 
nào existir uma fileira naquela direção 
(C(Q)=0), o programa salta para a li- 
nha 2250 e verifica o Q seguinte. A po- 
sição do primeiro quadrado da fileira a 
ser tomada — linha 2040 — é atribuida 
a XP e YP. 

Na linha 2230, o computador testa se 
o quadrado em questão é o último da 
fileira, encerrando-a, portanto. Em ca- 
so afirmativo, o programa salta para a 
linha 2250. Na linha 2240, o programa 
atribui ‘‘um” ao quadrado e, em segui- 
da, volta para a linha 2230, onde testa 
o próximo quadrado. 

Na linha 2260, o quadrado do joga- 
dor recebe o valor inicial “um”. O in- 
dicador CP recebe o valor “'dois”” para 
o computador e o programa retorna 
(por meio da linha 2270). 


OGADA 'OMPUTADOR 


3000 COLOR l:LINE(0,182)-(255,1 
91) ,PSET,BF:AS="MOVIMENTO DO CO 
MPUTADOR" : DRAW" S8C3BM26, 182" :GO 
SUB 9300:NF=1:MX=0:FOR X=1 TO 8 


ос 














:FOR Y=1 TO 8 

3010 IF B(X,Y)<>0 THEN 3070 
3020 FOR F=1 TO 8:XP=X:YP=Y:DX= 
D(F,1) :DY=D(F,2) :RF=0 

3030 XP-XP*DY:YP-YP*DX:IF XP-0 
OR XP-9 OR YP-9 THEN 3060 

3040 IF B(XP,YP)=1 THEN RF=1:G0 


TO 3030 

3050 IF B(XP,YP)=2 AND RF: 
N N(NF)=F:X(NF)=X:Y (NF) =Y 
*l:F-9 

3060 NEXT F 

3070 NEXT Y,X:NF=NF-1 
3075 IF NF-0 THEN 3300 
3080 FOR F=1 TO NF:X=X(F) :Y=Y (F 
) :DX*D(N(F) , 1) :DY*D(N(F) ,2) :CF* 
0 





3090 X=X+DY:Y=Y+DX:1F B(X,Y)=1 
THEN CF=CF+1:GOTO 3090 

3100 IF CF>MX THEN MX=CF:MF=F 
3110 NEXT F 

3180 FOR F=1 TO 8:X=X (MF) :Y=Y (M 
F) :DX=D(F,1) :DY=D(F,2) 

3190 X-X*DY:YeY*DX 
3195 IF X«1 OR X58 OR 
8 THEN 3260 

3200 IF B(X,Y)=1 THEN 
3210 IF B(X,Y)=2 THEN 
3220 IF B(X,Y)=0 THEN 
3230 X=X (MF) : Y=Y (MF) 
3235 B(X,Y)=2:X=X+DY: 
3240 IF B(X,Y)=2 THEN 
3250 GOTO 3235 

3260 NEXT F 

3265 DRAW"S16;C2;BM118,150"4NU$ 
(X (MF) ) *NU$ (Y (MF) ) +" 58” 

3270 CP=1:RETURN 

3300 COLOR 1:LINE (0,182)-(255, 
191), PSET,BF:AS="NAO POSSO MOVE 
R” :DRAW"S8C4BM50,182”:GOSUB 930 
O:FOR F=1 TO 50:NEXT:CP=1:RETUR 
N 





Y<1 OR Y> 


3190 
3230 
3260 





-"Y*DX 
3260 






3000 PRINT ' 
МЕ-1: 


"PENSANDO...": LET 
LET MX-0: FOR X=1 TO 8: 

















FOR Y-1 TO 8 

3010 IF B(X,Y)<>0 THEN GOTO 30 

70 

3020 FOR F=1 TO 8: LET XP=X: LE 

T YP-Y: LET DX=D(F,1): LET DY=D 

(F,2): LET RF=0 

3030 LET XP=KP+DY: LET YP=YP+DX 
IF XP=0 OR XP=9 OR YP=0 OR YP 

=9 THEN GOTO 3060 

3040 IF B(XP,YP)=1 THEN 

=1: GOTO 3030 

3050 IF B(XP,YP)=2 AND RF=1 THE 

N LET N(NF)=F: LET X(NF)=X: LE 

T Y(NF)-*Y: LET NF-NF*1: LET F=9 

3060 NEXT F 

3070 NEXT Y: NEXT X: LET NF-NF- 


LET RF 


1 

3075 IF NF=0 THEN GOTO 3300 
3080 FOR F=1 TO NF: LET X-X(F): 
LET Y=Y(F): LET DX-D(N(F),1): 
LET DY=D(N(F),2): LET CF=0 

3090 LET X-X*DY: LET Y-Y*DX: IF 


B(X,Y)=1 THEN ГЕТ CF=CF+l: GO 
TO 3090 





PROGRAMACÁO DE MATRIZES 

A programação de jogos de tabulei- 
ro em BASIC utiliza quase sempre a 
mesma técnica: a da programacáo de 
matrizes. Uma matriz retangular, divi- 
dida em linhas e colunas, é a estrutura 
de dados ideal para a programação e re- 
presentação de tabuleiros de xadrez, 
damas, Otelo, Reversi, Trilha, jogo da 
velha e outros. Entretanto, jogos que 
não seguem o esquema de “quadradi- 
nhos” identificados em linhas e colu- 
nas — como gamão, gomoku e ludo — 
também podem ser programados atra- 
vés de matrizes. 

Em um jogo de tabuleiro retangular, 
geralmente uma só matriz bidimensio- 
nal não basta para armazenar todos os 
dados exigidos. Tomemos como exem- 
plo o xadrez. A cor dos quadrados do 
tabuleiro pode ser computada por meio 
de uma equação simples. É mais fácil, 
porém, armazenar esse tipo de dado 
com códigos numéricos, em uma ma- 
triz COR (8,8). Precisaremos, ainda, 
de uma matriz para indicar as peças 
que ocupam cada quadrado (novamen- 
te, podemos utilizar códigos, como 
pião = 1, torre = 2 e assim por diante). 
Outras matrizes serão necessárias pa- 
ra dados referentes a movimentos, 
capturas etc. 

Tudo isso torna a programação de 
jogos de tabuleiro mais complexa do 
que parece. Portanto, se você preten- 
de testar sua habilidade como progra- 
mador, escolha um jogo bem fácil pa- 
ra começar! 











pee e e e 
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3100 IF CF>MX THEN 
LET MF=F 

3110 NEXT F 

3180 FOR F=1 TO 8: LET X=X(MF): 
LET Y=Y(MF): LET DX=D(F,1): LE 
T DY=D(F,2) 


LET MX=Ci 





3190 LET X=X+DY: LET Y=Y+DX 
3195 IF X<1 OR X>8 OR Y<1 OR Y> 
8 THEN GOTO 3260 

3200 IF-B(X,Y)=1 THEN GOTO 319 
0 

3210 IF B(X,Y)=2 THEN GOTO 323 
0 

3220 IF B(X,Y)=0 THEN GOTO 326 
0 

3230 LET X-X(MF LET Y=Y (MF) 
3235 LET B(X,Y)=2: LET X=X+DY: 
LET Y=Y+DX 

3240 IF B(X,Y)-2 THEN GOTO 326 
0 

3250 GOTO 3235 

3260 NEXT F 

3265 PRINT X(MF),Y(MF): INPUT A 


$ 

3270 LET CP=1: RETURN 

3300 PRINT AT 17,0;"NAO POSSO J 
OGAR": FOR F=1 TO 500: NEXT F 
3305 PRINT AT 17,0;" 

3310 LET CP=1 

3320 RETURN 


3000 LINE(0,182)-(255,191) ,1,BF 
:DRAW”S8C15BM30,182” :AS="COMPUT 
ADOR JOGANDO” ; GOSUB9300:NF=1:MX 
=0:FORX=1TOB:FORY=1TOB 

3010 IFB(X,Y)<>OTHEN3070 

3020 FORF=1TOB:XP=X:YP=Y:DX=D(F 
,1) :DY=D(F,2 F=0 

3030 XP=XP+DY:YP=YP+DX:IFXP=0 O 
R XP=9 OR YP=0 OR YP=9 THEN3060 
3040 IFB(XP,YP)=1THENRF=1:GOTO3 
030 

3050 IFB(XP,YP)=2 AND RF=1 THEN 
N(NF)=F:X (NF)=X:Y (NF) =Y:NF=NF+ 
1:F=9 

3060 NEXTF 

3070 NEXTY,X:NF=NF-1 

3075 IF NF=0 THEN 3300 

3080 FORF=1TONF :X=X (F) :Y=Y (F) :D 
X=D(N(F),1) :DY=D(N(F),2) :CF=0 
3090 X=X+DY:Y=Y+DX: IFB(X, Y) =1TH 
ENCF=CF+1:G0T03090 

3100 IFCF>MX THEN MX=CF:MF=F 
3110 NEXTF 

3180 FORF=1T08:X=X (MF) ; Y=Y (MF) : 
DX=D(F,1) :DY=D(F, 2) 

3190 X-X*DY:Y-Y*DX 

3195 IFX<1 OR X>8 OR Y<1 OR Y>8 
THEN3260 

3200 IF B(X,Y)-1 THEN 3190 

3210 IF B(X,Y)-2 THEN 3230 

3220 IF B(X,Y)=0 THEN 3260 

3230 Х=Х (МЕ) :Ү=Ү (МЕ) 

3235 B(X,Y)=2:X=X+DY : Y=Y+DX 
3240 IF B(X,Y)=2 THEN 3260 

3250 GOTO 3235 

3260 NEXTF 

3265 DRAW"S16BM114,154"+NUS (X (M 











= 





F) ) +NUS (Y (MF))+"88" 

3270 CP=1:RETURN 

3300 LINE(0,182)-(255,191),1,BF 
:DRAW"C15S8BM50,182”:AS="NAO РО 
880 JOGAR" :GOSUB9300:FORF=1TO90 
0:NEXTF :CP=1 : RETURN 


3000 NF = 1:MX = 0: FOR X = 17 
0 8: FOR Y = 1 TO 8 
3010 IF B(X,Y) < > 0 THEN 307 
0 

3020 FOR F = 1 TO 8:XP = X:YP 
= Y:DX = D(F,1):DY = D(F,2):RF 
-0 

3030 XP = XP + DY:YP = YP + DX: 
IF (XP = 0 OR XP = 9) OR (YP = 
0 ОВ ҮР = 9) ТНЕМ 3060 

3040 IF B(XP,YP) = 1 THEN ВЕ = 
1: GOTO 3030 
3050 IF B(XP,YP) 
1 THEN N(NF) = F:X(NF) = 
) = Ү:МЕ = МЕ + 1:F = 9 
3060 NEXT F 

3070 NEXT Y: NEXT X:NF * NF - 


= 2 AND RF * 
X:Y(NF 


1 
3075 IF NF = 0 THEN 3300 











































3080 FOR F = 1 TO NF:X = X(F): 
Y = Y(F):DX = D(N(F),1):DY * D( 
N(F),2):CF = 0 

3090 X = X + DY:Y = Y + DX: IF 
B(X,Y) = 1 THEN CF = CF + 1: GO 
TO 3090 

3100 IF CF > MX THEN MX = CF:M 
yer 

3110 NEXT 

3180 FOR F * 1 TO 8:X * X(MF): 
Y * Y(MF):DX * D(F,1):DY * D(F, 
2) 

3190 X * X * DY:Y * Y * DX 
3195 IF X < 10R X > 8 OR Y < 
1 OR Y > 8 THEN 3260 

3200 IF B(X,Y) = 1 THEN 3190 
3210 IF B(X,Y) = 2 THEN 3230 
3220 IF B(X,Y) = 0 THEN 3260 
3230 X = X(MF):Y = Y(MF) 

3235 B(X,Y) = 2:X = X + DY:Y = 
Y + DX 

3240 IF B(X,Y) = 2 THEN 3260 
3250 GOTO 3235 

3260 NEXT 

3265 УТАВ (17): PRINT "MINHA J 


OGADA (LINHA,COLUNA) * ";X(MF); 
",";Y(MF): FOR Е = 0 TO 3000: 
EXT 
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3270 VTAB (17): PRINT " 


":CP = 1: RETURN 
3300 VTAB (17): PRINT "NAO POS 


80 JOGAR”: FOR F = O TO 1500: N 
EXT ( 
3310 VTAB (17): PRINT " 


":CP * 1: RETURN 





No começo, o número de quadrados 
em uma fileira é um, e o número máxi- 
mo de peças, zero (linha 3000). Dois la- 
ços — com variáveis de controle X e Y 
— são iniciados, com a função de pro- 
curar espaços vazios no tabuleiro. Esta 
é a parte do programa que consome 
maior tempo. No decorrer do jogo, à 
medida que o número de quadrados va- 
zios diminui, o tempo de jogada do 
computador também vai diminuindo, 

A linha 3010 verifica se o quadrado 
está vazio. Se não estiver, o computa- 
dor salta os próximos comandos (linha 
3070). As linhas que vão de 3020 a 3060 
verificam se o quadrado está no fim de 
uma fileira que poderá ser tomada pelo 
computador. XP e YP são usados da 
mesma maneira que anteriormente. DX 
e DY representam os conteúdos do ve- 
tor diregáo DO e economizam bastante 
espaço de memória. 

A linha 3030 checa se o quadrado que 
vai ser testado está dentro dos limites do 
tabuleiro. Se ele não estiver, a próxima 
direção será testada, Se o quadrado em 
exame pertencer ao jogador, a rotina 
voltará para a linha 3030 para verificar 
se o quadrado seguinte está ocupado por 
ele. 

A linha 3050 examina o tabuleiro, pa- 
ra saber se está sendo ocupado pelo 
computador. Caso esteja, e se alguma 
fileira tiver sido encontrada, as posições 
iniciais serão gravadas em XQ e YO, е 
o número da direção será gravado em 
NO. O contador que indica o número de 
coordenadas encontradas é também in- 
crementado. 

Apenas a primeira fileira será ““me- 
morizada”, para garantir que a busca 
leve o menor tempo possível. 

As linhas 3080 a 3110 encontram a 
jogada capaz de fornecer o placar mais 
longo em uma linha reta. Um ciclo que 
varia de 1 até NF (número de quadra- 
dos encontrados) é acionado. X e Y sáo 
equacionados com X(F) e Y(F). As 
coordenadas de direcáo (DX e DY) re- 
cebem valores iniciais correspondentes 
às direções indicadas por N(F). Um con- 
tador temporário (CF) é zerado a cada 
execução do ciclo. 

A linha 3090 verifica se a peça que 
foi testada é a do jogador. Em caso afir- 
mativo, CF é incrementado e o próxi- 
mo quadrado naquela direção torna-se 
























objeto de teste. A linha 3100 compara 
o número encontrado (CF) com o valor 
máximo anterior (MX). Se o primeiro 
for maior, MX assume o valor de CF e 
MF, as coordenadas da melhor peça en- 
contrada, indicada pelo valor do conta- 
dor do laço, ou seja, F. 

As linhas 3180 a 3260 executam a ro- 
tina de movimentação. A linha 3180 ini- 
cia um ciclo que vai de 1 a 8, de forma 
que todas as fileiras possam ser encon- 
tradas. 

As variáveis X, Y, DX e DY recebem 
valores iniciais conforme foi explicado 
anteriormente. A linha 3195 checa se X 
e Y ainda estão no tabuleiro. Caso eles 
não estejam, o programa salta imedia- 
tamente para a linha 3260, que contém 
uma instrução NEXT. 

A linha 3200 verifica se o jogador es- 
tá ocupando um quadrado, Se estiver, 
a rotina salta para tentar o próximo qua- 
drado da fileira. Nenhum quadrado é al- 
terado, pois a rotina está apenas reali- 
zando testes. 

Se a fileira terminar em um quadra- 
do ocupado pelo computador, X e Y sáo 
reinicializadas e as linhas 3235 a 3250 al- 
teram todos os quadrados na fileira. Se 
um quadrado vazio for encontrado, 
tenta-se uma nova direção. 

Assim que a rotina de movimenta- 
ção tiver decidido para qual quadrado 
irá se dirigir, a linha 3265 imprimirá as 
coordenadas e aguardará que a tecla 
«ENTER?» seja pressionada. 

Na vez do jogador, o indicador CP 
começa valendo '“um” (linha 3270) e, 
depois, volta para o ciclo principal. 


FIM DE JOGO 


4000 IF PS>CS THEN 5000 
4010 IF P8=C8 THEN 6000 
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Como adaptar um jogo que utiliza 
pecas coloridas para um micro com 
vídeo monocromática? 

Dependendo do tipo de jogo, a adap- 
tação não é nada fácil. Mas existem al 
gumas alternativas cujo resultado é 
bastante razoável 


* Para diferenciar as pegas dos opo- 
nentes, utilize recursos gráficos como 
hachurados, quadriculados ou pontilha- 
dos, cujo efeito é bem visível em preto 
e branco. Você só terá problemas se as 
peças forem pequenas a ponto de não 
haver espaço para nenhum tipo de de- 
senho que as identifique. 


* Também como elemento de diferen 
ciação, faça uso do vídeo inverso/vídeo 
direto — por exemplo, pedras pretas 
em um quadrado preto, pedras brancas 
em um quadrado branco e pedras so- 
bre quadrados de outra cor. 


+ Se o seu computador possui um ví- 
deo monocromático multitonal (isto é, 
em que as cores têm correspondência 
em diversas tonalidades de verde ou 
cinza), identifique as peças dos opo: 
nentes utilizando intensidades ou bri 
lhos diferentes. 











4015 AS="FOI FACIL” 

4020 COLOR 1:LINE(0,182)-(255,1 
91) , PSET , BF : DRAW” S8C2BM70 , 182” : 
GOSUB 9300 

4025 FOR F=1 TO 1500:NEXT F 
4030 COLOR 1:LINE(0,182)-(255,1 
91) ,PSET,BF:AS="QUER JOGAR OUTR 
A VEZ 7” :DRAW"C3BMO, 182” :GOSUB 
9300 

4040 AS=INKEYS:IF AS<>"8” AND A 





$<>"N" THEN 4040 

4050 IF A$-"S" THEN RUN 

4060 END 

5000 A$-"VOCE TEVE SORTE" 
5010 GOTO 4020 

6000 AS="EMPATAMOS” :GOTO 4020 


4000 IF PS>CS THEN GOTO 5000 
4010 IF PS=CS THEN GOTO 6000 
4020 PRINT AT 17,0; INK 2;"FOI 
FACIL !" 

4030 PRINT "QUER JOGAR OUTRA VE 
2? (8/м)" 


4040 LET AS=INKEYS: 


IF AS<>”S” 





0000000, 


GOTO 4040 
RUN 


AND AS<>"N" 
4050 IF AS="S" 
4060 STOP 

5000 PRINT AT 17,0; 
TEVE SORTE !” 
5010 GOTO 4030 
6000 PRINT AT 17,0; 
EMPATAMOS 

CISO PRATICAR MAIS !" 
0 


THEN 
THEN 


INK 2;"VOCE 


INK 2;"NOS 


PRE 
GOTO 403 





4000 
4010 


IF PS>CS THEN 5000 

IF PS=CS THEN 6000 

4015 A$="FOI MUITO FACIL” 

4020 LINE(0,182)-(255,191),1,BF 
:DRAW"C15S8BM70,182” :GOSUB9300 
4025 FORF=1T01500:NEXTF 

4030 LINE(0,182)-(255,191),1,BF 
$="QUER JOGAR NOVAMENTE” : DRAW 
C15BM30,182” : GOSUB9300 

4040 AS=INKEYS:IFAS<>"S” AND AS 
<>"s” AND AS<>"N” AND AS<>"n” T 
HEN 4040 

4050 IF A$-"S" 
UN 

4060 END 

5000 AS-"VOCE TEVE SORTE" 

5010 GOTO 4020 

6000 AS="UM BELO EMPATE” :GOTO40 
20 


OR A$-"s" THEN R 





de. 





4000 IF PS > CS THEN 5000 
4010 IF PS = CS THEN 6000 
4020 VTAB (17): PRINT “FOI FAC 
ZE ie 

4030 INPUT "QUER JOGAR NOVAMEN 
TE (S/N) "¡AS 

4040 AS = LEFTS (AS,1): 1F AS 
< > "S” THEN END 

4050 RUN 

4060 END 

5000 VTAB (17): PRINT "VOCE TE 
VE SORTE DESTA VEZ !" 

5010 GOTO 4030 

6000 UTAB (17): PRINT "EMPATAM 
OS, PRECISO TREINAR MAIS !": GO 
TO 4030 


A rotina de fim de jogo comega na li- 
nha 4000, que verifica se o jogador ven- 
ceu, comparando PS com CS. O progra- 
ma salta para a linha 5000 para impri- 
mir a mensagem de vitória. A linha 4010 
detecta a ocorréncia de empate, e a men- 
sagem correspondente é impressa pela 
nha 6000. Se o computador tiver venci- 
do, o programa atinge a linha 4020 e exi- 
be uma mensagem para o jogador. As 
linhas restantes oferecem a opção para 
uma outra partida. 
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FIGURAS 


GEOMÉTRICAS 


AS SEÇÕES DO CONE 
DESENHE CÍRCULOS, ELIPSES, 
PARÁBOLAS E HIPÉRBOLES 
ROTAÇÃO DE CURVAS 


APLICAÇÕES PRÁTICAS 








Forma geométrica das mais fascinantes, 
o cone é responsável pela 

geração de toda uma família de curvas. 
Eis aqui alguns programas para 
explorar as propriedades dessa figura. 


Criadores da geometria, os gregos an- 
tigos consideravam as curvas — pelas 
quais eram fascinados — tanto mais im- 
portantes quanto mais simples e elegan- 
tes eles fossem. Assim, quando se des- 
cobriu que toda uma família de curvas 
— conhecidas como seções cônicas — 
poderia ser obtida simplesmente cortan- 
do-se um cone de diferentes maneiras, 
pareceu óbvio que esses sólidos geomé- 
tricos deviam ter uma significação espe- 
cial. Realmente, dependendo de como 
se secciona o cone, pode-se obter um cir- 
culo, uma elipse, uma parábola ou uma 
hipérbole. 

Na verdade, o traço marcante dessas 
curvas está no fato de que elas não são 
meras abstrações matemáticas, mas apa- 
recem a todo momento no nosso coti- 
diano e proporcionam uma descrição 
exata de fenômenos físicos. 

Existem, certamente, outras curvas 
simples encontradas na natureza que 
não são seções de um cone. A forma 
produzida por uma corda ou corrente 
presa por dois pontos nas extremidades 
é um exemplo. Conhecida como catená- 








ria, essa curva difere ligeiramente da pa- 
rábola. Entretanto, as equações que ser- 
vem para descrever as duas formas são 
completamente distintas. As seções cô- 
nicas aparecem frequentemente relacio- 
nadas ao modo como as coisas se mo- 
vem (um objeto lançado sobre a super- 
fície da Terra, por exemplo, executa 
uma curva parabólica). Assim, elas são 
necessárias para uma simulação convin- 
cente e exata desses movimentos. 

Algumas curvas também são úteis pa- 
ra definir objetos tridimensionais. Os 
cortes de um cone têm obviamente duas 
dimensões, mas podem ser rodados em 
seus eixos para produzir uma forma de 
três dimensões. Assim, o circulo se 
transforma em uma esfera, com um sem 
número de aplicações; a parábola, em 
um parabolóide, usado em objetos co- 
mo faróis de automóveis, espelhos de te- 
lescópios, fornos solares etc. 

A primeira parte deste artigo descre- 
ve cada curva e como desenhá-la na te- 
la do computador, enquanto a segunda 








mostra como usá-la em simulações co- 
mo a trajetória de um balde (ou outro 
objeto) pendurado em uma escada que 
desliza e acaba caindo (uma elipse) ou 
a curva descrita por uma pessoa cruzan- 
do um rio a nado (uma parábola). 
Veremos também como desenhar be- 
las formas usando a hipérbole e a elipse. 
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COMO CORTAR O CONE O CÍRCULO 


As quatro curvas obtidas quando se 
seccionar um cone — o círculo, a elip- 
se, a parábola e a hipérbole — diferem 
totalmente entre si. Foram estudadas em 
detalhe pela primeira vez pelo grego 
Apolônio, por volta de 200 a.C. 

O ponto inicial é: se um par de retas 
que se cruzam — como um X — roda 
em torno de um eixo de simetria, gera- 
se um duplo cone (veja os desenhos des- 
tas páginas) que pode ser cortado por 
um plano de quatro maneiras. 

Se um corte é feito em ângulo reto ao 
eixo de simetria, a seção resultante é um 
circulo. 

Um corte feito em um ângulo entre 
90º e metade do ângulo formado pelas 
linhas que geraram o cone (conhecido 
como ângulo semivertical do cone) pro- 
duz uma elipse. 

Um plano que faz com o eixo um án- 
gulo igual ao ângulo semivertical nos dá 
uma parábola. Já um plano que faz com 
o eixo um ângulo menor que o semiver- 
tical cria uma seção em duas partes cha- 
mada hipérbole. Ela tem duas partes 
porque nosso plano corta tanto o cone 
de cima como o de baixo (lembre-se de 
que o duplo cone foi gerado pela rota- 
ção de um X). 

Existem dois casos especiais. Se, por 
exemplo, o corte é feito por um plano 
que passa pelo eixo, isto é, se os cones 
são divididos verticalmente “pela meta- 
de, serão obtidas duas linhas retas — 
aquelas que foram usadas para gerar a 
figura. Elas configuram na realidade um 
caso especial de hipérbole. Por outro la- 
do, se um plano cortar os cones pelo vér- 
tice, fazendo um ângulo reto com o ei- 
xo vertical, tudo o que se tem é um pon- 
to, que é um círculo de raio zero. 

Os desenhos destas páginas devem 
deixar claro como tais formas são obti- 
das. Se quiser, você também pode cor- 
tar cones feitos de material de fácil ma- 
nipulação — como isopor ou papel — 
e verificar o que obtém. Um cone du- 
plo só será necessário se você quiser ter 
uma hipérbole de verdade, visto que ela 
sempre tem duas partes. 


RVAS E MAIS CURVAS 


As curvas sáo geradas por equagóes 
simples, algumas das quais já foram 
abordadas em outros programas. Elas 
seráo sempre desenhadas na tela de alta 
resolução do seu micro, Vejamos agora 
algumas delas. Comecemos pelo circu- 
lo, uma das curvas mais simples. 











A equação de um círculo é dada por: 





X=A*COS teta 
Y = A*SEN teta 


onde A é o raio, X e Y, um ponto qual- 
quer da circunferência, e teta, o ângule 
formado com uma reta prefixada, em 
geral o eixo X. 

O primeiro programa desenha um 
círculo de raio A no meio da tela: 





10 CLS 

15 LET 0 

25 LET x=a: LET y=0 

30 PLOT 127+x,70+y 

40 FOR t-0 TO 2*PI STEP .2 
50 LET x-a*COS t: LET y-a*SIN 
t 


60 DRAW x-PEEK 236/7+127,y- 
PEEK 23678+70 
70 NEXT 1 


10 PMODE 4:PCLS:SCREEN 1,1 

15 A=60 

20 C-ATN(1)/45 

30 LINE-(127*A,95) , PRESET 

40 FOR TH=0 TO 360 STEP 10 

50 X=A*COS(TH*C) :Y=AXSIN(TH*C) 
60 LINE -(127*X,95*Y),PSET 

70 NEXT TH 

80 GOTO 80 


10 COLOR 
15 A=60 
20 C=ATN(1)/45 

30 LINE -(127*A,95) ,4 

40 FOR TH=0 TO 360 STEP 10 

50 X-A*COS(TH*C) :Y-A*SIN(TH*C) 
60 ІЛМЕ -(127%Х,95%Ү),15 

70 NEXT 

80 GOTO 80 


15,4,4:SCREEN2 











10 HOME : HGR : HCOLOR= 3 
15 А = 60 

20 € ATN (1) / 45 

30 HPLOT 127 * A,95 

40 FOR TH = 0 TO 360 STEP 10 
50 Х = А х COS (ТН х C):Y * 
* SIN (TH * C) 

60 HPLOT TO 127 * X,95 


NEXT 










O laco FOR...NEXT das linhas 40 a 
70 é a parte do programa que desenha 
o círculo, traçando repetidamente seg- 
mentos de reta a intervalos de 10º (ou 
0.2 radianos). O raio do círculo é defi- 
nido na linha 15. 


A ELIP. 


A equação da elipse é muito pareci- 
da com a do círculo. Para uma elipse 
com o eixo maior 2A e o menor 2B, a 
posição do ponto da periferia é 


X=A*COS teta 
Y=B*SEN teta 


A forma da elipse — ou seja, suas 
proporções de características mais ou 
menos achatadas — é determinada por 
А е В. Акеге estas linhas: 


16 ШЕТ b=40 
50 LET x-a*COS f 
t 


LET y-b*SIN 


























O círculo 





























A. 








A PARÁBOLA O valor de T pode variar de infinito 

a menos infinito; grande parte de uma 

Қ arábola, contudo, pode ser vista como 

O tamanho da parábola depende do р variando entre + а —2. No progra- 

valor de uma variável, conhecida por T. ma, esses valores têm que ser postos em 

As equações são: escala por um fator M para que a curva 
caiba na tela do micro 


X=A*COS (TH*C) : Y=B*SIN(TH*C) 


B=30 
X=AXCOS (TH*C) : Y-B*SIN(TH*C) 


COS (TH * C) 


A parábola 


A elipse 


































10 CLS 

15 LET m=20 

25 LET x=4*m: LET 
30 PLOT 127+x,80+y 
40 FOR t=-2 TO 2 STEP .05 
50 LET x-m*t*t: LET y-2*m*t 
60 DRAW x-PEEK 23677+127,y- 
PEEK 23678+80 

70 NEXT t 





y=-4*m 


10 PMODE 4:PCLS:SCREEN 1,1 

15 M=23 

20 C=ATN(1)/45 

30 LINE- (127*M*4,95-4*M) , PRESET 
40 FOR T=-2 TO 2 STEP .05 

50 X-M*T^2:Y-2*M*T 

60 LINE-(127*X,95*Y) , PSET 

70 NEXT T 

во сото 80 


nau 


10 COLOR15,4,4:SCREEN2 

15 M-23 

20 C-ATN(1)/45 

30 LINE -(12/*M*4,95-M*4) ,4 
40 FOR 2 TO 2 STEP .05 
50 X-M*T^2:Y-2*M*T 

60 LINE -(127+X,95+Y),15 

70 NEXT 

80 GOTO 80 


(41%) 


10 НОМЕ 
15 М = 20 
20 С = АТМ (1) / 45 

30 HPLOT 127 +M* 4,95 - 4 * 











HGR2 : HCOLOR= 3 





M 

40 FOR T = - 2 TO 2 STEP .05 
BIN MNT ^2: A E w t 
60 HPLOT TO 127 * X,95 * Y 
70 NEXT 


A HIPÉRBOLE 


A equação da hipérbole é: 


X=A/COS teta 
Y=B*TG teta 


Metade da hipérbole é traçada en- 
quanto teta varia de -90º a 90º e a ou- 
tra metade, enquanto teta varia de 90º 
a 270º. Teoricamente, é possível usar 
apenas um laço no programa para va- 
riar teta de -90 a +270, mas há proble- 
mas nos pontos -90, 90 e 270, onde ocor- 
re uma divisão por zero. Mesmo com 
valores próximos destes, grandes núme- 
ros são envolvidos. Assim, o nosso pro- 
grama recorre a dois laços. Novamen- 
te, o fator M vem estabelecer a escala 
mais adequada para a figura: 


10 CLS 

15 LET m=30 

25 LET x-m/COS -1: 
TAN -1 

30 PLOT 127+x,75+y 


LET y=m* 





40 FOR 1 TO 1 STEP .1 
50 LET x-m/COS t: LET y-m*TAN 
t 


60 DRAW 127*x-PEEK 23677,75*y 
-PEEK 23678 





70 NEXT t 
75 LET x-m/COS 
m*TAN (PI-1) 
80 PLOT 127*x,75*y 

90 FOR t=PI-1 TO PI+] STEP .1 
100 LET x-m/COS t: LET y-m*TAN 
t 

110 DRAW 127*x-PEEK 236//,75*y 
-PEEK 23678 

120 NEXT t 


(PT-1): LET y= 





10 PMODE 4:PCLS:SCREEN 1,1 

15 M=50 

20 C=ATN(1)/45 ^ 
30 LINE -(227,8),PRESET 

40 FOR TH=-60 TO 60 STEP 5 

50 X*M/COS (TH*C) : Y=M*TAN (TH*C) 
60 LINE -(127*X,95*Y) , PSET 

70 NEXT TH 

BO LINE- (26,8) ,PRESET 

90 FOR TH=120 TO 240 STEP 5 
100 X=M/COS(TH*C) : Y=M*TAN (TH*C) 
110 LINE- (127*X,95*Y) , PSET 

120 NEXT TH 

130 GOTO 130 

































Figura 2 












na 


10 COLOR15,4,4:SCREEN2 





15 M=50 
20 C-ATN(1)/45 
30 LINE -(227,8),4 


40 FOR TH--60 TO 60 STEP 5 

50 X=M/COS(TH*C) :Y=MXTAN (TH*C) 
60 LINE -P127+X,95+Y),15 

70 NEXT 

80 LINE -(26,8),4 

90 FOR TH=120 TO 240 STEP 5 
100 X=M/COS (TH*C) : Y-M*TAN (TH*C) 
110 LINE -(127*X,95*Y),15 

120 NEXT 

130 GOTO 130 


6] 





10 НОМЕ HGR2 HCOLOR= 3 
15 M = 50 

20 С = АТМ (1) / 45 

30 HPLOT 227,8 


40 FOR TH * - 60 TO 60 STEP 5 


50X*M/ COS (TH * C) :Y * M 
* TÀN (TH * C) 
60 HPLOT TO 127 + X,95 * Y 


70 NEXT 
80 HPLOT 26,8 
90 FOR TH = 120 TO 240 STEP 5 


100 X = M / COS (TH * C):Y =M 
* TAN (TH * C) 

110 HPLOT TO 127 + X,95 + Y 
120 NEXT 


COMO RODAR AS CURVAS 


Os programas anteriores desenharam 
as curvas na sua forma mais simples, so- 
bre um eixo horizontal e outro vertical. 
No entanto, essa posigáo nem sempre é 
conveniente; além disso, pode-se querer 
desenhar as curvas em outra posição, A 
figura 1 mostra o que acontece com um 
ponto na periferia de uma elipse quan- 
do esta sofre uma rotagáo de um ángu- 
lo de AN graus. O ponto P move-se da 
posição X,Y para uma nova posição 
XT, YT e as novas coordenadas são da- 
das por: 


XT=X*COS AN-Y*SEN AN 
YT 





=X"SEN AN + Ү*СОЅ AN 





































Eis aqui a rotina de rotação para ca- 
da computador: 


1000 LET xt=x*COS (an*PI/180)-y 
*SIN 
1010 
*cos 
1020 


(an*PI/180) 

LET yt=x*SIN (an*PI/180)*y 
(an*PI/180) 

RETURN 


а С] 


1000 XT-X*COS (AN*C) -Y*SIN(AN*C) 
1010 YT-Y*COS (AN*C) *X*SIN (AN*C) 
1020 RETURN 


Algumas alterações deverão ser fei- 
tas nos programas que desenham as cur- 
vas para que eles possam usar a sub- 
rotina de rotação. Em primeiro lugar, 
o ângulo de rotação tem que ser especi- 
ficado (linha 17); a posição inicial deve 
ser rodada e as linhas, desenhadas nas 
novas coordenadas XT e YT. A linha 17 
pode ser alterada para permitir a entra- 
da do valor do ângulo para rotação por 
meio de uma instrução INPUT. É im- 
portante lembrar que essa instrução de- 
ve ser colocada antes da seleção do mo- 
do gráfico. 

Vejamos agora quais são as mudan- 
ças que precisamos realizar no progra- 
ma BASIC que desenha a elipse. Não se 
esqueça de incorporar a rotina de rota- 
ção a cada programa, 


17 LET an=60 

28 GOSUB 1000 

30 PLOT 127+xt,70+yt 

55 GOSUB 1000 

60 DRAW xt-PEEK 23677+127,yt- 
PEEK 23678+70 

80 STOP 





17 AN=60 
25 X=A:GOSUB 1000 

30 LINE-(127+XT,95+YT), PRESET 
55 GOSUB 1000 

60 LINE-(127+XT,95+YT), PSET 


nau 


17 AN=60 

25 X=A:GOSUB 1000 

30 LINE -(12/+XT,95+YT),4 
55 GOSUB 1000 

60 LINE -(XT+127,YT+95),15 


#1] 


17 АМ 60 

25 X A: GOSUB 1000 

30 HPLOT 127 + XT,95 + YT 

55 GOSUB 1000 

60 HPLOT TO 127 * XT,95 * YT 
B0 END 








Para fazer a rotação da parábola 
deve-se empregar a mesma sub-rotina. 
Adicione-a ao programa principal e fa- 
ça as seguintes alterações: 


17 LET an=60 

28 GOSUB 1000 

30 PLOT 127+xt,80+yt 

40 FOR t=-1,75 TO 1.75 STEP 
.05 

55 GOSUB 1000 

60 DRAW 127+xt-PEEK 23677,80+ 
yt-PEEK 23678 

80 STOP 


AN=60 

C=ATN (1) /45 
X=M*4 :Y=-M*4:GOSUB 1000 
LINE -(127*XT,95*YT) , PRESET 
GOSUB 1000 

LINE -(127*XT,9 


na 


5*YT),PSET 


17 AN=60 

25 X=M*4:Y=-MX4:GOSUB 1000 
30 LINE -(127+XT,95+YT),4 
55 GOSUB 1000 

60 LINE -(XT+127,YT+95),15 


[ILS] 


15 M = 17 

17 AN = 60 

20 С = АТМ (1) 
25 X = M x 4:Y = 
B 1000 

30 HPLOT 127 + XT,95 + YT 

55 GOSUB 1000 

60 HPLOT TO 127 + XT,95 + YT 
80 END 


E, finalmente, as alterações para ro- 
dar a hipérbole: 


17 LET an=60 

28 GOSUB 1000 

30 PLOT 127+xt,75+yt 

55 GOSUB 1000 

60 DRAW 127+xt-PEEK 23677,75+ 
yt-PEEK 23678 

76 GOSUB 1000 

80 PLOT 127+xt,75+yt 

105 GOSUB 1000 

110 DRAW 127*xt-PEEK 23677,75* 
yt-PEEK 23678 

130 STOP 


17 AN=60 

25 X=M/C0S(-60*C) : Y=M*TAN (-60*C 
):GOSUB 1000 

30 LINE -(127*XT,95*YT) , PRESET 
55 GOSUB 1000 

60 LINE -(XT*127,YT*95) , PSET 

75 X-M/COS (135*C) : Y-M*TAN (135*C 


/ 45 


- M * 4: GOSU 


):GOSUB 1000 

80 DRAW"BM"*STR$(INT(127*XT))*" 
,"*STRS$ (INT (95*YT) ) 

90 FOR TH=135 TO 240 STEP 5 
105 GOSUB 1000 

110 LINE -(127*XT,95*YT) , PSET 


nau 


17 AN=60 

25 X=M/C0S (-60*C) : Y=MXTAN (-60*C 
) :GOSUB 1000 

30 LINE -(127+XT,95+YT),4 

55 GOSUB 1000 


60 LINE -(XT+127,YT+95),15 

75 X=M/C08(135*C) :Y=M*TAN(135*C 
):GOSUB 1000 

ВО LINE -(127*XY,95*YT) ,4 

90 FOR TH=135 TO 240 STEP 5 
105 GOSUB 1000 

110 LINE -(XT+127,YT+95),15 


(41%) 


15 M = 35 
17 AN = 60 
25 X=M / COS ( - 60 * C):Y - 
M * TAN ( - 60 * C): GOSUB 10 


«ребе Тр утат 








30 HPLOT 127 + XT,95 + YT 
55 GOSUB 1000 


60 HPLOT TO 127 + XT,95 + YT 
75 X < M / CO8 (135 * C):Y = M 
Ж TAN (135 * C): GOSUH 1000 
80 HPLOT 127 + XT,95 + YT 

90 FOR TH - 135 TO 240 STEP 5 
105 GOSUB 1000 

110 HPLOT ТО 127 + ХТ,95 + ҮТ 
130 END 

























































ШЕСЕ ТЕЕ 2... ЕГІНШІ 


АРЦИСАСОЕ5 РВАТІСА5 


Todas essas curvas podem ser usadas 
de alguma forma prática. 

O círculo tem tantas aplicagóes que 
nem todas podem ser listadas. A roda 
é um exemplo óbvio, assim como a bo- 
la também o é para a esfera. As esferas 
(ou formas aproximadas) aparecem com 
freqüéncia na natureza. Os exemplos 
váo desde laranjas até planetas. Mas elas 
raramente são perfeitas, devido à ação 
da gravidade, ventos ou outras forças. 
Um planeta rodando ao redor de uma 
estrela poderia ter uma órbita circular, 
apesar de ser mais provável que ela fos- 
se elíptica 

As aplicações para o círculo são tão 
amplas como a determinação do menor 
custo de transporte para um produto 
que pode ser comprado em dois lugares 
diferentes. Suponhamos, por exemplo, 
que você queira comprar um modelo de 
computador vendido pelas firmas A e B, 
que estão distante 300 km entre si. Su- 
ponhamos ainda que a firma A envie o 
computador por um serviço especial de 
entrega a um custo de um cruzado por 
km, enquanto a firma B o faça em seu 
próprio caminhão, ao custo de cinquen- 
ta centavos por km. É muito simples 
marcar num mapa a região em que é 
mais barato comprar de A ou de B. A 
idéia é unir por meio de uma linha to- 
dos os pontos onde os custos são iguais 
Neste caso, devemos definir os lugares 
em que a distância até B seja o dobro 
da distância até A, 

Um desses pontos fica na linha que 
liga as duas firmas, a 100 km de A e 200 
km de B. Outro ponto fica na mesma 
linha, a 300 km de A, no sentido opos- 
toa B. Se todos esses pontos forem uni- 
dos, teremos um círculo de raio igual a 
200 km, como se vê na figura 2. Se vo- 
cê vive dentro do círculo, é mais barato 
comprar de A; se vive fora, é mais com- 
pensador comprar de B. 

A elipse também tem aplicações prá- 
ticas. É possível, por exemplo, colocar 
uma elipse em tal posição que sua som- 
bra, projetada sobre uma superfície pla- 
na, assuma a forma de um círculo per- 
feito. Essa propriedade pode ser usada 
em válvulas de dutos circulares, onde 
uma aba elíptica é usada para controlar 
o fluxo de líquidos ou gases. Ao atingir 
determinado ângulo, a aba se encaixa 
perfeitamente no duto, bloqueando o 
fluxo da substância. A parábola descre- 
ve a curva traçada por um projétil. Mas 
certos corpos celestes, como os cometas, 
podem também viajar em órbitas para- 
bólicas em torno do Sol e de outras es- 
trelas. 




















PARÁBOLAS E HIPÉRBOLES 

Os programas deste artigo foram 
concebidos de modo a explorar da me- 
Ihor maneira a tela do seu micro. Ao 
usar essas formas em programas, o fa- 
tor de escala M deve ser alterado para 
que sejam obtidas curvas do tamanho 
adequado. 

Ao rodar parábolas e hipérboles, é 
necessário tomar certos cuidados pa- 
ra que os pontos das extremidades das 
curvas náo caiam fora da tela. Assim, 
altere o fim do lago FOR...NEXT da li- 
nha 40 do programa da parábola e das 
linhas 40 a 90 do programa da hipér 
bole. O limite exato deverá ser encon- 
trado pelo método de tentativa e erro. 











Por outro lado, raios de luz e calor 
paralelos ao eixo de uma parábola são 
refletidos de modo a passar pelos focos. 
Isso acontece nas duas direções. Assim, 
um filamento colocado no foco produ- 
zirá um feixe paralelo de luz, como os 
usados em faróis de automóveis. Na ou- 
tra direção, os raios solares podem ser 
concentrados no foco de uma parábo- 
la, produzindo altíssimas temperaturas; 
este é o princípio de funcionamento dos 
fornos solares. 

Na prática, os refletores utilizados 
para tais fins são parabolóides tridimen- 
sionais. Estes também são usados em 
outras aplicações, como antenas para re- 
cepção e transmissão de ondas de rádio, 
acessórios de sistemas de televisão e te- 
lefonia etc. 

Uma característica importante da hi- 
pérbole é — como já foi dito — sua 
constituição em duas partes. Os sistemas 
de radar para navegação valem-se des- 
sa qualidade, funcionando com duas es- 
tações. Uma delas transmite um sinal, 
que é retransmitido imediatamente pe- 
la outra estação. Ao receber os dois si- 
nais, o operador de um navio nas pro- 
ximidades calcula o tempo entre as duas 
emissões. Se o barco se move de manei- 
ra a manter constante o tempo entre as 
chegadas, é porque tem um curso hiper- 
bólico, como é mostrado na figura 3. Se 
o operador também receber sinais de ou- 
tras duas estações e calcular o tempo en- 
tre a chegada dos sinais, terá outra hi- 
pérbole; a interseção das duas dará a po- 
sição do navio. 














CRIE SPRITES COM 
VPEEK E VPOKE 








Vocé pode criar e movimentar sprites 
com a ajuda dos versáteis 

comandos VPOKE e VPEEK. Mas, para 
isso, precisa conhecer primeiro a 
organizacáo de memória de vídeo do MSX. 





Até agora, usamos bastante os co- 
mandos VPEEK e VPOKE para obter 
efeitos gráficos, mas nunca na progra- 
mação de sprites. Para fazer isso, pre- 
cisamos conhecer bem a organização da 
memória de vídeo do MSX, a chamada 
VRAM. A estrutura dessa memória, 
bem como os princípios básicos dos co- 
mandos VPEEK e VPOKE, foi explica- 
da no artigo Os Comandos PEEK e PO- 
KE (página 261). 

A VRAM é uma memória indepen- 
dente, com capacidade de armazenar até 
16 kbytes. Ela é utilizada por um chip 
especial, que se dedica integralmente ao 
controle da tela: o VDP — Video Dis- 
play Processor. 

O MSX pode dispor da tela de quatro 
formas: texto em quarenta colunas, tex- 
to em 32 colunas, gráficos em alta reso- 
lução e gráficos em baixa resolução. É 
o VDP que determina o tipo de tela que 
está sendo mostrado no video. Quando 
estamos programando em BASIC, o co- 
mando SCREEN ajusta o VDP para 
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mostrar o tipo de tela desejado. 

Os diferentes tipos de tela nada mais 
sáo que maneiras diversas de interpre- 
tar os números que estáo na VRAM. Pa- 
ra fazer essa interpretação, o VDP di- 
vide a memória de vídeo em regiões que 
são denominadas tabelas. Cada tabela 
tem sua função. No modo texto de qua- 
renta colunas, por exemplo, existe uma 
tabela de nomes, cuja função consiste 
em armazenar os códigos ASCII das le- 
tras que aparecem no texto. Uma vez 
que coloquemos um código numa certa 
posição da tabela de nomes, o VDP uti- 
liza esse valor a fim de encontrar os 
bytes que determinam o formato da le- 
tra em outra parte da VRAM (na cha- 
mada tabela de padrões). 

Os quatro tipos de tela têm tabelas de 
nomes e tabelas de padrões, que funcio- 
nam de maneira parecida. Para que não 
seja preciso memorizar os endereços ini- 
ciais de cada uma delas na VRAM, em- 
pregamos variáveis do sistema chama- 
das BASE, que descobrem o valor cor- 


reto para nós. Esses valores estão con- 
tidos no VDP; em outro artigo apren- 
deremos a modificá-los. 

No modo texto de quarenta colunas 
— SCREEN 1 — não podemos modifi- 
car a cor de letras individuais nem usar 
sprites. Nos outros três tipos de tela exis- 
te uma porção da VRAM, dedicada a 
controlar os efeitos cromáticos, chama- 
da tabela de cores. Essa tabela assume, 
em cada tela, um tamanho e uma posi- 
gáo diferentes. 

Neste artigo, mostraremos a organi- 
zação de duas outras tabelas da VRAM, 
existentes nos tipos de tela que permi- 
tem a programação de sprites: a tabela 
de atributos de sprites e a tabela de pa- 
drões de sprites. Mais adiante, tratare- 
mos da organização do VDP. 


UM BANCO DE SPRITI 


Antes de prosseguir no estudo da 
VRAM, convém recordar como o com- 
putador armazena o padráo de um spri- 
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a ORGANIZAÇÃO DA MEMÓRIA 


MOVIMENTA SPRITES 
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te. Até agora, quando quisemos definir 
o pradrão de um sprite, usamos um 
cordão para armazenar os bytes corres- 
pondentes a cada linha com oito pon- 
tos do sprite. Se você consultar o artigo 
Crie Sprites no MSX (página 188), verá 
que a ordem de interpretação dos bytes 
tem a seguinte correspondência com o 
padrão de um sprite de 16 x 16 pontos: 


Linha 1: BYTE | BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 
Linha 4: BYTE 4 BYTE 20 


Para entender como os sprites são ar- 
mazenados e movimentados na memó- 
ria de vídeo, precisamos de alguns exem- 
plos desses blocos gráficos. Neste arti- 
go, como de costume, trataremos de 
sprites de 16 x 16 pontos, salvo menção 
em contrário. Digite o programa: 


10 CLEAR 200,&HD000 
20 FOR 1=0 TO 255 


30 READ AS:POKE £HD100+I,VAL("£ 
B"+AS) 

40 РОКЕ £HE100+1,16+15 
50 МЕХТ 

1000 DATA 00000000 
1010 DATA 00000000 
1020 DATA 00000000 
1030 DATA 00000000 
1040 DATA 00000000 
1050 DATA 00000001 
1060 DATA 00000011 
1070 DATA 00111111 
1080 DATA 11101010 
1090 БАТА 01111111 
1100 DATA 00000001 
1110 DATA 00000000 
1120 DATA 00000000 
1130 DATA 00000000 
1140 DATA 00000000 
1150 РАТА 00000000 
1160 DATA 00000000 
1170 DATA 00000000 
1180 DATA 00000000 
1190 DATA 01110000 
1200 DATA 10100000 
1210 DATA 01000001 
12/0 DATA 10000011 
1230 DATA 1111110) 





1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10101001 
111/1111 

00100000 
10010000 
01001000 
00111100 
00000000 
00000000 
00000000 
00000000 
00000000 
00111100 
00100010 
00100001 

01000001 
01000001 

10100010 
10000000 
11111101 

00110010 
00011101 

00000011 
00000000 
00000000 


00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
11110000 
00101000 
00010100 
00101010 
01010101 
10111111 
01111000 
10000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000001 
00000001 
00000001 
11100001 
01010001 
00101010 
00100100 
00100000 


1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00101000 
01010100 
11100110 
00000101 
00000110 
00010010 
00000000 
00001001 
00000010 
10000000 
01000100 
00100001 
11111000 
00000100 
00110010 
00000001 
00111111 
01000000 
00111100 
11111000 
00000000 
00001110 
00000011 
00011011 
01101111 
10000111 
10011111 
00110011 
01100101 
01000101 
01000001 
00000001 
00000001 
00000001 
00000011 
00111111 
11111111 
00000000 
01111100 
11100110 
11111000 
11111100 
11100100 
11110010 
10011001 
10000100 
10000100 
10000000 
11000000 
11000000 
11000000 


2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





11111100 
11111111 
00000111 

00111111 
00000000 
00000001 
00000010 
00000100 
00001000 
00010000 
00111111 
01111111 
00000000 
01111111 
00100000 
00011000 
00000111 

00000000 
10000000 
10000000 
10000000 
11000000 
11100000 
10110000 
10011000 
10000100 
10000010 
11111111 
10000000 
11111111 
00110010 
01100100 
11110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00001100 
00011111 
00111111 
01111111 
11111111 
11111111 
00000000 











2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00010000 
00111000 
01111100 
11111100 
11111110 
11111110 
11111111 
11111111 
11111111 
00000000 
00000000 
00000000 
00000000 
00000011 
00000111 
00000110 
000C0010 
00000111 
00000111 
00000111 
11111111 
00111111 
00001111 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
10000000 
00000000 
00000000 
00000000 
11000000 
01000000 
10111111 
11011100 
11100000 
00001000 
00000100 
00000111 
00010001 
00111101 
01001101 


3280 DATA 01101101 
3290 DATA 01101101 
3300 DATA 01101101 
3310 DATA 00101101 
3320 DATA 00011101 
3330 DATA 00001101 
3340 DATA 00000110 
3350 DATA 00000001 
3360 DATA 00000111 
3370 DATA 00000100 
3380 DATA 00000100 
3390 DATA 00000011 
3400 DATA 11000000 
3410 DATA 00010000 
3420 DATA 01111000 
3430 DATA 01100100 
3440 DATA 01101100 
3450 DATA 01101100 
3460 DATA 01101100 
3470 DATA 01101000 
3480 DATA 01110000 
3490 DATA 01100000 
3500 DATA 11000000 
3510 DATA 00000000 
3520 DATA 11000000 
3530 DATA 01000000 
3540 DATA 01000000 
3550 DATA 10000000 


Esse programa cria um banco de spri- 
tes no topo da memória. Os formatos 
das figuras podem ser observados nos 
nümeros binários contidos nas linhas 
DATA; basta lembrar que os '*1"' cor- 
respondem a pontos ''acesos"' e os “0”, 
a pontos “apagados” na tela. Note a or- 
dem dos bytes que compõem o padrão 
do sprite. Ela é exatamente aquela a que 
fizemos referência: primeiro os dezesseis 
bytes da metade esquerda e depois os da 
metade direita. 

A linha 10 protege o topo da memó- 
ria, onde coloca os padrões. O endere- 
ço usado é o mesmo dos bancos de blo- 
cos criados pelo editor dos artigos Ge- 
ração de Blocos Gráficos (1 e 2). 

Os laços FOR...NEXT entre as linhas 
20 e 50 usam o comando READ para 


obter os números binários das linhas 
DATA e POKE para colocar os valores 
correspondentes no topo da memória. 
A linha 40 cuida das cores dos padrões 
— preto sobre fundo branco — para que 
possamos vê-los através do editor. 

Essa utilização do editor de blocos 
para observar os padrões criados não é 
obrigatória. O BASIC aqui apresenta- 
do foi criado com objetivos didático: 
ele permite compreender a organização 
da VRAM com o auxílio do programa 
do final do artigo. As figuras geradas 
por ele — barcos, peixes e uma ilha de- 
serta, entre outros — serão utilizadas em 
outro artigo para animar um quadro na 
tela do computador. 


USE O EDITOR DE BLOCOS GRÁFICOS 


Há dois caminhos para utilizar o edi- 
tor de blocos gráficos com esse conjun- 
to de sprites. O primeiro é mais indica- 
do para principiantes. Depois de execu- 
tar e gravar o programa acima em fita, 
grave o banco de sprites por intermédio 
do comando: 


BSAVE'CAS:SPRITE' ,AHD100,AHEFFF 


Carregue entáo o programa editor de 
blocos gráficos do cassete e execute-o. 
Aperte a tecla T e responda L à pergunta 
do computador: *(S)AVE ou (LJOAD?", 
Posicione a fita na posicáo em que gra- 
vou o banco de sprites, aperte ENTER 
e, em seguida, pressione o botão 
“PLAY” do gravador. 

O segundo caminho é mais indicado 
para aqueles que estão acostumados 
com o uso do editor: depois de execu- 
tar o programa apresentado linhas atrás, 
carregue o editor de blocos da fita e 
execute-o também. (O banco de sprites 
está na posição correta, só que não po- 
demos vê-lo. É possível, contudo, recu- 














perar os padrões com auxílio da tecla 
R.) As posições ocupadas pelos blocos 
vào de 0 a 31. 

Os blocos de 8 x 8 pontos que com- 
póem os sprites estáo ordenados de 
acordo com as exigéncias do VDP. 


SPRITES NA VRAM 


Nos tipos de tela que permitem o uso 
de sprites, certas porções da VRAM são 
reservadas para controlar sua exibição. 
Para exemplificar, recorreremos à tela 
de 32 colunas. 

O MSX só permite a exibição de 32 
sprites ao mesmo tempo. Cada um des- 
ses sprites tem suas características arma- 
zenadas numa tabela de atributos de 
sprites. São quatro os atributos de um 
sprite: suas coordenadas X e Y, seu no- 
me e sua cor. Dessa forma, cada sprite 
necessita de quatro bytes para seus atri- 
butos, e a tabela de atributos terá um 
comprimento de 128 bytes. 

A prioridade de um sprite é determi- 
nada pela sua posição na tabela de atri- 
butos. Terão prioridade os sprites que 
ocuparem as primeiras posições na ta- 
bela; ou seja, se dois sprites estiverem 
na mesma posição, será mostrado aque- 
le que aparecer primeiro na tabela. As 
coordenadas X e Y determinam o lugar 
do sprite na tela. Elas correspondem ao 
canto superior esquerdo do sprite. Seus 
valores devem permanecer entre 0 e 255. 
Quando Y é maior que 191, o sprite de- 
saparece na borda inferior da tela. Se Y 
for 208, todos os sprites com priorida- 
de inferior desapareceráo; e, se for 209, 
o sprite em questão desaparecerá. 

E importante prestar atenção aos li- 
mites impostos à coordenada X. Quan- 
do utilizamos a instrução PUT SPRITE, 
a coordenada X pode ter valores nega- 














tivos. Contudo, se tentarmos colocar em 
uma posição da VRAM um valor fora 
da faixa que vai de 0 a 255, o computa- 
dor emitirá uma mensagem de erro. 

Infelizmente, um sprite só pode ter 
uma cor. Esta corresponderá aos “роп- 
tos acesos” do padrão, ou à cor de fren- 
te, que é determinada pelos quatro bits 
menos significativos do byte de cor, na 
tabela de atributos. Os códigos das co- 
res são aqueles que você já conhece. O 
bit 7 dessa posição controla os valores 
negativos de X, quando utilizados em 
uma instrução PUT SPRITE, ou seja, 
ele será “aceso” se X estiver entre 0 e 
— 32. Essas coordenadas negativas per- 
mitem que o sprite desapareca no canto 
esquerdo da tela, podendo reaparecer no 
direito. 

O nome do sprite indica ao VDP on- 
de o padráo do sprite pode ser encon- 
trado na tabela de padróes de sprites. 

O endereço inicial da tabela de atri- 
butos de sprites está em BASE(8) na te- 
la de 32 colunas; em BASE(13) na tela 
de alta resolução; e em BASE(18) na tela 
multicolor. 

O MSX permite que criemos até 64 
sprites de 16 x 16 pontos, embora só 32 
possam aparecer na tela ao mesmo tem- 
po. Os padrões desses sprites ficam 
guardados na tabela de padrões. Como 
cada sprite precisa de 32 bytes para de- 
finir seu padrão, a tabela tem 2048 bytes 
de comprimento. Os padrões definidos 
pelo BASIC SPRITES(N) são colocados 
em posições diferentes dessa tabela, con- 
forme o valor de N. O VDP se baseia 
no nome do sprite que está na tabela de 
atributos para calcular a posição em que 
seu formato se encontra na tabela de 
padrões. 

Cada sprite de 16 x 16 pontos neces- 
sita, ao ser programado, de 32 bytes. Se 
preferirmos trabalhar com sprites pe- 
quenos, com 8 x 8 pontos, cada um de- 











les precisará de apenas oito bytes para 
armazenar seu padrão. Dessa forma, co- 
mo a tabela de padrões de sprites tem 
2048 bytes de comprimento, podemos 
criar até 256 sprites pequenos e até 64 
sprites grandes. 

O endereço inicial da tabela de pa- 
drões de sprites fica em BASE(9) na te- 
la de 32 colunas; em BASE(14) na tela 
de alta resolução; e em BASE(19) na tela 
multicolor. 

Quando seu micro padrão MSX es- 
tiver ligado em um modo gráfico que 
permita a exibição de sprites, o VDP 
procurará na tabela de atributos de spri- 
tes os dados necessários à exibição dos 
32 sprites ali definidos. De um certo mo- 
do, podemos dizer que o VDP está sem- 
pre mostrando os rites na tela; nem 
sempre, contudo, vemos todos os spri- 
tes — seja porque o valor da coordena- 
da Y está escondendo o sprite, seja por- 
que não há nenhum padrão definido na 
tabela de padrões e todos os pontos dos 
sprites estão apagados 


IM PROGRAMA DIDÁTICO 


Para que funcione o programa a se- 
guir — organizado, como o anterior, 
com propósitos didáticos —, é necessá- 
ria a presença de um banco de sprites no 
topo da memória. Portanto, antes de 
digitá-lo, execute o programa anterior, 
apague-o com NEW e só entáo digite e 
execute a nova listagem. 

5 CLEAR 200,&HD000 

10 SCREEN 1,2:KEY OFF 

20 COLOR 1,7,7:CLS 

30 Z$="00000000”:N=0:4=0 

40 A-BASE(8):GOSUB 3000 

50 УРОКЕ BASE(6)*4,16*9 

55 VPOKE BASE(6)*31,12*16*12 
60 X=UPEEK (A+4*N+1) : Y=UPEEK (A+4 
AN) :C=UPEEK (A+4*N+3) :NX=UPEEK(A 
+NX44+2) : P=BASE (9) +8*NX 





























70 GOSUB 1000:GOSUB 2000 

80 KS=INKEYS:IF K$="" THEN 80 
90 IF K$="N” AND N<31 THEN N=N+ 
1:60Т0 60 

100 IF K$-"B" 
1:GOTO60 

110 IF K$-"C" THEN С= (С+1) МОр16 
:VPOKE A*4*N*3,C:GOTO 60 

120 IF KS*CHR$(28) AND X<247 TH 
EN X=X+8:UPOKE A+4*N+1,X:GOTO 6 
0 

130 IF KS=CHRS(29) AND X>7 THEN 
X=X-B:VPOKE A+4*N+1,X:GOTO 60 
140 TF K$=CHR$(3]) AND Y<247 TH 
EN Y=Y+B:UPOKE A+4*N,Y:GOTO 60 
150 1F K$=CHR$(30) AND Y>7 THEN 
Y-Y-B:UPOKE A*4*N,Y:GOTO 60 
160 IF KS-"L" THEN VPOKE A+t4*N, 
160:GOTO 60 
170 IF K$-"A" 
209:GOTO 60 
180 IFK$=CHRS(27) THEN W=NOT W: 
GoTo 60 

190 IF KS-"W" AND NX€252THEN NX 
*NX*4:UPOKE A*4*N*2,NX:GOTO 60 
200 IF K$2"Q" AND NX>3 THEN NX= 
NX-4:VPOKE A*4*N*2,NX:GOTO 60 
210 GOTO 80 

1000 FOR I-0 TO 9 

1010 LOCATE 0,1+13 

1020 PRINT RIGHT$(STR$(P*I),5); 
” ";RIGHTS (Z5+BINS (VPEEK (P+1)), 
8); 
1030 
1040 


AND N»0 THEN N-N- 


THEN UPOKE A*4*N, 


NEXT I:IF W--1 THEN 1090 
FOR I-10 TO 31 

1050 LOCATE 14,1-9 

1060 PRINT P+I;RIGHTS (Z3+BINS (V 
PEEK(P+1)),8); 

1070 NEXT I 

1080 RETURN 

1090 FOR I-10 TO 31 

1100 LOCATE 14,1-9 

1110 PRINT STRINGS(7,32) i RIGHTS 
(ZS+BINS (VPEEK (P+1)),8); 

1120 IF 1=30 THEN I=I+1:GOTO 10 
50 
1130 
2000 
2010 
2020 
2030 


NEXT I: RETURN 

LOCATE 3,1 

PRINT "SPRITE";N; 

LOCATE 1,3 

PRINT A*4*N;UPEEK (A*4*N) ; T 





AB(12);"Y" 
2040 LOCATE 1,4 
2050 PRINT A+4XN+1¡UPEEK(A+4XN+ 
1) i TAB (12) ; "X" 
2060 LOCATE 1,5 
2070 PRINT A*4*N*2;VPEEK (A*4*N 
2) 
2080 LOCATE 1,6 
2090 PRINT A*4*N*3;" 
EK (A*4*N43) ) 
2100 LOCATE 4,8 
2110 PRINT "BASE(8)"; 
2120 LOCATE 4,9 
2130 PRINT BASE(8) 
2140 LOCATE 4,10 
2150 PRINT "BASE(9)"; 
2160 LOCATE 4,11 
2170 PRINT BASE(9) 
2180 FOR I-0 ТО 12 
2190 UPOKE BASE(5)*1*3242,255 
2200 УРОКЕ ВАЗЕ (5) +1*32+15,255 
2210 МЕХТ 
2220 FOR I-3 TO 14 
2230 УРОКЕ BASE(5)+1,255 
2240 UPOKE BASE (5)+14+32*12,255 
2250 NEXT:RETURN 
3000 FOR 1-0 ТО 255 
3010 VPOKE BASE(9)*I,PEEK (&HD10 
0+1) 
3020 NEXT:RETURN 

Ao ser executado, o programa mos- 
tra, no canto superior esquerdo da tela, 
cercado por uma moldura verde, um 
quadro onde se lê “SPRITE 0”. Esse 
quadro é uma imagem da tabela de atri- 
butos de sprites. Nele são exibidos o en- 
dereço e o conteúdo das quatro posições 
da VRAM que correspondem ao primei- 
ro sprite da tabela — o sprite 0. Quan- 
to menor o número do sprite, maior se- 
rá sua prioridade, o que dá ao sprite ze- 
ro prioridade absoluta. Para que o lei- 
tor se localize na VRAM, os endereços 
iniciais da tabela de atributos de sprites 
— BASE(8) — e da tabela de padrões 
de sprites — BASE(9) — também são 
mostrados no quadro. 

Como já dissemos, o primeiro byte 
corresponde á coordenada Y. Se olhar- 


"; HEXS (VPE 





mos a tela, entenderemos por que o spri- 
te0 — o avião — não está aparecendo: 
a sua coordenada Y é maior que 191. 
Para fazê-lo aparecer, basta pressionar 
L. Feito isso, surge instantaneamente na 
tela; se observarmos novamente o qua- 
dro de moldura verde, vamos entender 
por quê: a coordenada Y do sprite O mu- 
dou para 160. 

O sprite pode ser movimentado com 
o auxílio das teclas do cursor, Note co- 
mo as coordenadas vão se modificando 
com o movimento do sprite — a coor- 
denada X é o segundo byte do quadro. 

O terceiro byte mostrado no interior 
da moldura verde corresponde ao “'no- 
me” do sprite. Esse valor orienta o VDP 
na busca do padrão do sprite dentro da 
tabela de padrões. 

O valor do nome, multiplicado por 
oito e somado ao endereço inicial da ta- 
bela de padrões — BASE(9) —, fornece 
o endereço do primeiro dos 32 bytes cor- 
respondentes ao padrão do sprite. São 
exatamente estes 32 bytes que estão sen- 
do mostrados no restante da tela. Ali te- 
mos uma imagem da porção da VRAM 
que contém o padrão do sprite. Os en- 
dereços dos bytes estão em decimal, е о 
seu conteúdo, em binário. Veja como os 
“zeros” e os “uns” desenham exata- 
mente o perfil do avião. Confira tam- 
bém o endereço inicial, multiplicando o 
nome por oito e somando o resultado ao 
conteúdo de BASE(9). 

Voltando ao quadro de moldura ver- 
de, resta o quarto byte, que correspon- 
de à cor do sprite, em hexadecimal. Po- 
demos mudar instantaneamente a cor do 
sprite pressionando a tecla C. Ligue o 
sprite 10, com a tecla L, movimente-o 
com as setas e veja como sua cor muda 
com a tecla C. Observe atentamente o 
conteúdo dos bytes da tabela de atribu- 
tos enquanto a cor e a posição do sprite 
vão sendo modificadas. 

















































Para ver o próximo sprite na ordem 
de prioridade, aperte a tecla N. Os qua- 
tro bytes seguintes da tabela de atribu- 
tos de sprites apareceráo dentro da mol- 
dura verde e os 32 bytes corresponden- 
tes ao desenho do sprite, junto com seus 
enderecos na tabela de padróes de spri- 
tes, apareceráo no resto da tela. A tecla 
L faz o sprite aparecer, e a tecla A o apa- 
ga da tela, colocando 209 no byte da 
coordenada Y. 

Podemos entáo percorrer a tabela de 
atributos de sprites pressionando repe- 
tidas vezes a tecla N. A regiáo de inte- 
resse dentro da tabela de padróes de 
sprites também é atualizada. Podemos 
ligar, movimentar e mudar as cores dos 
sprites. Depois de usar a tecla N 31 ve- 
zes, chegaremos ao fim da tabela de atri- 
butos. Para voltar, tomando a diregáo 
dos sprites com maior prioridade (ou 
menor número), basta pressionar a te- 
cla B, que tem um efeito inverso ao da 
tecla N. 

Podemos ainda modificar o nome de 
um sprite, alterando a regiáo da tabela 
de padróes a que ele se refere. Isso equi- 
vale a trocar o padráo do sprite. Para 
avançar na tabela de padrões, manten- 
do a prioridade do sprite, use a tecla W. 
Se o sprite em questáo estiver na tela, 
veremos seu padrão ser substituído por 
outro desenho. Para retroceder na tabe- 
la, use Q. 

As teclas N e B não modificam ne- 
nhum valor da VRAM; elas apenas mu- 
dam a região da tabela de atributos de 
sprites mostrada dentro da moldura ver- 
de. Já as teclas Q e W modificam o byte 
do nome do sprite, alterando a figura 
que está sendo mostrada, Por exemplo, 
a tecla W transforma o avião em uma 
nuvem, e a Q coloca um coqueiro no lu- 
gar onde havia um barco. 

Use o programa para entender a or- 
ganização da VRAM. Quando não hou- 
ver mais dúvidas sobre os significados 
de cada endereço, podemos lançar mão 
da tecla ESC. Ela apaga a coluna de en- 
dereços da direita. 

O programa ajuda também a ilustrar 
uma limitação do uso de sprites: não é 
possível inserir em uma mesma linha ho- 
rizontal mais do que quatro sprites. Ten- 
te colocar cinco na mesma linha hori- 
zontal e veja o que acontece. 
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IONA 0 PROGRAMA 


A linha 5 mantém protegida a área 
onde foi colocado o banco de sprites. A 
10 seleciona a tela de 32 colunas e spri- 
tes grandes. A 20 seleciona as cores da 
tela, além de limpá-la. 

As linhas 30 e 40 estabelecem os va- 


lores iniciais de algumas variáveis. Z$ 
serve para imprimir nümeros binários, 
Néa posição do sprite na tabela de atri- 
butos — ou seja, sua prioridade —, W 
é um sinalizador que indica se ESC foi 
pressionada, A contém o endereço ini- 
cial da tabela. 

A mesma linha 40 chama a sub-rotina 
3000, que é responsável pela transferên- 
cia do banco de sprites para a tabela de 
padrões. As linhas 50 e 55 modificam as 
cores de dois grupos de caracteres. Os 
caracteres 32 e 255 são usados para de- 
senhar respectivamente as molduras la- 
ranja e verde. 

O laço principal do programa come- 
ça na linha 60. Ali são atualizados os va- 
lores de uma série de variáveis. X é a 
coordenada X do sprite atual; Y é a ou- 
tra coordenada desse sprite; C é a sua 
cor e NX, o seu nome. Todos esses va- 
lores sáo obtidos na tabela de atributos 
de sprites por meio de comandos 
VPEEK. P é o endereco inicial da por- 
ção da tabela de padrões onde se encon- 
tra o desenho do sprite atual; seu valor 
é calculado somando-se ao endereço ini- 
cial da tabela de padrões o resultado da 
multiplicação de oito pelo nome do spri- 
te atual, 

A seguir, a linha 70 chama duas sub- 
rotinas. A que começa na linha 1000 é 
responsável pela impressão da imagem 
da tabela de padrões na tela. A da linha 
2000, por sua vez, cuida da impressão 
da imagem da tabela de atributos, jun- 
to com sua moldura verde. 

A linha 80 aguarda que pressionemos 
uma tecla e a série de instruções IF... 
THEN que se segue executa as fun- 
ções correspondentes a cada tecla. 

Caso a tecla N tenha sido pressiona- 
da, a linha 90 modificará o sprite atual, 
passando ao sprite seguinte — de menor 
prioridade. Para fazer isso, basta au- 
mentar o valor da variável N em uma 
unidade. A linha 100 cuida da tecla B, 
que volta ao sprite anterior, subtraindo 
uma unidade de N. 

A linha 110 modifica a cor do sprite 
quando pressionamos a tecla C. A no- 
va cor é obtida somando-se uma unida- 
de à variável C. A função MOD16 é uti- 
lizada para manter o código da cor en- 
tre0e 15. C - 1 MOD16é o resto da di- 
visáo do código da nova cor por 16. O 
código da nova cor é colocado na tabe- 
la de atributos por VPOKE. 

As linhas 120 e 130 cuidam do movi- 
mento horizontal do sprite. Conforme 
as teclas “seta para a esquerda” e ““se- 
ta para direita” são presssionadas, o va- 
lor da variável X aumenta ou diminui 
oito unidades. Note que as condições 
AND X «247 e X» 7 evitam que o spri- 
te ultrapasse os limites da tela. A nova 


coordenada X é colocada na tabela de 
atributos por VPOKE. 

As linhas 140 e 150 cuidam do movi- 
mento vertical de maneira análoga. A li- 
nha 160 “liga” o sprite quando L é pre- 
cionada. Isso é feito com VPOKE, que 
coloca o valor 160 na posição da tabela 
de atributos que corresponde à coorde- 
nada Y. A linha 170 apaga o sprite ao 
toque da tecla A. Para obtermos esse 
efeito, a coordenada Y é modificada pa- 
ra o valor 209, com VPOKE. A linha 
180 detecta a tecla ESC, modificando o 
valor do sinalizador W. 

As linhas 190 e 200 alteram o valor 
do byte que corresponde ao nome do 
sprite atual. A tecla Q diminui o nome 
em quatro unidades e a tecla W o au- 
menta na mesma medida. O nome deve 
ser sempre múltiplo de 4 quando se tra- 
ta de sprites grandes. É que um padráo 
de sprite tem 32 bytes. Como o nome é 
multiplicado por oito para calcular a po- 
sigáo do padráo na tabela, se o aumen- 
tarmos em quatro unidades, a posigáo na 
tabela avangará 8 x 4 = 32 unidades, 
passando para o padráo seguinte. Se o 
usuário pressionar qualquer outra tecla 
diferente das mencionadas, a linha 210 
retornará á linha 80. 

A sub-rotina da linha 1000 cuida da 
impressáo dos valores contidos na tabela 
de padróes. O laco FOR...NEXT entre 
as linhas 1000 e 1030 imprime os dez pri- 
meiros enderecos de interesse no canto 
inferior esquerdo da tela. 

A seguir, conforme o valor de W, sào 
impressos os outros 22 enderecos. Se W 
for 0, o laco entre as linhas 1040 e 1070 
imprimirá tanto os enderecos quanto 
seus conteúdos. Se W for 1, o laco en- 
tre as linhas 1090 e 1130 imprimirá so- 
mente os conteúdos, preenchendo o es- 
pago antes ocupado pelo enderego com 
espaços cor-de-laranja. 

Os endereços são impressos com nú- 
meros decimais; os conteúdos aparecem 
em binário. A função BINS$ calcula o va- 
lor binário; a função RIGHTS, junta- 
mente com a variável Z$, faz com que 
sejam impressos exatamente oito digitos 
binários por endereço. A função 
STRINGS serve para imprimir sete es- 
pacos cor-de-laranja. A sub-rotina da li- 
nha 2000 cuida do quadro com moldu- 
ra verde e do seu conteüdo. Os dois la- 
cos FOR... NEXT das linhas entre 2180 
€ 2250 desenham a moldura, que é com- 
posta por caracteres de código ASCII 
255. No restante da rotina, LOCATE é 
utilizada juntamente com PRINT para 
escrever os endereços, conteúdos e suas 
legendas nas posições adequadas. 

Os valores dos quatro bytes do sprin- 
te atual são obtidos na tabela de atribu- 
tos por meio do comando VPEEK. 
















































JUNTE AS PORCÓES DO 


TIENE RR ER RB ED DE RE CODIGO DEMAQUIMA 90:5: ARI 
VIDEOGAME 


z 
DEFINA A FORMA DOS BLOCOS 

ALAN — 

J  NÀO GRAVE BYTES A MAIS 


A procura do lanche roubado leva nosso 
indigitado herói a enfrentar 

novos obstáculos. Agora, ele precisa 

de uma montanha para escalar. 

Use blocos gráficos para construí-la. 














Que náo seja o Everest, nem tampou- 
co o Aconcágua. Nossa montanha há de 
ser modesta e simples: um mero acidente 
geográfico. Mas que represente um obs- 
táculo a transpor, um desafio a vencer. 
Que Willie, ao vé-la, náo resista ao im- 
pulso de escalá-la 

Para colocá-la na tela, precisamos 
criar uma série de blocos gráficos. Mais 
uma vez, usaremos um programa BA- 
SIC para colocar na memória a tabela 
com os padróes dos blocos. Náo será 
possível (por enquanto) ver os gráficos 
na tela de alta resolucào — a montagem 
do cenário é tarefa para uma rotina em 
código que será abordada no próximo 
artigo. Os usuários do Spectrum e do 
MSX, contudo, poderão ter uma idéia 
dos blocos, olhando o padrão dos bits 
nas linhas DATA. Neste estágio, tudo 
o que você deve fazer é digitar e execu- 
tar o programa BASIC e gravar os có- 
digos resultantes em fita. 

A esta altura, temos vários pedaços 
de videogame gravados separadamente. 
Chegou o momento de juntá-los. 


Precisamos, em primeiro lugar, de- 
finir o formato dos blocos gráficos uti- 
lizados no jogo — nuvens, gaivotas, pe- 
dras que rolam, buracos, cobras vene- 
nosas, lanche para um piquenique na 
relva, e o próprio Willie, nosso desven- 
turado herói. Só esses caracteres já da- 
riam muitos bytes, mas, para suavizar 
o processo de animação, todas as f 
ras móveis serão desenhadas em várias 
posições, o que aumenta ainda mais os 
dados. Além disso, empregaremos sal- 
tos de meio caractere e alternaremos os 





























БЕЛІ кела ("BIN"*a$): NEXT n 9015 DATA 00111100 
blocos para dar a impressão de movi- оруу рата 00011000 9016 DATA 00111100 
mento continuo. 9011 DATA 00111100 9017 DATA 00111100 
5 CLEAR 56999 9012 DATA 00111100 9018 DATA 00111100 
10 FOR n=57000 TO 57327: READ 9013 DATA 00011000 9019 DATA 00111100 
a: LET a$-STRS a: POKE n,VAL 9014 DATA 00111100 9020 DATA 00011000 








9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 
9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
9076 
9977 
9078 
9079 
9080 
9081 
9082 
9083 
9084 
9085 
9086 
9087 
9088 
9089 
9090 
9091 
9092 
9093 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00011000 
00011000 
00011000 
00011000 
00011110 
00000001 
00000011 
00000011 
00000001 
00000000 
00000001 

00000001 
00000001 

10000000 
11000000 
11000000 
10000000 
00000000 
00000000 
00000000 
11100000 
00001110 
00000000 
00000001 

00000010 
00000100 
00001000 
00000100 
00000000 
00000000 
00000000 
10000000 
01000000 
00100000 
00100000 
00110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00011000 
00111100 
00111100 
00011000 


00000000, 


00010000 
00010000 
00011110 
11100000 
00000000 
00001100 
00100100 
01000010 
10000010 
01000011 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000001 
00000011 
00000011 
00000001 
00000000 
00000000 
00000000 
00000000 


9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 
9130 
9131 
9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10000000 
11000000 
11000000 
10000000 
00000000 
00000001 
00000001 
00000001 
00001110 
00000000 
00000001 
00000010 
00000000 
00000000 
00000000 
11100000 
00000000 
00000000 
10000000 
01000000 
00000100 
00001000 
00000100 
00000000 
00000000 
00000000 
00000000 
00000000 
00100000 
00100000 
00110000 
00000000 
00000000 
00000000 
00000000 
00000000 
00011100 
00111110 
01111111 
11111111 
11111111 
11111110 
11111100 
00111000 
00000011 
00000111 
00001111 
00001111 
00001111 
00000111 
00000011 
00000001 
10000000 
11000000 
11100000 
11110000 
11110000 
11110000 
11100000 
11000000 
00000000 
00000000 
00000111 
00011000 
00100000 
01000000 
01000000 
10000000 
00000000 
00000000 
00011111 
10100000 
11000000 


9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 
9183 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9200 
9201 
9202 
9203 
9204 
9205 
9206 
9207 
9208 
9209 
9210 
9211 
9212 
9213 
9214 
9215 
9216 
9217 
9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9238 
9239 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA, 
DATA 
DATA 
DATA 
DATA 


00000000 
00000000 
00000000 
00000000 
00000000 
10000000 
01000000 
01011100 
00100010 
00000010 
00000010 
10000000 
01000000 
01111100 
00000010 
00000010 
00000001 
00000000 
00000000 
00000000 
00000000 
00000000 
00000100 
00001010 
00010001 
11100000 
00000000 
00000010 
00000100 
00001000 
00000100 
00000100 
00000100 
11111000 
00000000 
00000000 
00000000 
01111000 
10000110 
00000001 
00000001 
00000000 
00000000 
00000000 
00000000 
00011110 
01100001 
10000000 
10000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
10000111 
01111001 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
11100001 
10011110 
00000000 
00000000 
00100010 
00010100 
00001000 
00001000 
00001000 
00001000 


9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
9256 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
9272 
9273 
9274 
9275 
9276 
9277 
9278 
9279 
9280 
9281 
9282 
9283 
9284 
9285 
9286 
9287 
9288 
9289 
9290 
9291 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9311 
9312 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001000 
00001000 
00011000 
00111100 
00110110 
01111110 
01111110 
00111100 
00011000 
00011000 
00011000 
00011000 
00001100 
00001100 
00000110 
00000110 
00000011 
00000011 
00000110 
00000110 
00001100 
00001100 
00011000 
00011000 
00110000 
00110000 
01100000 
01100000 
11000110 
11000011 
01100110 
01101100 
00111000 
00111000 
10000100 
11010110 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
00000000 
00000001 
00000011 
00000111 
00011111 
00111111 
01111111 
11111111 
00000000 
00000000 
11111111 
11111111 
00111100 
00111100 
11111111 
11111111 
00000110 
00001000 
01110110 
11111111 
11111111 
11111111 
01111110 
00111100 
00010000 
00010000 
00010000 
00111000 
00111000 
00111000 
00111000 


9313 DATA 00111000 
9314 DATA 00010000 
9315 DATA 00111000 
9316 DATA 01111100 
9317 DATA 00111000 
9318 DATA 00111000 
9319 DATA 00111000 
9320 DATA 00010000 
9321 DATA 00010000 
9322 DATA 00000000 
9323 DATA 00000000 
9324 DATA 00000000 
9325 DATA 00100000 
9326 DATA 01010001 
9327 DATA 10001010 
9328 DATA 00000100 
9329 DATA 00000000 
9330 DATA 00000000 
9331 DATA 00000000 
9332 DATA 00000000 
9333 DATA 10000010 
9334 DATA 01000101 
9335 DATA 00101000 
9336 DATA 00010000 
9337 DATA 00000000 


Execute o programa e grave a tabela 
resultante com o comando: 
SAVE 'AVAL4' CODE 57000,327 


INTE OS PEDACOS 


Longos programas em código geral- 
mente tém de ser montados por partes. 
Isso é bom para testar as rotinas indivi- 
dualmente, mas tem a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

A maior dificuldade surge quando 
uma das partes apaga outra durante a 
montagem. Se você gravou mais bytes 
do que devia junto com um dos segmen- 
tos do programa, pode acontecer que 
eles apaguem parte do outro segmento 
adjacente na memória. Quando gravar- 
mos os códigos de uma porção do jo- 
go, usando o monitor de INPUT, deve- 
mos informar o endereço inicial e o nú- 
mero exato de bytes a transferir para a 
fita. Se utilizarmos o comando SAVE 
do Spectrum devemos recorrer à sintaxe: 
SAVE 'nome' CODE 
seguida do endereco inicial, uma vírgu- 
la e o nümero de bytes a gravar. 

Quando usamos o Assembler para 
montar os programas listados nos arti- 
gos, o endereço inicial é sempre igual à 
origem: o número que vem após o falso 
mnemônico org. O próprio Assembler 
cuida de começar a rotina nesse endere- 
ço. Nos programas BASIC que criam ta- 
belas de dados na memória a partir de 
linhas DATA e usando POKE, o ende- 
reço inicial da tabela pode ser encontra- 


do na própria listagem: valor inicial da 
variável de controle do laço FOR... 
NEXT responsável pela leitura e trans- 
ferência dos dados para a memória. 

Calcular o número exato de bytes a 
serem gravados já é mais difícil. O en- 
dereço final informado pelo Assembler 
nem sempre é o do final da rotina. Mui- 
tas vezes aquele endereço é apenas o da 
última instrução montada, que, em vá- 
rias listagens, é um rótulo seguido por 
um asterisco, usado para cálculo de sal- 
tos e desvios, e não correspondendo ao 
final do programa. 

Certos programadores gostam, por 
segurança, de gravar alguns bytes a 
mais; eles correm o risco, porém, de 
apagar pedaços de outras rotinas no 
processo de montagem do jogo 
completo. 

A maneira mais segura de juntar as 
partes do programa é ler as rotinas no 
gravador, preenchendo a memória em 
ordem crescente. Porções com endere- 
ços iniciais menores devem ser recupe- 
radas primeiro, sendo seguidas sempre 
das rotinas que ocupam as posições su- 
cessivas. Isso fará os eventuais bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). 
Além disso, qualquer instrução ret, co- 
locada no final de uma rotina apenas pa- 
ra permitir o seu funcionamento isola- 
do, também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, o 
programa resultante deve ser gravado 
inteiro, com um outro nome. Seu ende- 
reco inicial será o da primeira rotina li- 
da na fita e o endereço final será o en- 
dereço final da última rotina colocada 
na memória. Qualquer problema pode 
exigir que as rotinas sejam reunidas no- 
vamente. Não se esqueça de gravar as 
listagens Assembly — os programas- 
fonte —, bem como os programas BA- 
SIC que criam as tabelas na memória, 
pois você pode precisar repetir o proces- 
so de montagem. 

Se houver qualquer problema com as 
tabelas de dados, podemos montar as 
rotinas em código na ordem citada, e 
executar cada um dos programas BA- 
SIC. Eles devem ser lidos, um a um, no 
gravador, executados, e, em seguida, 
apagados com NEW. Depois disso, o 
próximo programa criador de tabelas se- 
rá lido na fita e o processo se repetirá. 


¡AR 


De início, é preciso definir o forma- 
to dos blocos gráficos utilizados no jo- 
go — nuvens, gaivotas, pedras que ro- 
lam, buracos, cobras venenosas, gulo- 








seimas para um piquenique, e o próprio 
Willie, No MSX é mais fácil movimen- 
tar figuras usando sprites para imprimir 
suavidade à animação. 

As figuras definidas pelo programa 
a seguir têm a estrutura de sprites. Nem 
todas, porém, serão usadas como tal. O 
MSX só permite a exibição simultânea 
de 32 sprites; destes, apenas quatro, no 
máximo, podem ocupar a mesma linha 
horizontal. Mas isso poderia fazer o po- 
bre Willie desaparecer da tela. (Imagi- 
ne se houvesse quatro serpentes na mes- 
ma linha horizontal!) 


10 CLEAR 200,-15200 
20 FOR I=0 TO 639 
30 READ AS:POKE -15200+1,VAL ("a 
B"*A$) 

40 NEXT 

9000 DATA 00011000 

9010 DATA 00111100 

9020 DATA 00111100 

9030 DATA 00011000 

9040 DATA 00111100 

9050 DATA 00111100 

9060 DATA 00111100 

9070 DATA 00111100 

9080 DATA 00111100 

9090 DATA 00111100 

9100 DATA 00011000 

9110 DATA 00011000 

9120 DATA 00011000 

9130 DATA 00011000 

9140 DATA 00011000 

9150 DATA 00011110 

9160 DATA 0,0,0,0,0,0,0,0 
9170 DATA 0,0,0,0,0,0,0,0 
9180 DATA 00000001 
9190 DATA 00000011 
9200 DATA 00000011 
9210 DATA 00000001 
9220 DATA 00000000 
9230 DATA 00000001 
9240 DATA 00000001 
9250 DATA 00000001 
9260 DATA 00001110 
9270 DATA 00000000 
9280 DATA 00000001 
9290 DATA 00000010 
9300 DATA 00000100 
9310 DATA 00001000 
9320 DATA 00000100 
9330 DATA 00000000 
9340 DATA 10000000 
9350 DATA 11000000 
9360 DATA 11000000 
9370 DATA 10000000 
9380 DATA 00000000 
9390 DATA 00000000 
9400 DATA 00000000 
9410 DATA 11100000 
9420 DATA 00000000 
9430 DATA 00000000 
9440 DATA 10000000 
9450 DATA 01000000 
9460 DATA 0010000 
9470 DATA 00100000 
9480 DATA 00110000 
9490 DATA 00000000 
9500 DATA 0,0,0,0,0, 


‚0, 
9510 DATA 0,0,0,0,0,0,0,0 


9520 DATA 00011000 
9530 DATA 00111100 
9540 DATA 00111100 
9550 DATA 00011000 
9560 DATA 00000000 
9570 DATA 00010000 
9580 DATA 00010000 
9590 DATA 00011110 
9600 DATA 11100000 
9610 DATA 00000000 
9620 DATA 00001100 
9630 DATA 00100100 
9640 DATA 01000010 
9650 DATA 10000010 
9660 DATA 01000011 
9670 DATA 00000000 


9680 DATA 0,0,0,0,0,0,0,0 


9690 DATA 00011100 
9700 DATA 00111110 
9710 DATA 01111111 
9720 DATA 11111111 
9730 DATA 11111111 
9740 DATA 11111110 
9750 DATA 11111100 
9760 DATA 00111000 
9770 DATA 0,0,0,0, 


0,0,0, 
9780 DATA 0,0,0,0,0,0,0, 
0,0,0, 


9790 DATA 0,0,0,0, 
9800 DATA 00000011 
9810 DATA 00000111 
9820 DATA 00001111 
9830 DATA 00001111 
9840 DATA 00001111 
9850 DATA 00000111 
9860 DATA 00000011 
9870 DATA 00000001 


ооо 


9880 DATA 0,0,0,0,0,0,0,0 


9890 DATA 10000000 
9900 DATA 11000000 
9910 DATA 11100000 
9920 DATA 11110000 
9930 DATA 11110000 
9940 DATA 11110000 
9950 DATA 11100000 
9960 DATA 11000000 
9970 DATA 00000000 
9980 DATA 00000000 
9990 DATA 00000111 
10000 DATA 00011000 
10010 DATA 00100000 
10020 DATA 01000000 
10030 DATA 01000000 
10040 DATA 10000000 
10050 DATA 10000000 
10060 DATA 01000000 
10070 DATA 01111100 
10080 DATA 00000010 
10090 DATA 00000010 
10100 DATA 00000001 
10110 DATA 00000000 
10120 DATA 00000000 
10130 DATA 00000000 
10140 DATA 00000000 
10150 DATA 00011111 
10160 DATA 10100000 
10170 DATA 11000000 
10180 DATA 00000000 
10190 DATA 00000000 
10200 DATA 00000000 
10210 DATA 00000000 
10220 DATA 00000000 
10230 DATA 00000000 
10240 DATA 00000100 


10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001010 
00010001 
11100000 
00000000 
00000000 
00000000 
10000000 
01000000 
01011100 
00100010 
00000010 
00000010 
00000010 
00000100 
00001000 
00000100 
00000100 
00000100 
11111000 
00000000 
0,0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
00000000 
00000000 
01111000 
10000110 
00000001 
00000001 
00000000 
00000000 
0,0,0,0,0,0,0,0 
00000000 
00000000 
00011110 
01100001 
10000000 
10000000 
00000000 
00000000 
0,0,0,0,0,0,0,0 
00000000 
00000000 
00000000 
00000000 
10000111 
01111001 
00000000 
00000000 
0,0,0,0,0,0,0,0 
00000000 
00000000 
00000000 
00000000 
11100001 
10011110 
00000000 
00000000 
0,0,0,0,0,0,0,0 
00100010 
00010100 
00001000 
00001000 
00001000 
00001000 
00001000 
00001000 
00011000 
00111100 
00110110 
01111110 
01111110 
00111100 
00011000 


11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00001100 
00011000 
00011000 
00110000 
00110000 





01100000 
01100000 
11000110 
11000011 
01100110 
01101100 
00111000 
000230095 
0,0,0,0,0,0 
0,0,0,0,0,0 
0,0,0,0, 
10000100 
11010110 
11111111 
11111111 
11111111 
11111111 
11111111 
11111111 
0,0,0,0, 





00000000 
00000001 
00000011 
00000111 
00011111 
00111111 
01111111 
11111111 





00000000 
00000000 
11111111 
11111111 
00111100 
00111100 
11111111 
11111111 
0,0,0,0, 
0,0,0,0, 
с,0,0, 
00000110 
00001000 
01110110 
11111111 
11111111 
11111111 
01111110 
00111100 
00011000 
0,0,0,0,0,0,0,0 
0,0,0,0, ‚0,0 
00011000 
00011000 
00001100 
00001100 
00000110 
00000110 
00000011 
00000011 
00000110 
00000110 
00001100 


0,0,0, 
0,0,0, 
,0,0,0, 


voo 








11710 DATA 0,0,0, 
11720 DATA 0,0,0, 
11730 DATA 0,0,0, 
11740 DATA 000100! 
11750 DATA 00010000 

11760 DATA 00010000 

11770 DATA 00111000 

11780 DATA 00111000 

11790 DATA 00111000 

11800 DATA 00111000 

11810 DATA 00111000 

11820 DATA 0,0,0,0,0,0,0,0 
11830 DATA 0,0,0,0,0,0,0,0 
11840 DATA 0,0,0,0,0,0,0,0 
11850 DATA 00010000 

11860 DATA 00111000 

11870 DATA 01111100 

11880 DATA 00111000 

11890 DATA 00111000 

11900 DATA 00111000 

11910 DATA 00010000 

11920 DATA 00010000 

11930 DATA 0,0,0,0,0,0,0,0 
11940 DATA 0,0,0,0,0,0,0,0 
11950 DATA 0,0,0,0,0,0,0,0 
11960 DATA 00000000 

11970 DATA 00000000 

11980 DATA 00000000 

11990 DATA 00100000 

12000 DATA 01010001 

12010 DATA 10001010 

12020 DATA 00000100 

12030 DATA 00000000 

12040 DATA 0,0,0,0,0,0,0, 
12050 DATA 0,0,0,0,0,0,0, 
12060 DATA 0,0,0,0,0,0,0, 
12070 DATA 00000000 

12080 DATA 00000000 

12090 DATA 00000000 

12100 DATA 10000010 

12110 DATA 01000101 

12120 DATA 00101000 

12130 DATA 00010000 

12140 DATA 00000000 

12150 DATA 0,0,0,0,0,0,0,0 
12160 DATA 0,0,0,0,0,0,0,0 
12170 DATA 0,0,0,0,0,0,0,0 


Execute o programa e grave a tabela 
resultante com o comando: 


BSAVE 'CAS:AVAL' -15100,-14501 


AS PARTES E O TODO 


Longos programas em código devem 
ser montados por partes. Bom para tes- 
tar as rotinas individualmente, esse mé- 
todo tem, contudo, a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedaços do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso não garante o funcionamento do 
programa completo. 

Como no exemplo anterior, a maior 
dificuldade consiste em uma das partes 
ser apagada por outra durante o proces- 
so de montagem. Se você gravou mais 
bytes do que devia junto com um dos 
segmentos do programa, corre o risco 
de ver alguns desses bytes apagarem par- 


ооо 


te de outro pedaco, adjacente na memó- 
ria. Assim, quando gravarmos os códi- 
gos de uma porcáo do jogo usando o 
monitor de INPUT, devemos informar 
o endereço inicial e o endereço final pa- 
ra determinar o número exato de bytes 
a serem transferidos para a fita. Se re- 
corrermos ao comando BSAVE do 
MSX, devemos usar a sintaxe: 

BSAVE 'CAS:NOME" 

seguida do endereço inicial, uma virgu- 
la e o endereço final da porção a ser 
gravada. 

Quando usamos o Assembler para 
montar os programas dos artigos, O en- 
dereço inicial é sempre igual à origem 
(ou seja, o nümero que vem após o fal- 
so mnemónico org). O próprio Assem- 
bler cuida de comegar a rotina nesse en- 
dereço. Nos programas BASIC que 
criam tabelas de dados na memória a 
partir de linhas DATA e usando POKE, 
o endereço inicial da tabela pode ser en- 
contrado na própria listagem — valor 
inicial da variável de controle do laço 
FOR...NEXT responsável pela leitura e 
transferência dos dados para a memó- 
па. 

Já o cálculo do número de bytes a 
gravar é mais difícil, pois o enderego fi- 
nal informado pelo Assembler nem sem- 
pre é o do final da rotina. 

Há quem prefira gravar alguns bytes 
a mais, por seguranca; nesse caso, po- 
rém, corre-se o risco de apagar pedaços 
de outras rotinas no processo de mon- 
tagem do jogo completo. 

O modo mais seguro de juntar as par- 
tes do programa consiste em ler as roti- 
nas no gravador, preenchendo a memó- 
ria em ordem crescente. Porções com 
endereços iniciais menores devem ser re- 
cuperadas da fita primeiro, sendo segui- 
das sempre das rotinas que ocupam po- 
sições sucessivas. Isso fará os bytes gra- 
vados em excesso serem apagados pela 
próxima rotina (e não o contrário). As- 
sim, qualquer instrução ret, colocada no 
final de uma rotina apenas para permi- 
tir o seu funcionamento isolado, tam- 
bém será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando, o programa resul- 
tante deve ser gravado inteiro, com ou- 
tro nome. Seu endereço inicial será o da 
primeira rotina lida na fita e o final se- 
rá o endereço final da última rotina co- 
locada na memória. Qualquer problema 
pode exigir que as rotinas sejam reuni- 
das novamente. Não se esqueça de gra- 
var as listagens Assembly — os progra- 
mas-fonte — bem como os programas 
BASIC que criam as tabelas na memó- 
ria, pois você pode precisar repetir o 
processo de montagem. 





Se houver qualquer tipo de problema 
com as tabelas de dados, podemos mon- 
tar as rotinas em código, na ordem ci- 
tada, e executar cada um dos programas 
em BASIC. Eles devem ser lidos no gra- 
vador, um a um, postos em execução e, 
em seguida, apagados pelo comando 
NEW. Depois disso, o próximo progra- 
ma criador de tabelas será lido na fita 
e o processo se repetirá. 


Adicione as próximas linhas ao pro- 
grama criador de tabelas que vem sen- 
do montado ao longo destes artigos: 


110 READ AS 

120 FOR A=1 TO LEN (AS) 

130 POKE AD,ASC(MIDS(AS,A,1)) 
140 AD=AD+1 
150 NEXT A 
160 DATA 44 
"ninm 
170 FOR A=1 TO 702 

180 READ AS:POKE AD, VAL ("AH”+AS 
) 

190 AD=AD+1:NEXT A 

200 IF AD<>18238 THEN PRINT 
ROR” 

210 DATA 55,54,50,50,40,40,0,0, 
7F,5F,57,D7,F5,FF,D5,75,DD,77,5 
D,D5,7D,75,5D,77,F5,FD,57,75,DD 
+177,5D,D5,FD,5F,57,D7,5D,FF,D5, 
7F,75,77,FD,F7,D5,5D,75,77,55,D 
5,D5,5D,5D,D7,F5,7D,D5,5D,5D,D7 
155,57,FF,7F,57,57,FD,FD 

220 REM sol 

230 DATA 55,75,D5,55,55,75,D5,5 
5,75,75,D5,D5,5D,5D,D5,D5,5D,5D 
,D7,55,57,5D,D7,5D,D5,D5,5D, 5D, 
75,D7,DD,75,7D,5D,75,D5,5D,75,5 
D,D7,57,75,5D,5D,F5,D5,57,75,5D 
,D5,57,75,57,55,55,D7,F7,55,55, 
DD 

240 DATA 57,55,55,D5,77,55,55,D 
F,D5,D5,57,55,5D,D5,57,7F,F5,75 
+5D,55,57,75,5D,F5,57,5D,75,5F, 
5р,57,07,55,75,75,57,55,55,77,7 
5,D5,55,D7,75,D5,55,D7,75,75,57 
157,5D,75,57,57,5D,55,55,57,5D, 
55 

250 REM numeros 

260 DATA 7D,D7,D7,D7,7D,5D,7D,5 
D,5D,FF,7D,D7,5D,75,FF,FD,57,FD 
+57,FD,5D,7D,DD,FF,5D,FF,DS,7D, 
57,FD,7F,D5,FD,D7,7D,FF,57,5D,7 
5,75,7D,D7,7D,D7,7D,7F,D7,7F,57 
157 

270 REM graficos 

280 DATA 57,5F,5F,57,5F,5F,5F,5 
F,D5,F5,F5,D5,F5,F5,F5,F5,5F,5F 
157,57,57,57,57,57,F5,F5,D5,D5, 
D5,D5,D5,FD,55,55,55,55,55,55,5 
5,55,57,5F,5F,57,55,57,57,57,D5 
,F5,F5,D5,55,55,55,FD,55,55,55, 
55,55,55,55,55,55,55,55,55,55,5 
5,55,55,FD,55,57,5D,75,D5,75,55 
290 DATA 55,55,D5,75,5D,5D,5F,5 
5,55,55,55,55,55,55,55,55,55,55 
155,55,57,5F,5F,57,55,55,55,55, 
D5,F5,F5,D5,55,57,57,57,FD,55,5 











"ER 





7,5D,55,55,55,FD,55,55,D5,75,75 
4,D5,75,55,55,55,55,55,5D, 5D, 5F, 
55,55,55,55,55,55,55,55,55,55,5 
5,55,55,55,55,55,55,57,5F,5F,57 
300 DATA 55,55,55,55,D5,F5,F5,D 
5,55,55,55,55,55,55,55,55,55,55 
155,55,55,55,55,55,55,57,57,57, 
FD,55,57,5D,55,55,55,FD,55,55,D 
5,75,55,55,55,55,55,55,55,55,55 
.55,55,55,55,55,55,55,75,05,75, 
55,55,55,55,55,5D, 5D, 5F,55,55,5 
5,55,55,55,55 

310 DATA 55,55,55,55,55,55,57,5 
F,7F,FF,FF,FF,7F,5F,F5,FD,FF,FF 
,FF,FD,F5,D5,55,55,55,55,55,55, 
55,55,5F,7F,FF,FF,FF,7F,5F,57,D 
S,FS,FD,FF,FF,FF,FD,FS,55,55,55 
455,55,55,55,55,5D,57,55,55,55, 
55,55,55,5D,75,D5,D5,D5,D5,D5,D 
5,57,5F,7D,7F,7F,5F,57,57,D5,F5 
320 DATA FD,FD,FD,F5,D5,D5,57,5 
7,55,55,55,55,55,55,D5,D5,F5,F5 
17D, 7D, 5F,5F,55,55,55,55,57,57, 
5F,5F,7D,7D,F5,F5,D5,D5,55,55,7 
D,7D,F5,F5,7D,7D,5F,5F,55,55,7D 
+5F,7D,F5,D5,D5,55,55,AA,AA,56, 
56,АА,АА,55,55,АА,АА,95,95,АА,А 
A,55,55,7F,FF,FF,FF,7F,5F,81 
330 DATA 15,7D,FF,FF,FF,FD,F5,5 
7,57,57,5F,5F,5F,5F,5F,55,55,55 
+D5,D5,D5,D5,57,5F,7F,5F,5F,5F, 
57,57,55,D5,F5,D5,D5,D5,55,55,A 
А,АА,АА,А6,99,6А,АА,АА,АА,АА,АА 
.АА,А9,66,9А,АА,АА,АА,АА,бА,9А, 
А6,А9,АА,АА,АА,АА,А6,99,6А,АА,А 
A, 


Os sustenidos e pontos de exclama- 
ção na linha 160 definem a silhueta da 
montanha. Cada sustenido corresponde 
a um caractere representativo de uma 
parte plana e cada ponto de exclamação, 
a um caractere de declive. 

As linhas 210 a 330 contêm os bytes 
correspondentes aos padrões dos blocos 
gráficos utilizados — o sol, as pedras 
que rolam, as cobras venenosas e o pró- 
prio Willie. Pode parecer que há um ex- 
cesso de dados na listagem, mas, para 
dar suavidade ao processo de animação, 
as figuras móveis serão desenhadas em 
posições diferentes. 

Longos programas em código devem 
ser montados por partes. Isso é bom pa- 
ra testar as rotinas individualmente. Mas 
o sucesso na execução de rotinas isola- 
das não garante o funcionamento do 
programa completo. O principal perigo, 
neste como em outros casos, consiste em 
uma das partes apagar outra durante o 
processo de montagem. Assim, se você 
gravou mais bytes do que devia junto 
com um dos segmentos do programa, 
eles podem suprimir parte do outro pe- 
daço adjacente na memória. 

Quando gravarmos os códigos de 
uma porção do jogo usando o monitor 
de INPUT, devemos informar os ende- 
reços inicial e final, de modo a transfe- 


rir para a fita o número exato de bytes. 
Se usarmos o comando CSAVEM do 
TRS-Color, devemos recorrer à sintaxe: 


CSAVEM 'NOME', 


seguida do endereço inicial, uma vírgu- 
la e o endereço final da porção a gra- 
var. Quando usarmos o Assembler pa- 
ra montar os programas listados nos ar- 
tigos, o endereço inicial será igual à ori- 
gem (ou seja, O número que vem após 
o falso mnemônico ORG). O próprio 
Assembler cuidará de começar a rotina 
nesse endereço. Nos programas BASIC 
que criam tabelas de dados na memória 
a partir de linhas DATA e usando PO- 
KE, o endereço inicial da tabela pode ser 
encontrado na própria listagem — va- 
lor inicial da variável de controle do la- 
ço FOR...NEXT responsável pela leitu- 
ra e transferência dos dados para a 
memória. 

Mais difícil é a tarefa de calcular o 
número de bytes a serem gravados. E 
que o endereço final informado pelo As- 
sembler nem sempre é o do final da ro- 
tina. Muitas vezes, aquele endereço é 
apenas o da última instrução montana, 
o que em muitas das nossas listagens sig- 
nifica um rótulo seguido por um aste- 
risco, usado para cálculo de sé tos e des- 
vios, nào correspondendo a» final do 
programa. 

Procure não gravar bytes a mais pa- 
ra não apagar pedaços de outras rotinas 
no processo de montagem do jogo. A 
maneira mais segura de juntar as partes 
do programa consiste em ler as rotinas 
no gravador, preenchendo a memória 
em ordem crescente. Porções com ende- 
reços iniciais menores devem ser recu- 
peradas da fita em primeiro lugar, sen- 
do seguidas sempre das rotinas que ocu- 
pam posições sucessivas. Isso fará os 
bytes gravados em excesso serem apa- 
gados pela próxima rotina (e não o con- 
trário). Assim, qualquer instrução RTS, 
colocada no final de uma rotina para 
permitir o seu funcionamento isolado, 
também será apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memória e es- 
tiverem funcionando adequadamente, 
chegou o momento de gravar, inteiro, 
o programa resultante, com um outro 
nome. Seu endereço inicial será o da pri- 
meira rotina lida na fita e o endereço fi- 
nal será o endereço final da última roti- 
na colocada na memória. Qualquer pro- 
blema pode exigir que as rotinas sejam 
agrupadas novamente. Não se esqueça 
de gravas as listagens Assembly — os 
programas-fonte —, assim como os pro- 
gramas BASIC que criam as tabelas na 
memória, pois vocé pode precisar repe- 
tir o processo de montagem. 


T T so Peocramacionesocos sol T | | | 111111 


MÓDULO LUNAR: 
COMANDE O POUSO 








Vocé vai precisar de muita habilidade 
е sangue-frio para fazer uma nave 


pousar na superfície lunar em 
seguranca. O jogo é envolvente 
e facilimo de programar. Confira! 


Programação de jogos nem sempre é 
sinônimo de longas e complicadas lista- 
gens. Como vocé verá neste artigo, po- 
demos criar jogos muito interessantes 
com programas relativamente simples e 
сипов. 

Nosso jogo, Módulo Lunar, está 
completo. Ele oferece ao jogador gráfi- 
cos de alta resolução e controle total so- 
bre o módulo. Se vocé quiser, 
E RUE m 
como *'Quer j іораг поуатете?” -- ой 
modifique a paisagem lunar. Tudo de- 
pende de sua preferência. 


Você pode controlar a nave alternan- 
do o sentido (esquerda/direita) de seu 
movimento e usando os foguetes para 
diminuir a velocidade de impacto com 
a plataforma lunar. 

Os controles sáo, respectivamente: A, 
ScF para o Apple, o TK-2000 e o MSX; 
5, 7e 8 para o Spectrum e as setas para 
o TRS-Color. 








10 COLOR 15,1,1:8CREEN2 

20 FORN=1 TO 50:PSET(RND(1)*255 
,RND(1)*140),15:NEXTN 

30 DRAW"CÓBMO,188M*18,-30M*18,* 
15M*18,*8M*18,-8M*16,-20M*16,-5 
М%13,%20М%14,%8М%18,%4М%10,0М%1 
0.-10М%20,-25М%10,%20М%10,%10М% 
20,+5M+18,-20M255,191” 

40 PAINT(10,191),6 

50 ОВАМ"С1ВМ145,188М%2,-4М%14,0 
M+2,+4" 

80 DRAW"BM93,157C1D31R1U31” 

90 S--TIME:LX*INT (RND(S) *240) *1 
0:LY*INT(RND(S) *10) 315: XV7 INT (R 
ND(S)*10) :YV=0:F=256 

100 AX=LX:AY=LY 

110 GOSUB 4000 

VE eris 1000:GOSUB 2000:GOSUB 
3060 

130 IF LY<173 THEN 120 





















N 
2010 


. PAISAGEM LUNAR 
L] MARCADOR 
DE COMBUSTÍVEL 

VELOCÍMETRO 

CONTROLES DE POUSO 


140 
150 
160 
0 
170 IF ABS(YV)>4 THEN 200 

180 LOCATE5,10:PRINT"parabéns, 
pouso bem sucedido”:GOTO 210 
190 LOCATE?,] RINT^!! fora da 
plataforma GOTO 210 

200 LOCATEO, RINT"nave danif 
icada, velocidade inadequada” 
210 END 

1000 IF LY>1 THEN GOSUB 4000 
1010 LX=LX+KV:LY=LY+YV 

1020 IF LX<S THEN LX=LX+245 
1030 IF LX>250 THEN LX=LX-242 
1040 IF LY<1 THEN RETURN 

1050 IF LY>150 THEN RETURN 

1060 СоЗОВ 4000 

1070 ВЕТУАМ 

2000 YV=YV+.5:IF F<1 THEN RETUR 


FOR TT=0 TO 200:NEXT 
CLS:SCREENO:COLOR 1,15,15 
IF LX<147 OR LX>161 THEN 19 






1I$=INKEYS:1FIS=""THEN2010 


MT TT Too Procaanaçiovesocos ao | T T T TT TIT] 





2020 IFI$-"F*" AND F23 THEN YU-Y 
LEE d 

2030 IFI$-*A* THEN XVeXU-.S:F-F 
EL d 

2040 ІҒІЗе"8" ТНЕМ ХУ-ХУ% 5:ғ-Р 
343412. 


2050 RETURN 

3000 GS-3TR3(INT((256-F)/8)) 
3010 DRAM"CÓBM93,157D* *G$**R1U* 
+03 

3020 ОЮАЫ"С6ВМ105,155035” 
IE ШТ 
S (INT(Y9)) 

3040 RETURN 

E A IÓ 

A E A T n 
10º 

4010 DRAW*CISEM* «BTRS (INT (LX) ) * 
ML ОТТЫ 
245 ,+2M-4,-10* 


4020 MX*INT(LX) AY" INT(LY) : RETU 


EN 
10 НОМЕ ea HCOLOR= 3 
20 FOR N = 1 TO 50: HPLOT RNO 
(1) * 280, RND (1) * 120: NEXT 


N 

70 HPLOT 0,160 
7: READ GX,GY 
NEXT N 

75 HPLOT 152,160 TO 152,155: H 
PLOT TO 166,155: HPLOT TO 166 
‚160 

80 DATA 18,130,36,145,54,15 
3,72,145,88,125,104,120,117,140 
.133,148,151,152,166,152,176,14 
2,196,117,206,137,216,147,236,1 
52.254,132,279,159 


FOR N = 1 TO 1 
HPLOT TO CX,GY: 


90 LX = INT ( RND (1) * 240) * 
0:LY * INT ( RND (1) * 10) * 
15:XV © INT ( BND (1) ^ 15):Y 


V = 0:F = 246 


A SA 

115 GOSUR 4000 

120 GOSUB 1000: GOSUB 2000: GC 
SUB 3000 

130 1F LY « 140 THEN GOTO 420 
135 FOR TT * 0 TO 100: NEXT 
140 HOME : IF LX < 152 OR LX > 


166 OR ABS (YV) > 4 THEN GOT 
o 160 


150 WUTAR (24): PRINT “PARABENS 
. POUSO BEM SUCEDIDO”: GOTO 170 
160 9ТАВ (24): РВІМТ ТАВ! 10) 


ҒЫЛ, COLIDIU !!!* 
170 FOR TT = 0 ТО 2500: NEXT 
180 STOP 


1000 IF LY » 1 THEN GOSUB 400 
0 

1010 LX = LX + XV:LY = LY + YV 
1030 JF LX < 5 TMEN LX * LX * 
245 

1035 1F LX » 250 THEM LX * LX 
- 242 

1036 IF LY < 1 THEN RETURN 
1037 1F LY » 150 THEN RETURN 
1040 GOSUB 4000 

1050 RETURN 

2000 YV = YV + .5: IF F < 1 TBE 
н RETURN 

2010 0ЕТ 15: 1F 19 - A 





> 3 TEEM YU = YU - 1:F @ F - 3 
: RETURN 

2020 IF I$ * "A" THEN XV = xv 
= .5:F = F - 1: RETURN 

IF 19 = *S* THEN XV - XV 
+ .5:F = F - 1: RETURN 

2040 RETURN 
3000 HOME : UTAB (23): 
COMBUSTIVEL: *;F 

3010 PRINT 224224 

7 7 INT (YV) 

3020 УТАВ (1): 
4000 HCOLOR= O 
4010 HPLOT AX,AY: HPLOT TO AX 
7 $,ÀY * 10: HPLOT TO AX,AY * 
B: HPLOT TO AX * 5,AY + 10: H 





PRINT * 
"VELOCIDADE 
LLL 





PLOT TO AX * l,AY 

4015 HCOLOR= 3 

4020 HPLOT LX,LY: HPLOT TO LX 
- S.LY + 10: HPLOT TO LX.LY + 
8: HPLOT TO LX + S,LY + 10: H 
PLOT TO LX + 1,LY 

4025 AX = LX:AY = LY: RETURN 


10 PMODE 4,1 
20 SS-PEEK(186) *256:DIML(1) ,B(1 


Д 

30 FOR KQ TO 7:RBEAD A:POKE K”) 
DLE a 

40 GET(0,0)- (2,7) ,L,G 

50 ПАТА 24,60,90,126,126,90,129 
ЖЕЛ 

60 PCLS: SCREEN 1,1 

70 DRAW"BMO,191*:FOR X-0 TO 256 
STEP 16:READ INE-(X,A), PSET 
¿NEXT :PAINT(127,191) 

80 DATA 151,173,177,165,146,120 
4167,174,177,181,181.170,140,12 
2,158,170,161 

590 DRAW"BMI,1SSBNRDNRDBDNRDRDL* 
100 LINE(8,1)-(254,5) , PSET, BF:L 
1NE(132,7)- (132,12) ,PSET 

110 LZX-RND(248)-1:LY=#15+BND(10) 
:ХУеЙНр(15)-8:ҮУ-0:Ғ-246 

120 GOSUB 1000:GOSUB Тг 
3000 

130 IF LY€174 THEN 120 

140 CLS:1F 1X<144 OR LX>153 OR 
YV24 THEN 160 

150 PLAY*TIOO4AGFEGFE" PRINT 82 
25,"PARABENS, POUSO BEM SUCEDID 

0!”:GOTO 170 

160 PLAYºTIOGOZADEFGBCDEFA” : PUT 
(LX,LY) - (LX*6,LY*7) ,L,PSET. 

170 FOR G#1 TO 4000:NEXT 

| END 

1000 IF LY212 THEN PUT(LX,LY)-( 
LX*7,LY*7) . B,PSET 

"nO Lini :1Ү-1/%ҮУ:5-255-12 
55 AND LY):SO0UNDS- (8-0) ,1 

1020 IF LY<13 THEN RETURN 

1030 IF LX«0 OR LX2247 THEN LX« 














-247* (LX>0) 

1040 GET(LX,LY)-(LX+7,LY+7),B,G 
1050 PUT(LX,LY)-(LX+7,LY+7),L,P 
SET: RETURN 

2000 YV=YV+.5:1F F<1 THEN RETUR 
N 


2010 IF PEEK(341)=247 AND F>3 T 
HEN YV=YV-1:F=P- ETURN 

2020 IF PEEK(343)=247 THEN XV=X 
V-.S:F' 1:RETURN 

2030 IF PEEK(344)=247 THEN XV=X 
vV+.5:F=F-1 

2040 RETURN 

3000 LINE (9+F,1)-(12+F,5), PRES 
ET,BF 

3010 V=2*YV:IF ABS(V)>122 THEN 
V=122*8GN(V) 

3020 LINE(8,8)-(255,11),PRESET, 
BF:LINE(132,8)-(132+V,11),PSET, 


BF 
3030 RETURN 


10 BORDER 1: 


INK 7: 
CLS : BRIGHT 1 
20 FOR N=1 TO 50: PLOT RND* 
255, (RND*135)+40: NEXT N 
70 PLOT 0,0: FOR N=1 TO 16: 


PAPER 0: 


READ GX,GY: DRAW GX,GY: NEXT 
N 
80 DATA 18,30,18,-15,18 
,8,16,20,16,5,13,-20,16 
4,15,0,10,10,20,25,10 
10,-10,20,-5,18,20 
90 PRINT AT 0,4; INK 6; PAPER 
2:1"COMB:";AT 0,18;"VELOCID :" 
110 LET LX*RND*240*10: LET LY= 
160-(15*(RND*10)): LET XV*RND* 
15: LET YV=0: LET F=246 
115 GOSUB 4000 
120 GOSUB 1000: GOSUB 2000: 
GOSUB 3000 
130 IF LY>20 THEN GOTO 120 
135 PAUSE 50 
140 CL8 : IF LX<154 OR LX>164 
OR ABS YV>4 THEN GOTO 160 
150 PRINT " PARABENS , POUSO B 
EM SUCEDIDO!": RESTORE 5000: 
FOR N=1 TO 14: READ A,B: SOUND 
A,B: NEXT GOTO 170 
160 PRINT AT 10,7; FLASH 
INK 2; PAPER 7;"!!!! CRASH!!! 
1 FOR T=1 TO 50: BORDER RND* 
7: SOUND .01,RND*5: NEXT T 
170 PAUSE 400 
180 STOP 
1000 IF LY<160 THEN GOSUB 4000 
1010 LET LX=LX+XV: LET LY=LY+YV 


-8,18 
-8,18 
-20, 


: IF LY<300 THEN SOUND .02,LY/ 


5 
1030 IF LX<5 THEN LET LX=LX+24 
5 

1035 IF 
242 
1036 
1037 
1040 


LX>250 THEN LET LX=LX- 

IF LY>160 THEN RETURN 

IF LY<10 THEN RETURN 

GOSUB 4000 

1050 RETURN 

2000 LET YV-YV-.5 
RETURN 

2010 IF INKEYS="7" AND F>3 THEN 
LET YU=YV+1: LET F=F-3: RETUR 


1F F<1 THEN 


N 
2020 
-XV-. 
2030 
«Ху». 
2040 
3000 PRINT AT 0,10;" “+8TR8 Р+" 
";AT 0,28;" "*STR$ INT YV*" " 
3010 RETURN 
4000 OVER 1: PLOT LX,LY: 
: DRAW 5,2: DRAW 5,- 
W -4,10 
4010 OVER 0: RETURN 
5000 DATA .2,4,.2,7, 
2,4,.2,5 
2,2,.6,0 


THEN LET XV 
RETURN 
THEN LET XV 
RETURN 


DRAW - 
DRA 


2,5,.2,12, 
6,7,.2,12, 








ALELLA 
AVALANCHE: B 
п a hora de colocar em cena a encosta 


z que Willie irá escalar. Precisaremos 
MONTE O CENÁRIO maias е 
a tela com um belo céu azul. 


REM 1d h1,31 
230 REM 1d a,45 

























































O título e os créditos foram exibidos. 
O jogador já leu as instrucóes e ouviu 
a execucào do tema de abertura. Che- 2 эк an Я 
gou a hora de abrir as cortinas — ou, 260 REM 1d a. (57329) 
no caso de Avalanche, a hora de dese- 270 pgM cp 1. 
nhar o cenário. No Spectrum, este se 280 REM jr nz,mp 
movimenta da esquerda para a direita, 290 REM ìd bc,57272 
enquanto a tela de instruções é arrasta- 300 REM mp ld a,44 
da em sentido oposto — ou seja, realiza- 310 REM call print 
se um SCROLL horizontal. No MSXe 320 REM 1d a, (57328) 
no TRS-Color, a tela de instruções está 330 REM ld b,a 
no modo texto. Por isso, enquanto o ce- 340 REM 1d а,23 
nário é colocado na tela gráfica, a pági- 320 БЕН E 
na de instruções vai se apagando, 370 rem 1d a.32 
cedendo-lhe lugar. O deslocamento do зво вем 18 de, 32 
cenário para o vídeo se dá da mesma 390 REM add hl,de 
maneira. 400 REM call 19 

O processo de montagem do cenário 410 REM pop bc 
é bem simples. Um programa BASIC 420 REM djnz mpi 
cria uma tabela com o contorno da 430 REM 1d hl.49 
montanha (para o TRS-Color isso foi 440 REM ld b,12 
dado no artigo anterior). A partir do 450 REM 1d a,41 
conteúdo da tabela, a rotina em código 480 REM i 57973 
desenha o perfil da encosta. O céu e a 270 RM 15 Із 
terra podem ser coloridos.por meio de 490 REM 1d b 
blocos gráficos, colocados acima e abai- 500 REM call me 
xo do perfil da encosta, À medida que 510 REM call elb 
o cenário é transferido para a tela, va- 520 REM ret 
mos retirando a página de instruções. 530 REM scl 1d hl,16384 
540 REM 1d b,216 
550 REM lpi ld c,3l 
560 REM 1p3 inc hl 
570 REM 1d a, (hl) 


А А 4 , 580 REM dec hl 
A rotina Assembly listada abaixo é 590 REM 1d(h1),a 


responsável pela criação e pelo 600 REM inc hl 


SCROLL horizontal do cenário. 610 REM dec c 

10 REM org 58303 630 REM RO 
20 REM 18i 1d a,16 640 REM djnz lpi 
30 REM 1d (57328),a 650 REM ret 

40 REM Id 1x,58034 660 REM 19 push bc 
50 REM 1d b,32 ы 670 REM 1d bc,15616 
60 REM mpi push bc 680 REM call print 
70 REM call scl 690 REM 1d de,32 
B0 REM 1d a,0 700 REM add hl,de 
90 REM 1d (57329),a 710 REM pop bc 

100 REM 1d a, (ix*0) 720 REM djnz lg 
110 REM dec ix 730 REM ret 

120 REM cp 33 740 REM elb ret 
130 REM jr nz,lv 750 REM org 58146 
140 REM dec b 760 REM me * 

150 REM ld a,(57328) 770 REM org 58217 
160 REM dec a 780 REM print * 


170 REM 1d (57328), 
180 Es 1d 7 е Este programa BASIC coloca na me- 


190 REM 1d (57329),a mória do microcomputador a tabela cu- 
200 REM 1v ld a, (57328) jo conteúdo é responsável pela defini- 
210 REM 1d b,a ção do perfil da encosta. 








COMO USAR UMA TABELA 
PARA DEFINIR O 
CONTORNO DA MONTANHA 
DESLOCAMENTO 

DO CENARIO 


т — O USO DOS BLOCOS GRÁFICOS 
= COMO COLORIR 
OS ESPAÇOS 

E REDEFINIÇÃO 
DE CARACTERES 


5 CLEAR 57000 

10 FOR n=57973 TO 58034 

20 READ a: POKE n,a: PRINT n; 
* ";CHR$ a 

30 NEXT n 

40 DATA 83,67,79,82,69,45,48, 
48,48,48,48,76,73,86,69,83,45 
.53,71,65,77,69,32,79,86,69, 
82,32,33,33,33,35,35,33,35,35 
.35,33,35,35,33,35,33,35,35, 
35,35,33,35,33,35,35,35,35,33 
.35,35,33,35,35,35,54 


Como de costume, о programa usa 
um laco FOR...NEXT para colocar da- 
dos na memória. O endereco inicial da 
tabela criada está na linha 10. A linha 
5 protege o topo da memória para que 
os dados das outras tabelas náo sejam 
apagados. Na linha DATA os valores 
33 correspondem a porções inclinadas 
do perfil da encosta, e os números 35, 
a porções planas. Os demais valores são 
códigos das letras utilizadas para escre- 
ver o score e o número de vidas que res- 
tam a Willie. 


A MONTAGEM DO CENÁRIO 


Após a definição do endereço ini- 
cial, temos duas instruções cuja função 
é colocar no endereco 57328 o valor 16. 
Esse nümero corresponde à coordena- 
da Y do extremo superior direito do ho- 
rizonte. A posicào 57328 será usada pa- 
ra armazenar nümeros, como se fosse 
uma variável. 

Em seguida, a instrução ld ix,58034 
coloca no par IX o último byte da tabe- 
la que define o perfil da encosta. Esse 
byte define o declive do extremo supe- 
rior direito da montanha. 

O registro B será usado como conta- 
dor do número de colunas já desenha- 
das. Por isso, a instrução Id b,32 colo- 
ca nele o valor 32, correspondente ao 
número de colunas da tela. A próxima 
linha guarda esse valor na pilha. 

Em seguida, a sub-rotina sel é cha- 
mada. Ela se encarrega da translação do 
conteúdo da tela uma coluna para a es- 
querda — ou seja, realiza um SCROLL 
horizontal. 

Uma segunda posição da memória, 
com endereço 57329, será usada como 
indicador. Ela informará à rotina se o 














ИТТЕРДИ Di a Bi BB bi li: 


nível da encosta está diminuindo ou per- 
manece plano naquela coluna. Se o byte 
for 0, a encosta é plana; se for 1, o ní- 
vel está diminuindo. As instruções das 
linhas 80 e 90 colocam no endereço o va- 
lor inicial O. f 

A instrução ld a,(ix--0) coloca no 
acumulador o último byte da tabela de 
contorno. Temos que usar o ** - 0'' nes- 
sa instrugáo porque o enderegamento in- 
direto com o registro IX deve ser inde- 
xado. Não existe uma instrução ld a, (ix). 
A instrução dec ix subtrai uma unidade 
do conteúdo de IX, para que ele aponte 
para o próximo valor da tabela, Obser- 
ve que esta será lida ''de trás para a 
frente”, 

A instrução cp 33 tem a função de 
comparar o conteúdo do acumulador 
com 33, valor indicativo de que o nível 
da encosta está diminuindo. Se o acu- 
mulador não contém esse valor — ou se- 
ja, se a montanha é plana no local em 
questão —, a instrução jr nz,lv salta em 
direção ao rótulo Iv. 

Se o conteúdo do acumulador for 33, 
a instrução jr nz,lv é ignorada, pois o 
indicador de zeros foi ativado por cp 33. 
O contador B e a coordenada Y do per- 
fil (armazenada em 57328) são diminuí- 
dos em uma unidade. O indicador arma- 
zenado no endereço 57329 passa a valer 
1. Todo esse processo é executado pe- 
las linhas 140 a 190. 

A instrução dec b diminui o valor de 
B. As alterações do conteúdo dos ende- 
reços 57328 e 57329 são feitas com au- 
xílio do acumulador, já que não existe 
uma instrução que, diretamente, dimi- 
nua o valor de um byte da memória ou 
transfira um valor para determinado en- 
dereço. Não há instruções do tipo dee 
57328 ou ld (57329),1. 

Quer a encosta da montanha apresen- 
te inclinação, quer continue plana, o 
programa continua na rotina lv. 


A ROTINA Iv 


A linha 200 e a linha 210 colocam o 
valor da coordenada Y no registro B. Is- 
so é feito com o auxílio do acumulador, 
já que o registro B não récebe o valor 
de um byte da memória via endereça- 
mento indireto. Não há uma instrução 
td b,(57328). 

A instrução Id hl,31 coloca em HL a 
posigáo da memória de vídeo que cor- 
responde ao canto superior direito da te- 
la. Id a,45 coloca no acumulador o va- 
lor 45, que, quando transferido para a 
tabela de atributos, resultará num carac- 
tere desenhado em ciano sobre fundo 
ciano. A rotina lg é chamada a seguir. 
Ela desenha uma coluna de blocos a par- 


tir da posição determinada por HL. A 
cor dos blocos é definida por A, enquan- 
to o tamanho da coluna é estabelecido 
por B. 

Quando o processador retorna da 
sub-rotina, a instrução Id bc,57264 co- 
loca em BC o endereço inicial do padrão 
do bloco usado para desenhar porções 
planas da encosta, O indicador guarda- 
do no endereço 57329 é colocado no 
acumulador e comparado ao número 1. 

Se o valor do indicador for diferente 
de 1 — ou seja, se a montanha for pla- 
na neste local —, a instrução jr nz;mp 
faz com que o processador salte em di- 
reção ao rótulo mp. Se o valor do indi- 
cador for 1, o nível da encosta deve 
diminuir. A instrução ld bc,(57329) mo- 
difica o conteúdo de BC, de modo que 
esse par de registros passe a conter o en- 
dereço inicial do padrão do bloco usa- 
do para desenhar porções inclinadas da 
montanha. Os padrões dos blocos das 
porções planas e inclinadas da monta- 
nha são obtidos na tabela de padrões 
criada pelo programa listado no último 
artigo. 

Quer a montanha seja plana ou in- 
clinada neste ponto do desenho, o pro- 
grama prossegue na rotina mp. 


A ROTINA mp 


Para desenhar os blocos que definem 
o perfil da encosta da montanha, deter- 
minando o limite entre o céu e a terra, 
o computador precisa de duas cores. As- 
sim, a instrução Id,a,44 atribui aos ca- 
racteres a cor verde. A cor do fundo per- 
manece ciano. Em seguida, a sub-rotina 
print, listada no primeiro artigo da sé- 
rie Avalanche, é chamada para desenhar 
o bloco. 

As instruções contidas nas linhas 320 
e 330 colocam o valor da coordenada Y 
do perfil da encosta em B, com o auxi- 
lio do acumulador. Subtraindo esse va- 
lor de 23, obtém-se o número de blocos 
que devem ser desenhados abaixo do ho- 
rizonte. O número 23, correspondente 
às linhas da tela do Spectrum, foi colo- 
cado em A para permitir a subtração 
realizada pelo comando sub b, Esse co- 
mando deixa o resultado da subtração 
no registro A, A instrução ld b,a é utili- 
zada para trazer o resultado da subtra- 
ção de volta para B — a rotina lg exige 
que o número de blocos a serem dese- 
nhados esteja em B. Note que todas as 
24 linhas da tela do Spectrum são em- 
pregadas, incluindo as duas inferiores, 
normalmente reservadas para edição de 
linhas em BASIC. 

A instrução ld 2,32 coloca em A o 
código de atributo correspondente a ca- 


ractere de cor verde sobre fundo igual- 
mente verde. Em seguida, o número 32 
é colocado em DE e somado ao endere- 
ço de impressão na tela, que está em 
HL. Esse par de registros passa, então, 
a apontar para a próxima posição na 
vertical. A rotina Ig é chamada a seguir 
para imprimir os blocos verdes abaixo 
do horizonte. 

A instrução pop bc recupera da pi- 
lha o contador de colunas. À instrução 
djnz diminui seu valor em uma unida- 
de, retornando ao início do programa 
para imprimir uma nova coluna, en- 
quanto o contador não for zero. 


O PLACAR 


Precisamos reservar uma porção da 
tela para imprimir o score e o número 
de vidas que restam a Willie. Assim, na 
linha 430, 49 é colocado em HL, deter- 
minando a posição de impressão do pla- 
car. O número de caracteres impressos 
é colocado em B. A instrucào ld a,41 co- 
loca em A o código de atributo corres- 
pondente a caractere azul sobre fundo 
ciano. 

Depois, a instrugáo ld ix,57973 colo- 
ca em IX o endereco do byte que será 
utilizado para armazenar o total de pon- 
tos obtidos pelo jogador. A rotina me, 
criada no primeiro artigo desta série, é, 
entáo, chamada. Ela traduz o score sob 
a forma de códigos ASCII, e o imprime 
na tela, 

A instrução seguinte chama a sub- 
rotina elb, que cuida dos níveis de difi- 
culdade do jogo, acrescentando os bu- 
racos e as cobras ao cenário. Essa roti- 
na ainda náo foi publicada e, como vo- 
cé pode observar, seu rótulo correspon- 
de a um simples ret, no final da lista- 
gem. Por enquanto, o processador re- 
tornará imediatamente da rotina, sem 
nada executar. No momento apropria- 
do, o comando ret será apagado pela 
verdadeira rotina elb, 

Ao retornar da sub-rotina elb, o pro- 
cessador encontra uma nova instrução 
ret, que provoca um retorno ao interpre- 
tador BASIC. Quando o videogame es- 
tiver completo, a rotina de criagáo do 
cenário terá terminado e o processador 
retornará à rotina principal (responsá- 
vel pelo controle do jogo), que chama- 
rá as sub-rotinas seguintes. 


SCROLL HORI 





TAL 


O rótulo scl marca o início da rotina 
que executa um deslocamento horizon- 
tal do conteúdo da tela para a direita. 
Esse processo — chamado geralmente 


de SCROLL horizontal — permite que 
desenhemos o cenário, a partir da extre- 
midade esquerda do vídeo, enquanto a 
página de instruções vai sendo retirada 
da tela. 

A instrução Id hl,16384 coloca o en- 
dereco inicial da memória de vídeo em 
HL. A instrução seguinte coloca em B 
o número de linhas da memória de уі- 
deo e da tabela de atributos. O número 
de colunas por linha é colocado em C 
pela instrução 14 с,31. 

O apontador HL aumenta, então, em 
uma unidade, fazendo com que a instru- 
ção Id a,(hl) coloque no acumulador o 
conteúdo da segunda posição da tela. 
Em seguida, o conteúdo do par de re- 
gistros HL é diminuído em uma unida- 
de, voltando a apontar para a primeira 
posição da tela. A instrução 14 (hl),a co- 
loca ali o padrão que antes ocupava a 
posição seguinte. 

O conteúdo do par HL é novamen- 
te aumentado, enquanto o conteúdo de 
C é diminuído. Se o registro C ainda 
nào contém zero — ou seja, se o fim da 
linha não foi atingido —, a instrução jr 
nz, lpj retorna ao rótulo Ipj para deslo- 
car o conteúdo da coluna seguinte. 
Quando o fim da linha for alcançado, 
a instrução jr nz,lpj será ignorada e a 
instrução inc hl aumentará HL em uma 
unidade. 

A instrução djnz sempre utiliza o par 
de registros BC. Como C é igual a ze- 
ro quando se executa a linha 640 do pro- 
grama, essa instrução diminui o conteú- 
do de B em uma unidade e volta ao ró- 
tulo Ipi para deslocar uma nova linha. 
Depois que a última linha tiver sido des- 
locada para a direita, B conterá o valor 
0, e a instrução ret provocará o retorno 
da sub-rotina. 


A primeira instrução dessa sub-rotina 
é push be, que guarda o contador de 
colunas na pilha. A instrução ld 
bc, 15616 coloca em BC o endereço ini- 
cial da tabela da ROM em que estão 
contidos os padrões dos caracteres. O 
primeiro caractere ali representado é o 
espaço em branco. Assim, quando a li- 
nha 680 chamar a sub-rotina print, ela 
imprimirá um espaço de cor apropria- 
da na tela. A instrução seguinte coloca 
32 em DE. A instrução add hl,de, por 
sua vez, soma 32 ao conteüdo do par 
HL, de modo que ele aponte para o pró- 
ximo bloco da coluna. 

A instrução pop be recupera o con- 
tador de colunas e a instrução djnz di- 
minui seu valor em uma unidade, retor- 
nando ao rótudo lg a fim de imprimir 





mais um espago em branco. O processo 
se repete até que o conteúdo de B seja 
reduzido a zero, indicando que o últi- 
mo bloco foi impresso. 

O salto para lg não será executado e 
a instrução ret fará com que o proces- 
sador retorne ao ponto de onde a sub- 
rotina foi chamada. 


A rotina Assembly listada a seguir cria 
e desloca na tela do TRS-Color o cená- 
rio de Avalanche. Ela difere das demais 
devido ás limitagóes do uso de cores nes- 
se computador. Como a montanha é co- 
berta de relva e cercada pelo mar azul, 
náo temos alternativa senáo pintar o céu 
de amarelo. 
ORG 19109 
JSR MODE 
JSR GCLS 
LDX 45631 
LDY 417503 
LDB 432 
LOOP PSHS B 
JSR SCROLL 
JSR PRINT 
PULS B 
DECB 
BNE 
LDY 
LDX 
JSR 
RTS 
MODE EQU 19182 
GCLS EQU 19161 
190 SCROLL EQU 19197 
200 PRINT EQU 19218 


Digite a rotina usando nosso programa 
Assembler. Grave o programa-fonte e de- 
pois monte-o. Grave também a rotina em 
código, usando o comando CSAVEM. A 
rotina nào deve ser executada ainda, pois 
nào funcionará sem os demais programas 
do artigo. 


DESLOCAMENTO DO CENÁRIO 


Após termos definido o endereço ini- 
cial, precisamos colocar o computador 
no modo gráfico e selecionar o conjun- 
to de cores que vamos utilizar. Isso é fei- 
to pela sub-rotina MODE, chamada pe- 
lo comando JSR MODE na linha 20. A 
sub-rotina GCLS limpa a tela, 
colorindo-a de amarelo. 

A instrução LDX 4 5631 coloca em X 
o endereço do extremo superior esquer- 
do da tela. Essa área será ocupada pelo 
último byte do contorno da montanha 
antes de se iniciar o deslocamento do ce- 
nário. A instrução LDY % 17503 соіо- 
ca em Y o endereço inicial da tabela do 
perfil da encosta. LDB *32 coloca em 





LOOP 
#17604 
#1569 
PRSUN 


B o número de colunas da tela. A ins- 
trução PSHS B guarda o contador de 
colunas na pilha da máquina, liberan- 
do o registro B. 

A sub-rotina SCROLL é chamada 
para deslocar a coluna uma posição pa- 
ra a direita. Em seguida, a sub-rotina 
PRINT é chamada, imprimindo uma 
coluna de blocos verdes abaixo do ho- 
rizonte. A instrução PULS B, na linha 
100, recupera o contador de colunas da 
pilha da máquina. O contador é, então, 
diminuído em uma unidade por DEC B. 
A instrução BNE LOOP faz o proces- 
sador voltar à linha 70 para imprimir 
uma nova coluna, até que o conteúdo 
de B acabe se tornando zero. 

Quando isso ocorrer, o programa te- 
rá desenhado a última coluna, a instru- 
ção BNE LOOP será ignorada e o pro- 
grama continuará na linha 140. Ali o re- 
gistro Y recebe o endereço inicial do pa- 
drão do desenho do sol na tabela de blo- 
cos gráficos criada no artigo anterior. 
A linha seguinte coloca em X a posição 
do sol na tela gráfica. A instrução JSR 
PRSUN chama a sub-rotina que dese- 
nha o sol. 

Como de costume, RTS provoca o 
retorno da sub-rotina ao interpretador 
BASIC — ou, quando o jogo estiver 
completo, ao programa principal. 

Várias sub-rotinas chamadas não es- 
tão listadas no programa-fonte. Falsas 
instruções EQV informam seus endere- 
ços iniciais ao Assembler, para que ele 
possa calcular os saltos e desvios. 


O INEVITAVEL ыы 


A rotina GCLS limpa a tela, 
colorindo-a totalmente de amarelo — 
cor do céu nesta versào do jogo. 


ORG 19161 
GCLS LDX $1536 
LDA 485 

GCLSI STA,X+ 
CMPX $7680 
BLO GCLSI 

RTS 


A rotina comeca colocando em X o 
endereco inicial da tela — 1536. A ins- 
trução LDA * 85 coloca no acumulador 
o código da cor amarela. 

A instrução STA ,X + coloca o con- 
teúdo do acumulador no endereço apon- 
tado por X e aumenta o valor de X em 
uma unidade. A instrução CMPX + 7680 
compara X com 7680, primeiro byte aci- 
ma do final da tela. A instrução BLO 
GOLSI retorna à linha 40 para colorir a 
próxima posição de tela, enquanto o fi- 
nal da memória de vídeo não tiver sido 
alcançado por X — ou seja, enquanto X 
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for menor que 7680. Quando isso acon- 
tece, a instrugáo RTS faz com que o pro- 
cessador volte ao ponto de onde a rotina 
foi chamada. 
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As quatro sub-rotinas seguintes po- 
dem ser montadas juntas, pois ocupam 
posições consecutivas na memória. 

Para modificar o modo gráfico do 
TRS-Color temos que nos comunicar 
com dois circuitos integrados especiais 
que controlam o vídeo. Esses chips são 
o Gerador de Vídeo ou VDG (Video 
Display Generator) e o Multiplexador 
Síncrono de Endereços ou SAM 
(Synchronous Address Multiplexor). 

Na linha 20, o valor 229 é colocado 
no acumulador. A seguir, a instrução 
STA 65314 coloca o mesmo valor no en- 
dereço FF22. Essa posição da memória 
controla a saída de dados para o VDG 
e outros periféricos. Cada bit desse byte 
tem uma função diferente, 

Na linha 30, o número 229 — 
11100101 — estabelece as linhas de co- 
municação. O “1” no bit sete determi- 
na o modo gráfico; “0” seria o modo 
de texto. Os bits seis e cinco, valendo 
“1º”, definem o modo gráfico P3. O bit 
três seleciona as cores — aqui, “0” dá 
verde, vermelho, amarelo e azul. 

Os bits dois, um e zero não se refe- 
rem ao VDG. Eles controlam o tama- 
nho da memória RAM, a produção de 
sons e a saída para a impressora, respec- 
tivamente. Sua conformação usual é 
101. Por isso, quando for modificar o 
conteúdo desse byte, coloque 101 nos 
três primeiros bits, a menos que haja al- 
guma razão para não fazê-lo. 

Quando aiteramos as linhas de comu- 
nicação com o VDG, devemos fazer 
também algumas alterações nos bytes 
que se referem ao SAM. Esse chip tem 
um registro de dezesseis bits que corres- 
ponde às posições de memória que vão 
de FFCO a FFDF — intervalo que con- 
tém 32 bytes. Cada bit do registro exis- 
tente nessas posições é ativado quando 
colocamos um valor nos bytes ímpares 
correspondentes, e apagado quando fa- 
zemos o mesmo nos bytes pares. O va- 
lor colocado nos bytes e no registro do 
VDG deve ser o mesmo. Os bits ativa- 
dos pelas linhas 40 a 60 do programa- 
fonte informam ao SAM que a memó- 
ria de vídeo começa no endereço 1536. 








10 ORG 19182 
20 MODE LDA 4229 
30 STA 65314 
40 STA 65475 
50 STA 65477 





60 STA 65479 
70 RTS 


SCROLL HORIZONTAL 


O rótulo SCROLL marca o início da 
rotina que executa um deslocamento ho- 
rizontal do conteúdo da tela para a di- 
reita. Esse processo — chamado geral- 
mente de SCROLL horizontal — permi- 
te que desenhemos o cenário a partir da 
extremidade esquerda do vídeo. 


э 








10 SCROLL PSHS X,Y 
20 LDX $1536 

30 LDY 41537 

40 SCRO LDA ,Y+ 
50 STA ,Х% 

60 СМРХ 47679 

70 BLO SCRO 

80 PULS Y,X 

90 RTS 


Essa rotina precisa utilizar os regis- 
tros X e Y, mas números muito impor- 
tantes foram guardados ali por outras 


| ІІ 


rotinas. Assim, a primeira providëncia 
do programa, na linha 10, é guardar es- 
sës valores na pilha da máquina, com a 
instruçào PSHS X,Y. 

As linhas 20 e 30 colocam em X e Y 
os endereços da primeira e da segunda 
posições da tela, respectivamente. A ins- 
trução LDA ,Y + coloca em A o con- 
teúdo da posição apontada por Y, e Y 

Р aumenta em uma unidade. 
Е A instrução STA ,X + toloca o con- 
" teúdo de A na posigáo apontada por X, 




































































e X aumenta em uma unidade. Portan- 
to, na primeira passagem do processa- 
dor, as linhas 40 e 50 colocam o conteú- 
do da segunda posição da tela dentro da 
primeira posição, atualizando ainda os 
valores dos dois apontadores. 

A instrução CMPX # 7679 compara 
o conteúdo de X com o último endere- 
ço da memória de vídeo. Enquanto X 
contiver um valor inferior, a instrução 
BLO SCROLL envia o processador de 
volta à linha 10 para deslocar mais uma 
posição de memória para a esquerda. 

A rotina não só desloca todo o con- 
teúdo da tela uma posição para a esquer- 
da como também coloca o que havia na 
última coluna da esquerda para a últi- 
ma coluna da direita, uma linha acima. 
Isso não tem importância, já que a últi- 
ma coluna da direita será apagada pe- 
los blocos que desenham o cenário. 

Quando o conteúdo da última posi- 
ção da memória de vídeo for deslocado 
para a esquerda, o conteúdo original dos 
registros X e Y será recuperado da pi- 
lha pelo comando PULS Y,X. A instru- 
ção RTS da linha 90 provocará o retor- 
no da sub-rotina. 


y CENARIO 


Os blocos gráficos que compóem o 
cenário preenchem a última coluna da 
direita, á medida que o conteúdo da te- 
la vai sendo deslocado para a esquerda. 
A rotina responsável por esse processo 
é a seguinte: 


10 PRINT PSHS X 
20 LDA ,Y+ 
30 SUBA 433 


40 BNE PRZ 

50 PULS X 

60 LEAX -256,X 
70 PSHS 

80 LDY 417536 
90 LDB 48 

100 PRI LDA ,Y* 
110 STA ,X 
120 LEAX 32,X 
130 DECB 

140 BNE PRI 
150 PULS Y 

160 PRZ CLR ,X 
170 LEAX 32,X 
180 СМРХ 47680 
190 BLC PRZ 
200 PULS X 


Desta vez a rotina usará o valor con- 
tido no apontador Y. Se estivermos de- 
senhando uma porção inclinada da 
montanha, poderá ser necessário modi- 
ficar a altura do horizonte contida no 
registro X. Mas, por enquanto, a instru- 
ção PSH X guarda o conteúdo de X na 
pilha da máquina. 








A instrução LDA ,Y + coloca em A 
o conteúdo do endereço indicado por Y 
e o apontador aumenta em uma unida- 
de. A seguir, a instrução SUBA #33 
subtrai 33 unidades de A. 

O número 33 é o código ASCII do 
ponto de exclamação e, na tabela cria- 
da pelo programa do artigo anterior, 
significa que a encosta é inclinada na- 
quela posição: Se este não for o caso, 
a subtração não resulta em zero, o que 
faz a instrução BNE PRZ provocar um 
salto para a linha 160. Se A contiver o 
valor 33, indicando inclinação da encos- 
ta, a instrução BNE é ignorada e o pro- 
grama continua. 

A instrução PULS X recupera da pi- 
Iha a altura do horizonte, e a instrução 
seguinte subtrai 256 unidades de X. O 
número 256 é iguala 8 x 32 — o apon- 
tador X subiu, assim, oito linhas (ou um 
bloco) na tela. O novo valor de X é re- 
colocado na pilha da máquina para ser 
usado no desenho da coluna seguinte. 
O valor do apontador Y — que aponta 
para a tabela de contorno da montanha 
— também é guardado na pilha. 

A instrução LDY & 17536 coloca em 
Y o endereço inicial do padrão do bloco 
de uma porção inclinada da montanha. 
O bloco é desenhado na posição aponta- 
da por X. Neste modo gráfico os pontos 
são criados em grupos de dois, com base 
no valor de dois bits. Dois bits podem ter 
quatro valores diferentes, um para cada 
cor. A organização da memória de vi- 
deo foi explicada no artigo da página 86. 

A instrução DECB diminui o conteú- 
do do contador B em uma unidade e, en- 
quanto esse contador não tiver sido re- 
duzido a zero, a instrução BNE PRI fa- 
rá com que o processador volte à linha 
100 para desenhar a próxima linha. 
Quando B contiver zero, a última linha 
terá sido desenhada. 

Em seguida, a instrução PULS Y re- 
cupera da pilha o apontador da tabela 
de contorno da montanha. O programa 
continua na linha rotulada PRZ. Esta 
é a rotina para a qual o programa salta- 
ria se a montanha fosse plana neste pon- 
to (veja linha 40). Sua função é desenhar 
uma coluna de blocos verdes, recobrin- 
do parte da montanha. 


COMO FUNCIONA 


A instrução CLR ,X limpa o conteú- 
do do endereço apontado por X. Lim- 
par — ou seja, tornar igual a zero — o 
conteúdo de uma posição de memória 
equivale, no caso, a pintar aquela posi- 
ção com a cor verde. A instrução LEAX 
32,X soma 32 ao apontador X, fazendo- 
o descer uma linha na tela. 











A instrução CMPX 7680 verifica 
se o apontador ultrapassou o final da 
memória de vídeo. Enquanto isso não 
ocorrer, a instrução BLO PRZ fará o 
processador voltar ao rótulo PRZ para 
desenhar mais uma linha de oito ponti- 
nhos verdes. Ao se completar a coluna 
de blocos verdes, a instrução PULS X 
recupera da pilha o valor da altura do 
horizonte. A instrução RTS marca o fi- 
nal da sub-rotina. 


0 SOL 


Os dados necessários ao desenho do 
sol (padrões e posições na tela) se encon- 
tram na tabela criada no artigo anterior. 
Esses dados sáo utilizados pela rotina 
Assembly listada a seguir, que preenche 
um espago de 32 por 30 pontos no céu. 


10 PRSUN LDB 430 
20 PRSUNI PSHS B 


30 LDB 44 

40 PRSUNZ LDA ,Y* 
50 STA ,X+ 

60 DECB 

70 BNE PRSUNZ 

80 LEAX 28,X 

90 PULCS B 

100 DECB 

110 BNE PRSUNI 
120 RTS 


A instrução LDB #30 coloca no con- 
tador B o número de linhas que serão 
preenchidas para desenhar o sol. De- 
pois, a instrução PULS B guarda o con- 
tador na pilha da máquina. A linha se- 
guinte coloca o número 4 no registro B, 
definindo em quatro bytes — ou 4 x 8 
= 32 bits — a largura do desenho. Mes- 
mo que quiséssemos desenhar um sol 
com 30 x 30 pontos, precisaríamos de 
um quadriculado de 32 x 30 pontos — 
usaríamos, no caso, quatro bytes, dei- 
xando duas colunas com a cor de fundo. 

Como de costume, a instrução LDA 
+Y + obtém o padrão de uma parte dos 
desenhos no endereço apontado por Y, 
colocando-o em A e aumentando em 
uma unidade o apontador. A instrução 
STA ,X + coloca esse padrão na tela, na 
posição apontada por X, aumentando 
também em uma unidade o valor desse 
apontador. A instrução DECB diminui 
o valor do contador e, enquanto B não 
for zero, a instrução BNE PRSUNZ re- 
torna à linha 40, fazendo com que qua- 
tro bytes sejam colocados na tela. 

Quando o último byte da linha tiver 
sido desenhado, a instrução LEAX 28,X 
soma 28 ao conteúdo de X, de modo que 
ele aponte para o início da próxima li- 
nha. O contador de linhas é recuperado 
da pilha por PULS B e diminuído em 


uma unidade por DECB. Enquanto as 
trinta colunas não tiverem sido desenha- 
das, a instrução BNE PRSUNI faz com 
que o processador volte à linha 20, re- 
petindo o processo. 

Se a última linha foi traçada, B 
reduz-se a zero, a instrução da linha 110 
é ignorada e o programa encontra a ins- 
trução RTS, que provoca o retorno da 
sub-rotina. 


MEL I o 


Quando escrevemos a página de ins- 
trucóes, a tela estava no modo texto de 
quarenta colunas, totalmente inadequa- 
do para o cenário de um jogo de ação. 
A rotina Assembly a seguir seleciona o 
modo gráfico de alta resolução. 


10 org -12144 
20 1d h1,62441 
30 1d (h1),4 
40 inc hl 

50 1d (h1),7 
60 inc hl 

70 1d (h1),7 
80 call 114 

90 1d a,226 


100 ld (62432),a 
110 call 105 

120 ret 

130 end 


Para selecionar as cores da tela, é pre- 
ciso modificar o conteüdo de algumas 
posições da RAM, nas quais o sistema 
armazena valores usados no controle 
das diversas operações do micro. 

A instrução que se segue à definição 
do endereço inicial coloca em HL o en- 
dereço do byte que determina a cor de 
frente usada na tela. Depois, a instru- 
ção Id (hl),4 utiliza o endereçamento in- 
direto para colocar ali o código da cor 
azul-escuro. 

O par HL, usado como apontador, 
tem seu conteúdo aumentado em uma 
unidade pela instrução inc hl, passando 
a apontar para o próximo endereço, que 
determina a cor de fundo da tela. Esse 
byte recebe o valor 7, que é o código da 
cor ciano. Duas outras instruções colo- 
cam o mesmo código na posição seguin- 
te, que determina qual será a cor da mol- 
dura da tela. 

A instrução call 114 é responsável pe- 
la modificação das cores e do modo de 
exibição da tela. Ela chama uma sub- 
rotina do sistema, que coloca o compu- 
tador no modo gráfico de alta resolu- 
ção. Essa rotina equivale a um coman- 
do SCREEN 2,0, ou seja, ela não somen- 
te coloca o computador no modo gráfi- 
co como também limpa a tela, preenche 
as tabelas da VRAM com seu conteúdo 
padrão e, ainda, acerta os conteúdos do 





VDP (Video Display Processor), chip de 
imagem do MSX. 

A rotina chamada na linha 80, con- 
tudo, preparou o VDP para exibir spri- 
tes pequenos (8 x 8 pontos), quando 
nós precisamos de sprites grandes (16 x 
16 pontos). Para fazer os acertos neces- 
sários, teremos que modificar o conteú- 
do de um dos registros do VDP. Estes 
podem ser alterados através das posições 
de memória que vão de 62431 a 62438 
— o que corresponde a oito registros de 
oito bits. As funções de cada registro do 
VDP serão comentadas em outro arti- 
go. Por hora, interessa-nos apenas o re- 
gistro 1, que modificaremos através do 
endereço 62432. 

As instruções das linhas 90 e 100 da 
listagem colocam nesse registro o valor 
226. Note que o uso do acumulador é 
temporário, justificando-se pela inexis- 
tência de uma instrução que coloque 
um número diretamente em uma posi- 
ção de memória. Não há uma instru- 
ção ld (62432),226. 

Cada bit do registo | do VDP tem 
uma função. O bit 7 indica o tamanho 
da VRAM utilizada, o bit 6 liga e desli- 
ga a tela, o bit 5 seleciona o modo de 
interrupção, os bits 3 e 4 determinam o 
tipo de tela (dois bits nos dão quatro op- 
ções: telas 0, 1, 2 e 3), o bit 2 não é uti- 
lizado, o bit 1 controla o tamanho lógi- 
co do sprite (8 x 8 ou 16 x 16 pontos) 
e o bit 0, finalmente, controla o tama- 
nho físico do sprite (normal ou amplia- 
do). Assim, como 226 é 11110010 em 
sistema binário, quando colocado no re- 
gistro 1, ele determina uma VRAM de 
dezesseis Kbytes, tela ligada, com pos- 
sibilidade de interrupgáo, modo gráfi- 
co de alta resolução e sprites grandes 
não ampliados. 

A sub-rotina chamada na linha 80 
preencheu a tabela de atributos de spri- 
tes (veja o artigo da página 808) com no- 
mes compatíveis com sprites pequenos. 
A instrução call 105 chama, então, ou- 
tra sub-rotina da ROM, que preenche a 
mesma tabela com valores compatíveis 
com sprites de 16 x 16 pontos. Na rea- 
lidade, essa sub-rotina preenche a tabe- 
la de atributos com seu conteúdo pa- 
drão, conforme os valores dos registros 
do VDP., Depois disso, nossa rotina ter- 
mina com a instrução ret. 


TABELA DE PADRÓES 


A tela de alta resolugáo dos micro- 
computadores da linha MSX é organi- 
zada em cinco tabelas: nomes, padrões, 
cores, atributos de sprites e padrões de 
sprites. Os efeitos visuais do videogame 
são criados por intermédio da modifi- 












cagáo dos valores contidos nessas 
tabelas. 

A rotina listada a seguir transfere pa- 
ra a tabela de padrões os blocos gráfi- 
cos criados pelo programa BASIC do 
artigo anterior. Como os mesmos blo- 
cos são transferidos para a tabela de pa- 
drões de sprites, podemos utilizar as fi- 
guras que criamos tanto na forma de 
blocos gráficos como na forma de spri- 
tes. Observe que o programa exige que 
o banco de blocos anteriormente cria- 
do esteja na memória. 


10 org -12121 
20 19 де, (62411) 
30 ld h1,-15100 
40 ld bc,640 

50 push bc 

60 push hl 

70 push de 

80 call 92 

90 pop de 


100 ld h1,2048 
110 add hl,de 
120 ld d,h 

130 14 е,1 

140 pop hl 

150 pop bc 

160 push bc 
170 push hl 
180 push de 
190 call 92 
200 pop de 

210 14 Һ1,2048 
220 add hl,de 
230 ld d,h 


240 ld e.l 
250 pop hl 
260 pop bc 
270 push bc 
280 push hl 
290 call 92 
300 1d de, (62415) 
310 pop hl 
320 pop bc 
330 call 92 
340 ret 

350 end 


Para transferir os padróes da RAM 
para a VRAM, utilizamos a sub-rotina 
da ROM que fica no endereco 92. Usa- 
mos a mesma sub-rotina para criar a pá- 
gina inicial e escrever as instrucóes. 

A instrução Id de,(62411) coloca em 
DE o endereço inicial da tabela de pa- 
drões. Esse endereço fica armazenado 
nos bytes 62411 e 62412 e equivale a BA- 
SE(12). Note que a instrução transfere 
dezesseis bits, ou seja, um par de bytes 
para um par de registros. O registro E 
recebe o conteúdo de 62411, byte menos 
significativo. D recebe o byte mais sig- 
nificativo, 62412. 

A instrugáo seguinte coloca em HL 
o endereco inicial do banco de blocos 
que criamos na memória. O número de 
bytes a serem transferidos para a VRAM 
é colocado em BC por ld bc,700. 

A sub-rotina que começa no endere- 
ço 92 baseia-se no conteúdo dos regi: 





tros DE, HL e BC para efetuar a trans- 








































































































ferência. DE deve conter o endereço ini- 
cial da porção da VRAM a ser modifi- 
cada; HL, o endereço inicial da porção 
da RAM que vai ser transferida; e BC, 
o número de bytes. Como a sub-rotina 
altera o conteúdo desses mesmos regis- 
tros no decorrer de seu funcionamento, 
eles são guardados na pilha, para even- 
tual uso futuro. As instrucóes push bc, 
push hl e push de tratam disso, antes que 
call 92 mande o processador executar a 
sub-rotina. 

A tela de nomes da tela de alta reso- 
lução é dividida em três porções, cada 
uma representando os padrões contidos 
no terço correspondente da tabela de pa- 
drões. Como usaremos toda a tela, pre- 
cisaremos ter três cópias do banco de 
blocos na tabela de padrões. 

Para fazer a segunda cópia, o ende- 
reço inicial da tabela de padrões é recu- 
perado como pop de. O par HL recebe, 
então, o valor 2048, que corresponde à 
posição inicial do segundo terço da ta- 
bela de padrões. Esse valor é somado ao 
endereço al da tabela, para obter- 
mos o endereço inicial do terço médio 
na VRAM. A instrução que faz esta so- 
ma — add hi, de — deixa o resultado da 
operação em HL. 

Precisamos do endereço inicial em 
DE. Como não existem as instruções 
add de,hl e Id de,hl, para transferir o re- 
sultado para o par HL utilizamos duas 
instruções: Id d,h e Id e,1. 

O endereço inicial do banco de blo- 
cos na RAM é recuperado da pilha com 
pop hl e o número de bytes a serem 
transferidos para a VRAM, como pop 
bc. Observe que a ordem de recupera- 
ção dos pares de registro da pilha é a 
mesma de sua colocação. Os registros 
são guardados na pilha novamente, an- 
tes que call 92 volte a transferir o ban- 
co de blocos para a VRAM. 

Obtém-se a terceira cópia do banco 
de blocos de maneira muito parecida. O 
endereço inicial do terço médio é recu- 
perado e somado a 2048, resultando no 
endereço correspondente ao terço infe- 
rior. HL e BC são recuperados da pilha 
e a rotina da memória ROM é executa- 
da novamente. Desta vez, somente BC 
e HL são guardados na pilha. 

Uma quarta cópia do banco de blo- 
cos deve ser feita na tabela de padrões 
de sprites. O endereço inicial da tabela 
é armazenado nos endereços 62415 e 
62416. A instrução Id de,(62415) trans- 
fere esses dois bytes para DE, como foi 
explicado anteriormente. 

As instruções pop hl e pop bc recu- 
peram da pilha o endereço inicial e o ta- 
manho do banco. A cópia é feita com 
call 92. A rotina termina com uma ins- 
trução ret. 











A TABELA DE CORES 


Se náo colocarmos valores adequados 
na tabela de cores, nenhum bloco grá- 
fico será mostrado no vídeo. Um novo 
programa BASIC, que coloca os códi- 
gos de cores no topo da memória, está 
listado no final do artigo. Os valores sáo 
transferidos para a tabela de cores da te- 
la gráfica por esta rotina: 


10 org -12066 
20 ld de, (62409) 
30 ld h1,-16100 
40 ld bc,672 

50 push bc 

60 push hl 

70 push de 

80 call 92 


90 pop de 

100 ld h1,2048 
110 add hl,de 
120 ld d,h 
130 14 е,1 
140 pop hl 
150 pop bc 
160 push bc 
170 push hl 
180 push de 
190 call 92 
200 pop de 
210 ld h1,2048 
220 add hl,de 
230 ld d,h 
240 ld e,1 
250 pop hl 
260 pop bc 
270 call 92 
280 ret 

290 end 


Essa rotina é bem parecida com a an- 
terior. Ela comeca colocando em DE o 
endereco inicial da tabela de cores, ar- 
mazenado nos enderecos 62409 e 62410. 
HL recebe o endereço inicial da lista de 
códigos de cores que será criada pelo 
programa BASIC no final do artigo. BC 
recebe o número de bytes a serem trans- 
feridos. Os conteúdos desses três pares 
de registros são guardados na pilha e a 
rotina do endereço 92 é chamada no- 
vamente. 

Utiliza-se o mesmo processo explica- 
do anteriormente para a obtenção de 
três cópias do banco de cores — cada 
uma correspondendo a um terço do vi- 
deo. Sprites serão coloridos no momen- 
to em que surgirem no vídeo. 


SCROLL HORIZONTAL 


Para realizar o deslocamento da tela 
para a direita, usaremos um processo 
muito semelhante ao que foi descrito no 
artigo da página 213. 

As trës rotinas listadas abaixo reali- 


zam o processo da translação do conteú- 
do da tela gráfica: 


10 org -12022 
20 ld hl, (62407) 
30 1d de,-6000 


40 ld bc,768 
50 call 89 
60 ret 

70 org -12009 


80 14 4е,-5233 
90 1d h1,-5234 


100 1d b,24 

110 loop push bc 
120 ld a, (de) 
130 14 ьс,31 

140 1ddr 

150 ld (de) ,a 
160 dec hl 

170 dec de 

180 pop bc 

190 djnz loop 
200 ret 

210 org -11987 
220 ld de, (62407) 
230 1d h1,-6000 
240 14 bc,768 
250 call 92 

260 ret 

270 end 


A primeira rotina transfere o conteú- 
do da tabela de nomes da tela de alta re- 
solução para um buffer localizado no 
topo da memória. 

O endereco inicial dessa tabela na 
VRAM fica guardado nos bytes 62407 
e 62408 da RAM. A instrucáo da linha 
20 do programa coloca esse valor no par 
de registros HL. O endereço inicial do 
buffer é colocado em DE por Id 
de,-6000. O número de bytes a serem 
transferidos vai para o par de registros 
BC. A instrução call 89 chama, então, 
a sub-rotina da ROM que transfere nú- 
meros da VRAM para a RAM. 

A segunda sub-rotina, que começa na 
linha 70, promove o deslocamento do 
conteúdo do buffer para a direita. 

Os endereços dos dois últimos bytes 
do buffer sáo colocados em DE e HL. 
O número de linhas da tela vai para B. 
Como BC será utilizado adiante, a ins- 
trugáo push bc armazena o contador de 
linhas na pilha. 

O conteúdo da última posição da te- 
la é guardado no acumulador por Id 
a,(de). O par BC recebe o número de co- 
lunas de uma linha — 31. A instrução 
Iddr coloca no endereço apontado por 
DE o conteúdo do endereço apontado 
por HL e subtrai uma unidade de cada 
um dos apontadores e do contador BC, 
O processo é repetido automaticamen- 
te até que BC seja zero. A instrução da 
linha 140 desloca, assim, toda uma li- 
nha de blocos para a direita. 

O conteúdo da última posição da li- 
nha é colocado na primeira posição, 


agora apontada por DE. As instruções 
dec hl e dec de fazem com que esses re- 
gistros apontem para as duas últimas 
posições da próxima linha a ser deslo- 
cada. No nosso caso, ela fica imediata- 
mente acima da primeira. 

O contador de linhas é recuperado da 
pilha e djnz repete o laço loop até que 
todas as 24 linhas de blocos gráficos que 
compõem o buffer tenham sido des- 
locadas, 

A última rotina, que comega na linha 
210, transfere o conteúdo do buffer de 
volta para a tabela de nomes. Suas ins- 
truções são parecidas com as da rotina 
da linha 10, só que DE recebe o endere- 
ço da tabela na VRAM e HL recebe o 
endereço do buffer. A rotina chamada 
fica no endereço 92 da ROM. 


A ROTINA PRINCIPAL 


Para desenhar a montanha que Wil- 
lie deve escalar, o programa usa a se- 
guinte rotina: 


10 org 53563 

20 ld a,255 

30 19 Һ1, (62407) 
40 14 bc,768 

50 call 86 


60 call -12121 
70 call -12066 
80 call -12022 
90 ld a,8 

100 ld (-5230),a 
110 1d a,0 

120 14 (-5229).а 


130 1d hl,-6001 
140 ld b,33 

150 mpi push bc 
160 push hl 

170 call -11987 
180 call -12009 
190 pop hl 

200 1d a,(-5229) 
210 cp l 

220 yr nesta 
230 1а а, (-5230) 
240 inc a 

250 1d (-5230).a 
260 tq ld a,0 
270 1d (-5229).a 
280 1d a,(hl) 
290 dec hl 

300 push hl 

310 cp 33 

320 jr nz,lv 
330 14а,1 

340 ld (-5229),а 
350 1у 14 а,(-5230) 
360 ld b,a 

370 1d hl,-6000 
380 14 а,255 
390 call lg 

400 1d b,48 

410 1d a,(-5229) 
420 cpl 

430 jr nz,no 


440 ld b,52 
450 no ld a,b 
460 ld (hl),a 
470 ld a, (-5230) 
480 ld b,a 
490 ld a,23 
500 sub b 

510 ld b,a 
520 ld a,81 
530 ld de,32 
540 add hl,de 
550 call lg 
560 pop hl 
570 pop bc 
580  djnz mpi 
590 ret 

600 lo ld (hl),a 
610 ld de,32 
620 add hl,de 
630 dinz lg 
640 ret 

650 end 


A tabela de nomes será utilizada pa- 
ra representar blocos gráficos. Estes de- 
vem estar devidamente representados 
nas tabelas de padrões e de cores. Para 
entender o funcionamento das rotinas 
gráficas é necessário conhecer a organi- 
zação da VRAM. 

A primeira coisa que a rotina princi- 
pal faz é preencher a tabela de nomes 
com o número 255. Isso equivale a en- 
cher a tela com o bloco gráfico de códi- 
go 255, que, no nosso caso, é um bloco 
ciano. O acumulador recebe o código do 
bloco, 255. A instrução Id hl,(62407) со- 
loca o endereço inicial da tabela de no- 
mes em HL. BC recebe o número de 
bytes da tabela — 768. 

A rotina da memória ROM chama- 
da por call 86 preenche com o conteú- 
do de A uma porção da VRAM. O par 
de registros HL aponta o endereço ini- 
cial da porção e o par BC, o número de 
bytes que sofrerão alterações. 

A linha 60 chama a sub-rotina que 
gera os padrões dos bytes, e a 70, a sub- 
rotina que cuida da tabela de cores. A 
sub-rotina do endereço — 12022 coloca 
o conteúdo da tabela de nomes no buf- 
fer de deslocamento. 

As linhas 90 e 100 colocam no ende- 
reço -5230 o número da linha em que co- 
locaremos o horizonte. O endereço 
-5229 recebe o valor zero. Esse byte ser- 
virá de indicador de inclinação da mon- 
tanha. Se valer zero, ela será plana; se 
valer um, será inclinada. 

O par HL recebe o último valor da 
tabela de perfil da encosta. Essa tabela 
será gerada por um programa BASIC 
listado no final do artigo. O perfil é de- 
finido por meio de códigos que indicam 
se a montanha é plana ou inclinada num 
determinado local. 

Na linha 140, B recebe o número de 
colunas, que é logo colocado na pilha. 


para liberar o uso desse registro. As li- 
nhas 170 e 180 chamam as rotinas que 
copiam o buffer na tabela de nomes e 
realizam o deslocamento. 

As linhas 200 a 250 verificam se o in- 
dicador de inclinação, no endereço 
-5229, foi modificado anteriormente. 
Quando isso acontecer, a linha do hori- 
zonte deve ser alterada no endereço 
-5230, o que é feito pelas linhas 230 a 
250. A seguir, o indicador recebe nova- 
mente o valor zero. 

A instrução ld a,(hl) coloca em A o 
valor da tabela de perfil da encosta 
apontado por HL. Em seguida, esse par 
de registros é diminuído em uma unida- 
de e guardado na pilha, 

O conteúdo de A é comparado a 33 
— valor que indica regiáo inclinada, Se 
A tiver outro valor, a instrução jr nz,lv 
salta para o rótulo Iv. Caso contrário, 
as linhas 330 e 340 colocam o número 
1 no indicador de inclinação. 


NS 


As instruções das linhas 350 e 360 co- 
locam em B o número da linha do hori- 
zonte. Isso é feito com o auxílio do acu- 
mulador, já que não existe uma instru- 
ção que coloque o conteúdo de um en- 
dereço diretamente em B. HL recebe o 
endereço inicial do buffer, que corres- 
ponde ao topo da primeira coluna da te- 
la. A instrução Id a,255 coloca o códi- 
go do bloco ciano no acumulador. Esse 
bloco será usado para desenhar o céu. 
A rotina Ig desenha uma coluna de blo- 
cos ciano. 

A instrução ld b,48 coloca em B o 
código do bloco que representa uma 
porção plana da montanha. As duas 
linhas seguintes verificam o conteúdo do 
indicador de inclinação. Se a encosta for 
plana nessa coluna, a instrução jr nz,no 
desvia o programa para o rótulo no. 
Se for inclinada, B recebe o código do 
bloco adequado e a rotina passa ao 
rótulo no. 


A ROTINA no 


As linhas 450 e 460 colocam o bloco 
adequado na posição apontada pelo par 
de registros HL. As duas linhas que se 
seguem colocam em B o número da li- 
nha do horizonte. O registro A recebe 
o número de linhas da tela e a instrução 
da linha 500 subtrai o número da linha 
de horizonte desse valor. Calcula-se, as- 
sim, o número de blocos que devem ser 
colocados abaixo da linha de horizonte 
nesta coluna. 

O resultado da operação fica em A; 





a instrução ld b,a transfere-o para B. A 
instrução ld a,81 coloca em A o código 
do caractere verde, que preenche a en- 
costa. O par de registros DE recebe o 
número 32 e add hl,de soma esse valor 
ao conteúdo de HL, para que este apon- 
te para a linha seguinte. A rotina lg é 
chamada novamente para desenhar uma 
coluna de blocos. 

Para finalizar, a posição do aponta- 
dor da tabela de perfil da encosta da 
montanha é recuperado da pilha por 
pop hi. O contador de colunas também 
sai da pilha com pop bc. A instrução 
djnz repete o processo até que as 32 co- 
lunas do desenho tenham sido traçadas 
e deslocadas na telą. 


A ROTINA Ig 


Essa rotina desenha uma coluna de 
blocos. O código do bloco deve estar no 
acumulador; o endereço inicial da colu- 
na no buffer deve estar em HL; o nú- 
mero de linhas, em B. 

A linha 600 coloca o código do blo- 
co gráfico no endereço dado por HL. 
DE recebe o número 32, que é logo so- 
mado ao conteúdo de HL. A instrução 
djnz repete o processo de acordo com 
o conteúdo de B. 


AS TABELAS 


Este programa cria a tabela de cores 
na RAM: 
5 CLEAR 200,-16100 
10 FOR I=0 TO 20 
20 READ À 
30 FOR J=0 TO 31 
40 POKE -16100+1%32+J,A 
50 NEXT J,I 
100 DATA 23,23,23,103,103,247,2 
47,23,23,199,199,199,55,55,167, 
135,215,151,244,244,51 


A tabela criada tem 672 bytes. Cada 
valor na linha DATA 100 corresponde 
a um código de cor, que é repetido 32 
vezes, uma para cada linha do bloco 
gráfico. 

O programa a seguir cria a tabela do 
perfil da encosta: 


10 FOR I-0 ТО 31 

20 READ A:POKE -6032+1,A 

30 NEXT 

100 DATA 33,33,35,35,33,35,35,3 
5,33,35,35,33,35,33,35,35, 35,35 
.33,35,33,35,35,35,35,33,35,35, 
33,35,35,35 


Cada valor da linha DATA 100 cor- 
responde a uma coluna do desenho. Um 
número 33 significa porcáo inclinada, e 
um 35, porção plana. 














Com nosso programa para calendário 
e agenda, vocé poderá planejar seus 
compromissos diários e manter um 
registro de datas especiais. Aproveite 
a oportunidade e organize-se! 


Vocé é daquele tipo de pessoa que 
sempre se esquece do aniversário da es- 
posa ou só se lembra da hora marcada 
no dentista quando já é tarde demais? 
Ou, ainda, que se assusta ao descobrir 
que uma conta de luz está vencida há 
mais de um més? 

O programa que apresentamos neste 
artigo cuidará de todos os seus compro- 
missos. Com ele, você não terá mais des- 
culpas para faltar a encontros ou deixar 
de pagar suas contas na data certa. Ten- 
do uma impressora, você poderá, inclu- 
sive, fazer uma cópia da agenda em pa- 
pel, para consultá-la sempre que estiver 
longe do computador. 5 


ALENDÁRIO AUTOMÁTICO 


Este programa coloca à sua disposi- 
ção um calendário ou uma agenda. A 
primeira opção é a mais simples: mos- 
tra um calendário para qualquer mês 
dos anos de 1753 a 29999. A apresenta- 
ção do calendário é a usual, com os dias 
da semana no topo e os dias do mês 
abaixo. O programa leva em considera- 
ção, automaticamente, os anos bissex- 
tos, e indica a data do domingo de Pás- 
coa no mês correspondente. 

E possível, ainda, imprimir um calen- 
dário para o ano todo — alternativa es- 
pecialmente útil se você pretende colocá- 
lo em sua escrivaninha ou pendurá-lo 
na parede. 


A AGENDA ELETRÓNICA 


Nossa agenda permi que vocë or- 
ganize melhor seu dia-; »+ mantendo 
um registro de todos os seus compromis- 
sos. As entradas são feitas sob quatro 
títulos — Finanças, Encontros, Celebra- 
ções e Feriados —, o que torna mais fá- 
cil encontrar um determinado tipo de in- 
formação. 











É muito simples dar entrada à infor- 
mação e, como vantagem adicional, o 
programa requer um único registro dos 
eventos regulares. Assim, aniversários e 
contas a pagar podem ser anotados uma 
só vez, no dia correto, em todos os me- 
ses ou anos subsequentes. Quando se di- 
gita um dado de Finanças, por exemplo, 
o programa pergunta se o evento é úni- 
co (apenas para aquela data específica), 





UMA AGENDA 
ELETRÔNICA (1) 





mensal, trimestral ou anual, Se você es- 
tá entrando dados sobre um pagamen- 
to mensal, apenas digite M para men- 
sal, em seguida o nome ALUGUEL e, 
finalmente, o dia do vencimento. A pa- 
lavra ALUGUEL aparecerá naquele dia 
em todos os meses seguintes. 

A opção Celebrações inclui datas co- 
mo aniversários de nascimento, casa- 
mento, enfim, todo evento que tenha 




















ocorréncia anual. Os Encontros e Feria- 
dos sáo tratados como eventos únicos. 

Grave os dados logo depois de entrá- 
los, usando a opção GRAVAR, para 
evitar que alguma informação se perca. 
Eles são armazenados em um arquivo à 
parte, chamado DIÁRIO, e podem ser 
carregados, corrigidos ou apagados a 
qualquer momento, o que torna muito 
fácil a atualização da agenda. 




















я CALENDÁRIO MENSAL Ш FINANÇAS, ENCONTROS, 
в CÁLCULO DE UM EVENTO CELEBRACÓES E FERIADOS 
É. CALENDÁRIO ANUAL Ш COMO USAR A AGENDA 
п AGENDA DIÁRIA Ш PRIMEIRA PARTE 
п REGISTRO DE EVENTOS DO PROGRAMA 








Depois de digitar alguns dados, vocé 
poderá observar o funcionamento da 
agenda. Se teclar o número do més e 
ano, verá todas as entradas para aquele 
més, incluindo compromissos financei- 
ros ou celebrações levadas de um mês a 
outro pelo programa. 

As entradas são agrupadas nas dife- 
rentes categorias. Antes de exibir deter- 
minado grupo na tela, o programa es-' 
pera que uma tecla seja pressionada. 
Dessa maneira, nenhuma entrada será 
retirada sem que você possa vê-la. Se 
dispuser de uma impressora, copie to- 
das as entradas em papel, sempre que as- 
sim julgar necessário. 

Se você decidir voltar à opção de ca- 
lendário e apontar o mesmo mês, pode- 
rá destacar as datas correspondentes a 
compromissos na agenda pressionando, 
para cada uma das categorias, as teclas 
$, E, C ou F. 

A escolha de uma ou de outra opção 
do programa depende daquilo que se 
quer encontrar. Se você pretende exami- 
nar a programação para um determina- 
do mês, a escolha mais adequada será 
a da agenda. Mas você pode precisar ex- 
clusivamente de informações sobre os 
eventos financeiros do ano, para fazer 
um planejamento. Nesse caso, será me- 
lhor selecionar o calendário para um dos 
meses, destacar os compromissos co- 
merciais teclando $, passar para o mês 
seguinte e repetir a operação até com- 
pletar o período desejado. 

Como você verá, nosso programa é 
muito versátil. Você descobrirá várias 
outras possibilidades tão logo comece 
a usá-lo, 


PRIMEIRA PARTE 


Dividimos o programa em trés par- 
tes. A primeira, que apresentamos a se- 
guir, contém várias rotinas e a tela do 
menu principal. As outras duas partes, 
incluindo instruções mais detalhadas de 
como usar 9 programa, serão dadas em 
artigos futuros. 

Não se esqueça de que deve gravar es- 
ta parte do programa para acrescentá- 
la às próximas. 


10 DATA 2,4,1,3,7,31,28,31,30 
,31,30,31,31,30,31,30,31 

20 DATA "MENS","TRIM","ANUA", 
"UNIC" 

30 BORDER 0: 
сз 

40 CLS 

50 CLEAR : LET P=2 
60 LET Z3=" 


PAPER 0: INK 7: 


70 DIM 0$(1,31): DIM Q(4): 

DIM L$(4,150,31): DIM T$(4,12 

): DIM C(4): DIM Z(5) 

80 FOR n=1 TO 5: READ Z(n): 

NEXT n 

90 DIM D(12): FOR nel TO 12: 
EXT 





aneiro Fevereiro 
Marco Abril Maio Jun 
ho Julho Agosto Setemb 


ro Outubro Novembro Dezembro 


110 LET s$-"DomSegTerQuaQuiSex 
Sab" 

120 DIM P$(4,4): FOR n*1 TO 4: 
READ P$(n): NEXT n 

130 LET T$(1)*"Financ LET 
T$(2)*"Apont ntos": LET T$(3 
)*"Celebracoes": LET T$(4)*"Fe 
riados" 

*140 DEF FN M(A)*((A/K2-INT (A/ 
K2))*K2) 

150 LET SV=0: 
=0 

160 PRINT 
DADOS GRAVADA(S/N) ?": 
-"an* 

170 CLS : GOSUB 
p=2 
180 IF 
190 IF 
200 IF 
210 IF 








LET MO=0: LET DA 
"HÀ ALGUMA LISTA DE 
LET K$ 
990: 


CLS : LET 


C=1 THEN GOSUB 760 
C=2 THEN GOSUB 1760 
C=3 THEN GOSUB 2240 
С>3 AND C<8 THEN ГЕТ К 
B=C-3: GOSUB 1140: LET SV=1 
220 IF C=8 THEN GOSUB 1610: 
LET SVv=0 

230 IF C=9 AND SV=1 THEN 
PRINT : PRINT "VOCE NAO GRAVOU 
AS ALTERACOES” ' "CONFIRMA A SA 
IDA ?": LET K9="sn": GOSUB 
1480: IF KB=2 THEN LET C=0 
240 IF C<>9 THEN GOTO 170 
250 CLS : PRINT "ADEUS !” 

260 STOP 

270 LET MX=0: LET AZ=0 

280 LET K2-4: IF FN M(YR)*0 
THEN LET A2*1 

290 LET K2=100: IF FN M(YR)*0 
THEN LET AZ=0 








300 LET K2-400: IF FN M(YR)*0 7 
THEN LET A2-1 

310 IF KB-2 THEN LET MX-A2*28 
320 IF KB-0 THEN LET KB=1 

330 IF KB<>2 THEN LET MX=D(KB 
) 

340 LET KB=MX: RETURN 

350 LET RS-0 

360 IF DA=DE AND MO=ME AND KB= 
5 THEN LET KB=5: RETURN 

370 IF KB=5 THEN LET KB=7: 
RETURN 

380 LET RS=Z(KB) 

390 IF Q(KB)=0 THEN GOTO 450 
400 LET M4=Q (KB) 

410 FOR I-1 TO M4 

420 LET K$-L$(KB,I): LET K2-23: 
GOSUB 470: IF VAL K$(2 TO 3)<> 
DA THEN LET K2-0 
430 IF K2-1 THEN 
RETURN 

440 NEXT I 

450 LET KB=RS 

460 RETURN 

470 IF KB<>1 THEN GOTO 520 
480 IF VAL K$(1)=3 THEN GOTO 
540 

490 IF VAL K$(1)=4 THEN GOTO 


LET KB=7: 


530 

500 IF VAL K$(1)=1 AND VAL KS( 
2 TO 3)=DA THEN LET K2-1: 
RETURN 

510 IF VAL KS(1)=2 AND FN M((( 
(YR-VAL K$(6 TO 9))*12) *(12- 
VAL K$(4 TO 5))+M0))=0 THEN 
LET K2=1: RETURN 

520 IF KB=3 THEN GOTO 540 

530 IF VAL K$(2 TO 3)=DA AND 
VAL K$(4 TO 5)=MO AND VAL K$(6 
TO 9)=YR THEN LET К2=1: 
RETURN 

540 IF VAL К$(4 ТО 5)-МО THEN 
LET K2=1: RETURN 

550 LET K2-0: RETURN 
560 LET Y2=0: LET D2=0: 
=0 

570 LET Y2=YR-1 

580 LET D2=Y2*365+INT (Y2/4)- 
INT (Y2/100)*INT (Y2/400) 
590 IF MO-1 THEN GOTO 630 
600 FOR m=1 TO MO-1 

610 LET KB=m: GOSUB 270: 
2=D2+KB 

620 NEXT m 

630 LET KB*D2*DA: RETURN 
640 LET MS-MO: LET DS=DA 


LET M2 


LET D 








650 LET DA-1: LET MO-3: GOSUB ^ 
560: LET K2=7: LET DE=FN M(KB) 
660 LET N2=(INT (YR/100))-16: 
LET C2-3*N2-INT ((N2*1)/3)-INT 
(N2/4) 

670 LET K2=1 
1): LET K2=3 
(N2*19)) 

680 IF N2>11 AND D2<27 THEN 
LET D2-D2-1: GOTO 700 

690 IF N2<-11 AND D2=29 THEN 
LET D2-28 

700 LET D2-D2*21 

710 LET D2=D2+1: LET K2=7: IF 
INT (FN M(D2+DE)+0.1)<>1 THEN 
GOTO 710 

720 IF D2<32 THEN LET ME=3 
730 IF D2>=32 THEN LET D2=D2- 
31: LET ME=4 

740 LET DE=INT (D2+0.1): 
O=MS: LET DA=DS 

750 RETURN 

760 GOSUB 2510: GOSUB 2480 
770 CLS 

780 LET MK=5 

790 CLS 

800 PRINT AT 17,0;"<BREAK> ret 
orna ao menu” 

810 PRINT "Teclas z,x alteram 
Mes" 

820 PRINT INK 7;T$(1); INK 2; 
ФЕ "i; INK 7;T$(2) ; ІМК 4:7 А 


LET N2=FN M(YR+ 
LET D2=FN M(C2+ 





LET M 


830 PRINT 
"С ”j INK 7;T9(4); 
840 PRINT AT 0,0; 
850 GOSUB 2570: IF MK<5 THEN 
PRINT T$ (MK) 

860 PRINT 4P: LET KB=1: 
1920 

870 IF P-3 THEN PRINT 4P 


INK 7;T$(3); INK 1; 
INK 3;" F 


GOSUB 





880 PRINT 4P: LET T2-MI LET 8 
2-1: GOSUB 2020 

890 LET P=2 

900 LET K$-"zxfacf ": GOSUB 
1480: LET A-KB 

910 IF A=1 THEN LET MO=MO-1 
920 IF A-2 THEN LET MO-MO*l 
930 IF MO=13 THEN LET MO=1: 
LET YR=YR+1: GOSUB 640 

940 IF MO=0 THEN LET MO=12: 
LET YR=YR-1: GOSUB 640 

950 IF A>2 AND A<7 THEN LET 
MK=A-2 

960 IF A<3 THEN LET MK=5 


970 IF A<>7 THEN GOTO 790 
980 RETURN 
990 CLS PRINT PAPER 5; INK 
1;AT 0,5;” CALENDARIO & DIARIO 
"; PAPER 6; INK 0;AT 2,7;" MEN 
U PRINCIPAL " 
1000 FOR Z-1 TO 19: PRINT PAPE 
а їз” 

*: NEXT 2: PRINT AT 3,0 
1010 PAPER 1: INK 
1020 PRINT AT 4,1; 
calendario mensal” 
1030 PRINT AT 6,1; 
calendario anual” 
1040 PRINT AT 8,1;"3- Consultar 
diario” 





1- Consultar 





- Consultar 














1050 PRINT AT 10,1;"4- Rever/Ed 
itar Financas" 

1060 PRINT AT 12 "5- Rever/Ed 
itar Apontamento. 

1070 PRINT AT 14,1;"6- Rever/Ed 
itar Celebracoes" 

1080 PRINT AT 16,1;"7- Rever/Ed 
itar Feriados" 

1090 PRINT AT 18,1;"8- Gravar a 
s listas" 

1100 PRINT AT 20,1;"9- Sair do 
programa" 


1110 PRINT TAB 9;"Faca 





10 CLS 

20 CLEAR 5000 

30 DIM LIS(3,150),TY$ (3), CO(4) 
40 DM$="31283130313031313031303 


50 MN$=" JANEIRO FEVEREIROMARCO 
ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 


BRO NOVEMBRO DEZEMBRO ” 

60 DN$="DOMSEGTERQUAQUISEXSAB” 
70 PAS-"MENSTRIMANUAUNIC" 

B0 TYS(0)="FINANCAS” :TYS(1)="EN 
CONTROS” :TYS(2)="CELEBRACOES” :T 
Y$(3)="FERIADOS” 

90 DEF FNM(A) =INT ((A/K2-INT(A/K 
2)) *K2*0.5) *SGN (A/K2) 

100 SV=0:P=0:M0=0:DA=0 

110 PRINT €256,”HA ALGUMA LISTA 
DE DAOS GRAVADA? (S/N)" 

120 REM 

130 CLS:GOSUB 1030:CLS:P=0 

140 IF C-1 GOSUB 770 

150 IF C-2 GOSUB 2010 

160 IF C=3 GOSUB 2460 

170 IF C>3 AND C<8 THEN KB=C-4: 
GOSUB 1180:SV=1 

180 IF C=8 GOSUB 1730:SV=0 

190 IF C=9 AND SV=1 THEN PRINT: 
PRINT"VOCE NAO GRAVOU AS ALTERA 
COES” : PRINT"CONFIRMA A SAIDA?”: 
KBS="SN":GOSUB 1590:IF KB=2 THE 
N C=0 


200 IF C<>9 THEN 120 
210 CLS:PRINT” ADEUS !” 
220 END 

230 'COMPRIMENTO DO MES 


240 MX=0:A2=0 


250 K2=4:1F FNM(YR)=0 THEN A2=1 
260 K2=100:IF FNM(YR)=0 THEN AZ 
-0 

270 K2=400:IF FNM(YR)=0 THEN AZ 
"1 

280 IF KB=2 THEN MX=A2+28 

290 IF KB<>2 THEN MX=VAL (MIDS (D 


MS,KB*2-1,2)) 

300 KB=MX: RETURN 

310 'CARACTER DECISORIO 

320 A3S="":N3=0:F3=0:M3=0 

330 IF P=2 THEN RS=32:GOTO 460 
340 IF KB=5 AND MO=ME AND DA=DE 
THEN RS=191:GOTO 460 

350 IF KB=5 THEN RS=143:GOTO 46 


0 
360 M3=VAL (LIS(KB,0)) 
370 REM 


a opcao” 





380 N3=N3+1 

390 A3$-LIS(KB,N3) 

400 IF MID$(A35,2,1)="" THEN D= 
0 ELSE D=ASC(MIDS(A35,2,1)) 

410 IF D<>DA THEN 430 

420 KBS=A3S:GOSUB 470:F3=K2 

430 IF NOT(F3=1 OR N3>M3)THEN 3 
70 
440 
450 
460 


IF F3=0 THEN RS=32:GOTO 460 
N3"159+16*KB:RS=N3 

KB=RS: RETURN 

470 "CONFERIR ITEM NO MES 

480 Т4-0:Ү4-0:Ғ4-0 

490 T4=ASC(MIDS(KBS,1,1)) 

500 Y4-ASC(MIDS$ (KB$,3,1)) 

510 M4=(Y4 AND 15) 

520 Y4- (FIX (Y4/16) *17) *100*ASC( 
MIDS (KB$,4,1)) 

530 IF Y4>YR THEN K2=0: RETURN 
540 K2=3:IF(T4=1 AND MO»-M4)OR( 
T4=2 AND FNM(M4-MO)=0)OR(T4=3 A 
ND M4=MO)OR(T4=4 AND M4=MO AND 
Y4=YR) THEN F4=1 

550 K2=F4: RETURN 

560 "NUMERO DO DIA 

570 YX=0:D2=0:M2=0 

580 Y2=YR-1 

590 D2=Y2*365+FIX(Y2/4)-FIX(Y2/ 
100)+FIX(Y2/400) 

600 IF MO=1 THEN 640 

610 FOR M2=1 TO MO-1 

620 KB=M2:GOSUB 230:D2=D2+KB 
630 NEXT 

640 KB=D2+DA: RETURN 









































650 REM 

660 N2=0:C2=0:D2=0 

670 MS=MO:DS=DA 

680 DA=1:MO=3:GOSUB 560:K2=7:DE 
=FNM (KB) 

690 N2=FIX(YR/100)-16:C2=3+N2-F 
IX((N2*1) /3) -FIX (N2/4) 

700 K2=19:N2=FNM(YR+1):K2=30:D2 
*FNM(C2* (N2*19)) 

710 IF N2>11 AND D2<27 THEN D2= 
D2-1 ELSE IF N2<=11 AND D2=29 T 
HEN D2=28 

720 D2=D2+21 

730 D2=D2+1:K2=7:1F FNM(D2+DE)< 
>1 THEN 730 

740 IF D2<32 THEN ME*3 ELSE D2* 
D2-31:ME=4 

750 DE=D2:MO=MS:DA=DS 

760 RETURN 

770 'VER CAL.MES 

780 REM 
790 GOSUB 
800 CLS 
810 PRINT"SETAS UP/DOWN ALTERAM 
MES” 

820 PRINT"USE clear PARA VOLTAR 
AO MENU” 

830 PRINT:PRINT CHR$(159);TYS(0 
)i" (8) " , CHR$ (175) ; TYS (1) 

840 PRINT:PRINT CHR$(191) ;TYS(2 
) ,CHRS (207) ;TY3 (3) 

850 PRINT:PRINT"QUALQUER TECLA 
PARA CONTINUAR” 

855 IF INKEYS-"" THEN 855 


2750:GOSUB 2720 











860 MK=5 
870 REM 

880 CLS 

890 GOSUB 2820:IF MK<4 THEN PRI 
NT 619, TYS(MK) 

900 PRINT 4-P:KB=1:GOSUB 2150 
910 IF P=2 THEN PRINT 4-P 

920 PRINT4-P:T2=MK:S2=1:GOSUB 2 
240 
930 P=0 

=" ""+CHR$ (10) +" SECF"+CHR 
OSUB 1590:A=KB 

950 IF A=1 THEN MO=MO-1 

960 IF A=2 THEN MO=MO+1 

970 IF MO=13 THEN MO=1:YR=YR+1: 
GOSUB 650 

980 IF MO=0 THEN MO*12:YR*YR-1: 
GOSUB 650 

990 IF A>2 AND A<7 THEN MK=A-3 
1000 IF A<3 THEN MK=5 

1010 IF A<>7 THEN 870 

1020 RETURN 

1030 'RETORNO AO MENU 

1040 PRINT " PROGRAMA CALENDAR 
10 £ DIARIO *;STRING$(32,131) 
1050 PRINT TAB(13);"menu" 

1070 PRINT"1- CONSULTAR CALENDA 
RIO MENSAL” 
1080 PRINT"2- 
RIO ANUAL" 
1090 PRINT"3- 
1100 PRINT"4- 
NCAS" 

1110 PRINT"5- 
NTROS" 

1120 PRINT"6- REVER/EDITAR СЕГЕ 
BRACOES" 

1130 PRINT"7- 
ADOS" 

1140 PRINT"8- GRAVAR AS LISTAS" 
1150 PRINT"9- SAIR DO PROGRAMA” 
1160 PRINT:PRINT TAB(9);"FACA À 
OPCAO" 

1170 KB$="123456789":GOSUB 1590 
:C=KB; RETURN 


nau 


10 CLS:COLOR 15,4,4:KEYOFF 

12 CLEAR 7000:MAXFILES=3 

15 OPEN "CRT:" FOR OUTPUT AS 43 
20 OPEN "LPT:" FOR OUTPUT AS 42 
30 DIM LI$(3,150),7Y$(3),CO(4) 
40 DM$="31283130313031313031303 





CONSULTAR CALENDA 


CONSULTAR DIARIO" 
REVER/EDITAR FINA 


REVER/EDITAR ENCO 


REVER/EDITAR FERI 


50 MNS="JANEIRO FEVEREIROMARCO 
ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 


BRO NOVEMBRO DEZEMBRO ":' O nu 
mero de 


paços deve completar 








B0 TY$(0)*"Finan 
contros”:TY$(2)="Celebracdes” :T 
Y9(3)="Feriados” 

90 DEF FNM(A) *INT( (A/K2-INT (A/K 
2)) *K2*.5) *S8GN (A/K2) 

100 SV-0:P-0:MO-0:DA*0 

110 LOCATE 1,5:PRINT"Voc8 tem 1 
istas de dados? (S/N)"; 








120 REM 

130 CLS:GOSUB 1030:CLS:P=3 

140 IF C=1 THEN GOSUB 770 

150 IF C=2 THEN GOSUB 2010 

160 IF C=3 THEN GOSUB 2460 

170 IF C>3 AND С<8 THEN KB=C-4: 
GOSUB 1180:8V=1 

180 IF C=8 THEN GOSUB 1730:SV=0 
190 IF C=9 AND SV=1 THEN PRINT: 
PRINT"Você não gravou as ulti 
s alterações!”:PRINT"Confirma a 
saída? (S/N)”;:KB$="SN”:GOSUB 
1590:IF KB=2 THEN C=0 

200 IF C<>9 THEN 120 

210 CLS:CLOSE:PRINT"Até logo... 





220 END 

230 ' Tamanho do 
240 MX=0:A2=0 
250 K2-4:1F FNM(YR)*0 THEN А2-1 
260 K2=100:IF FNM(YR)=0 THEN A2 
-0 
270 
"1 
280 IF KB=2 THEN MX=AZ+28 

290 IF KB<>2 THEN MX=VAL (MIDS (D 
MS,KB*2-1,2)) 

300 KB=MX: RETURN 

310 ' Marcar dia de compromisso 
320 AJS="":N3=0:F3= 3=0 

330 IF P=2 THEN RS=32:GOTO 460 
340 IF KB=5 AND MO=ME AND DA=DE 
2:GOTO 460 





K2=400:1F FNM(YR)=0 THEN AZ 








350 IF KB=5 THEN R8=32:GOTO 460- 
360 M3=VAL (LIS(KB,0)) 

370 REM 

380 N3=N3+1 

390 AJS=LIS(KB,N3) 

400 IF MID$(A3$,2,1)*"" THEN Du 
0 ELSE D*ASC(MID$(A3$,2,1)) 

410 IF D<>DA THEN 430 

420 KB3=A33:G08UB 470:F3=K2 
430 IF NOT (F3=1 OR N3>M3) THEN 
370 

440 IF F3=0 THEN RS=32:GOTO 460 
450 RS-62 

460 KB=RS:RETURN 

470 ' Procura por ítem em més 
480 T4=0:Y4=0:F4=0 

490 T SC (MIDS (KB$,1,1)) 

500 Y4=ASC (MIDS (KB$,3,1)) 

510 M4-(Y4 AND 15) 

520 Y4=(FIX(Y4/16)+17) *100+ASC( 
MID$ (KB$,4,1)) 

530 IF Y4>YR THEN K2=0:RETURN 
540 K2=3:1F (T4=1 AND MO>="M4) O 
R (T4=2 AND FNM(M4-M0)=0) OR (T 
4=3 AND Má=MO) OR (T4-4 AND M4* 
MO AND Y4=YR) THEN F4=1 

550 K2=F4:RETURN 

560 ' Det numero do dia 

570 YX=0:D2=0:M2=0 

580 Y2-YR-1 

590 D2-Y2*365*FIX(Y2/4) -FIX(Y2/ 
100) *FIX(Y2/400) 

600 IF MO-1 THEN 640 








610 FOR M2=1 TO MO-1 

620 KB=M2:GOSUB 230:D2=D2+KB 
630 NEXT 

640 KB=D2+DA: RETURN 

650 ' Encontrar o dia de Páscoa 
660 N2=0:C2=0:D2=0 

670 MS=MO:DS=DA 

680 DA=1:MO=3:GOSUB 560:K2=7:DE 
=FNM(KB) 

690 N2=FIX(YR/100)-16:C2=3+N2-F 
IX((N2*1)/3) -FIX(N2/4) 

700 K2=19:N2=FNM(YR+1) :K2=30:D2 
=FNM(C2+(N2*19)) 

710 IF N2>11 AND D2<27 THEN D2= 
D2-1 ELSE IF N2<=11 AND D2=29 T 
HEN D2=28 

720 D2-D2*21 

730 D2=D2+1:K2=7:1F FNM(D2+DE)< 














>1 THEN 730 

740 IF D2<32 THEN ME=3 ELSE D2= 
D2-31:ME=4 

750 DE*D2:MO*MS:DA*DS 

760 RETURN 

770 ' Consulta calend mensal 
780 REM 

790 GOSUB 2750:G0SUB 2720:MK=5 
800 CLS:LOCATE 0,20 

810 PRINT"<- e -> mudam o mês * 
i 

820 PRINT"<esc> volta ao menu”; 
830 PRINT*$:";TY$(0) ,"E: 

) 

840 PRINT"C:";TY$(2) ,"F 

) 

850 LOCATE 0,0 

860 REM 

870 REM 

880 REM 

890 GOSUB 2820:IF MK<4 THEN LOC 
ATE 3,2:PRINTTYS (MK) 

895 REMIF P=2 THEN LPRINT 

900 PRINT4P, :KB=1:GOSUB 2150 
910 IF P=2 THEN LPRINT 

920 PRINT4P,:T2=MK:92=1:GOSUB 2 
240 

930 P=3 

940 KB$=CHR$ (29) +CHRS (28) +" SECF 


"+CHRS (27) :GOSUB 1590:A=KB 

950 IF A=1 THEN MO=MO-1 

960 IF A=2 THEN MO=MO+1 

970 IF MO=13 THEN MO=1:YR=YR+1: 
GOSUB 650 

980 IF MO=0 THEN MO=12:YR=YR-1: 
GOSUB 650 

990 IF A>2 AND A<7 THEN MK=A-3 
1000 IF A<3 THEN MK=5 

1010 IF A<>7 THEN 800 

1020 RETURN 

1030 * Menu devolve escolha em 
KB 

1040 LOCATE10,0:PRINT”CALENDARI 
O E DIARIO" 

1050 PRINT:PRINTTAB (16) ¡"Menu 
1060 PRINT 

1070 PRINT"1- Consultar calendá 
rio mensal” 

1080 PRINT:PRINT"2- Consultar c 
alendário anual" 

1090 PRINT:PRINT"3- Consultar d 
iário" 

1100 PRINT:PRINT"4- Rever/edita 
r finanças” 


1110 PRINT:PRINT^5- Rever/edita 
r encontros" 

1120 PRINT:PRINT"6- 
r celebrações” 

1130 PRINT:PRINT"7- 
r feriados 

1140 PRINT:PRINT"8- 
istas" 

1150 PRINT:PRINT"9- 


Rever/edita 
Rever/edita 
Gravar as 1 
Fim de prog 


rama” 

1160 PRINT:PRINTTAB(9) ;"Escolha 
1170 KB$*"123456789":GOSUB 1590 
:C=KB:RETURN 


(4! 


10 НОМЕ 
30 DIM LI8(3,150),TY8(3),CO(4) 


40 DM$ = "312831303130313130313 

031" 

50 MNS = "JANEIRO FEVEREIROMAR 

co ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OU 

TUBRO NOVEMBRO DEZEMBRO ” 

60 DN$ * "DOMSEGTERQUAQUISEXSAB 


70 PAS * "MENSALTRIMESANUAL UNI 
CO ":D$ = CHRS (13) * CHRS (4 


) 

80 TYS(0) = "FINANCAS":TYS(1) * 
"ENCONTROS":TYS(2) * "CELEBRAC 

OES":TY$(3) * "FERIADOS" 

90 DEF FN M(A) * INT ((A/ K 

2- INT (A/ K2)) * K2 * .5) * 
SGN (A / K2) 

100 SV = 0:P = O:MO = O:DA - 0 

110 VTAB 8: PRINT "VOCE TEM LI 

STAS DE DADOS? (S/N) *; 

120 REM 


HOME : GOSUB 1030: HOME :P^ 


= 1 THEN GOSUB 770 
= 2 THEN GOSUB 2010 
>= 3 THEN GOSUB 2460 
IF C > 3 AND C < 8 THEN KB 
- 4: GOSUB I180:8V = 1 

180 IF C * 8 THEN GOSUB 1730: 
su = 0 

190 IF C = 9 AND 8V = 1 THEN 
PRINT : PRINT "VOCE NAO GRAVOU 
AS ALTERACOES!”: PRINT "CONFIRM 
A A SAIDA? (S/N)":KBS = "SN": G 
OSUB 1590: IF KB = 2 THEN C = 0 


IF C 
IF C 
IF C 


200 
210 


IF C < > 9 THEN 120 
HOME : PRINT "ATE LOGO...” 


220 
230 


END 

REM DURACAO DO MES 

240 МХ = 0:А2 = 0 

250 K2 = 4: IF FN M(YR) = 0 TH 
ЕМ А2 = 1 

260 K2 = 100: IF FN M(YR) = 0 
THEN AZ = O 

270 K2 = 400: IF FN M(YR) * 0 
THEN A2 * 1 

280 ІР КВ = 2 ТНЕМ МХ = А2 + 2 
8 
290 
L ( 
'300 
310 


ІР КВ < > 2 THEN MX = VA 
MIDS (DM$,KB * 2 - 1,2)) 

KB = MX: RETURN 

REM CARACTER MARCADOR 


320 А38 = "":М3 = 0:Р3 = 0:М3 = 
0 

330 IF P - 2 THEN RS * 32: GOT 
о 460 


340 IF KB = 5 AND MO = ME AND 
DA = DE THEN RS = 42: GOTO 460 
350 IF KB * 5 THEN RS * 32: GO 
TO 460 







































360 M3 = 
370 REM 
380 N3 = N3 + 1 

390 A3$ = LI$(KB,N3) 
400 IF MIDS (A35,2,1) 
EN D= 0 

405 IF MIDS (A33,2,1) < > ""” 
THEN D = ASC ( MIDS (A35,2,1) 





VAL (LIS(KB,0)) 


= "=" TH 


) 

410 IF (D < > DA) THEN 430 
420 KB$ * A3$: GOSUB 470:F3 = K 
2 


430 IF NOT (F3 = 1 OR N3 > M3 
) THEN 370 


440 IF F3 = O THEN RS = 32: GO 
TO 460 

450 RS = 62 

460 KB = RS: RETURN 

470 REM VERIFICA ITEM EM MES 
480 74 - 0:Ү4 - 0:Ғ4 - 0 

490 T4 = ASC ( MIDS (KBS,1,1)) 
500 Y4 = ASC ( MIDS (KB3,3,1)) 
sy.” YA 


510 Y4 = ( INT ( ABS (Y4 / 16)) 
* 17) * 100 * ASC ( MID$ (KB$ 


,4,1)) 

520 M4 = T - (( INT (Y4 / 100) 
17) W 16) 

530 IF Y4 > YR THEN K2 = 0: RE 
TURN 

540 K2 * 3: IF (T4 = 1 AND ((Y4 


< YR) OR (MO > = М4 АМО Ү4 = 
YR))) OR (T4 = 2 AND FN M(M4 - 
MO) = 0) OR (T4 = 3 AND M4 = M 
0) OR (T4 = 4 AND M4 = MO AND Y 


4 = YR) THEN F4 = 1 

550 K2 = F4: RETURN E 
560 REM NUMERO DO DIA 

570 ҮХ = 0:D2 = 0:M2 = 0 

580 Y2 = YR - 1 

590 D2 = Y2 * 365 + INT ( ABS 
(Y2 / 4)) - INT ( ABS (Y2 / 10 
0)) * INT ( ABS (Y2 / 400)) 
600 IF MO = 1 THEN 640 

610 FOR M2 = 1 TO MO - 1 

620 KB = M2: GOSUB 230:D2 = D2 
+ KB 

630 NEXT 


640 KB = D2 + DA: RETURN 

650 REM DATA DA PASCOA 

660 N2 = 0:C2 = 0:D2 = 0 

670 MS = MO:DS = DA 

680 DA = 1:MO = 3: GOSUB 560:K2 
= 7:DE = FN M(KB) 

690 N2 = INT ( ABS (YR / 100)) 
- 16:C2 - 3 * N2 - INT ( ABS 
((N2 * 1) / 3)) - INT ( ABS (N 
2/4) 

700 K2 = 19:N2 = FN М(ҮВ + 1): 
K2 - 30:D2 * FN M(C2 * (N2 * 1 
9) 

710 IF N2 > 11 AND D2 < 27 THE 
N D2 = D2 - 1: GOTO 720 

715 IF N2 € = 11 AND 02 = 29 
THEN D2 = 28 

720 D2 = D2 + 21 

730 D2 = D2 + 1:K2 = 7: IF FN 
M(D2 + DE) < > 1 THEN 730 

740 IF D2 < 32 THEN ME = 3: GO 
TO 750 

745 D2 = D2 - 31:ME = 4 





750 DE = D2:MO = MS:DA = DS 
760 RETURN 

770 REM CALENDARIO MENSAL 
780 REM 

790 GOSUB 2750: GOSUB 2720:MK 
= 5 

800 НОМЕ 
810 ЧТАВ 21: 
А О МЕЗ = 


PRINT "<- ->: MUD 


820 PRINT "<ESC> = MENU” 

830 PRINT "S:"TYS(0),"E:"TYS(1 

) 

840 PRINT "C:"TYS(2),"F:"TYS(3 

9% 

850 ВЕМ 

855 ВЕМ 

870 ВЕМ 

880 PRINT D$;"PR4";P: VTAB 1: 

HTAB 1 

890 GOSUB 2820: IF MK < 4 THEN 
HTAB 20: UTAB 1: PRINT TYS(MK 

) 

900 PRINT : PRINT :KB = 1: GOS 

UB 2150 

910 IF P = 1 THEN PRINT 

920 PRINT :T2 = МК:52 = 1: GOS 

UB 2240 

930 P = 0: PRINT DS;"PR4”;P 

940 KBS = CHR$ (8) + CHRS (21 


) + "SECF” + CHRS (27): GOSUB 
=- KB 





950 IF A= 1 THEN MO = MO - 1 
960 IF A= 2 THEN MO = MO + 1 
970 IF MO = 13 THEN MO = 1:YR 
= YR + 1: GOSUB 650 

980 IF MO = O THEN MO = 12:YR 
= YR - 1: GOSUB 650 

990 IFA > 2 АМ А < 7 THEN MK 
"A-3 

1000 IF A € 3 THEN MK * 5 

1010 IF A < > 7 THEN 800 

1020 RETURN 

1030 REM MENU DEVOLVE ESCOLHA 
EM KB 

1040 INVERSE : PRINT ТАВ( 4)" 


PROGRAMA DE CALENDARIO E DIARIO 
^: NORMAL 


1050 PRINT : PRINT TAB( 18)"M 
ENU" 
1060 PRINT 


1070 PRINT TAB( 8);"1:-VER СА 
LENDARIO MENSAL" 

1080 PRINT : PRINT TAB( 8);"2 
:-VER CALENDARIO ANUAL” 

1090 PRINT : PRINT TAB( 8);^3 
:-VER DIARIO” 

1100 PRINT : PRINT TAB( 8);"4 
:-REVER/EDITAR FINANCAS" 

1110 PRINT : PRINT TAB( 8);"5 
:-REVER/EDITAR ENCONTROS" 

1120 PRINT : PRINT TAB( 8);"6 
:-REVER/EDITAR CELEBRACOES" 
1130 PRINT : PRINT TAB( 8);"7 
:-REVER/EDITAR FERIADOS" 

1140 PRINT : PRINT TAB( 8);"8 
:-GRAVAR AS LISTAS" 
1150 PRINT : PRINT 
:-SAIR DO PROGRAMA" 
1160 PRINT : PRINT : 
B( 15)"ESCOLHA ^"; 
1170 KB$ = "123456789": GOSUB 1 
590:C = KB: RETURN 


TAB( 8);^9 


PRINT ТА 








COMO CALCULAR DATAS 
EM UM PROGRAMA DE CALENDÁRIO 


Um problema sério de programacáo, 
para quem deseja desenvolver aplica- 
cóes que envolvem cálculos de datas 
ou a determinação das funções de um 
calendário universal, é a realização des- 
ses cálculos em BASIC ou outra lingua- 
gem de alto nível, 

Há várias soluções para o problema 
— umas mais fáceis e intuitivas e ou- 
tras mais difíceis, mas que utilizam al- 
goritmos (''truques'"' matemáticos de 
cálculo) bem compactos. Desenvolvi- 
do o procedimento para todos os tipos 
de cálculo, organize-os na forma de 
sub-rotinas, que poderáo ser usadas 
em diversos programas. 

Esse assunto será tratado em um ar- 
tigo especial, mas adiantamos aqui al- 
gumas consideragóes importantes: 


* Teste de datas 

Tenha sempre o cuidado de testar 
a data fornecida pelo usuário, que de- 
verá ser entrada no formato numérico 
(no Brasil, DD/MM/AAAA) 

Verifique se o número do més cai 
entre 01 e 12 e se o dia do més cai en- 
tre 1 ео número de dias no més (28, 
29, 30 ou 31). Pode-se armazenar o 
número de dias para cada més em um 
conjunto de doze elementos. 

Teste, também, se o ano é bissex- 
to. Para isso, basta verificar se ele é di- 
visível exatamente por 4, 

A maneira de testar o ano varia com 
a aplicação. Se se pede ao usuário a da- 
ta atual, por exemplo, pode-se incluir 
na rotina um teste que indique se ela 
é ou não anterior à data de criação do 
programa! 


* Tipos de data 

O tipo de data que utilizamos 
(DD/MM/AA), chamado de data grego- 
riana, é muito inconveniente para en- 
trada em computador e para cálculos 
de diferenças de datas. Para colocá-las 
em ordem crescente é preciso alterar 
a ordem dos seus três elementos: o al- 
goritmo de ordenação deve testá-las 
como AAMMDD. 

Existem outros tipos de data, mais 
racionais. A data ordinal, por exemplo, 
torna bem mais fácil calcular diferen- 
cas entre datas. É expressa numa for- 
ma como esta: 123/1986 — ou seja, 
dia n? 123 (desde 1? de janeiro) do ano 
de 1986. A data fiscal, por sua vez, le- 
va em consideragáo o número do dia 
da semana e o número da semana 
(3/25/1986 é a terça-feira da 25º se- 
mana de 1986). 
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UMA АСЕМ 
ELETRÔNICA (2) 


A 











COMO USAR O PROGRAMA 
п CONSULTE O CALENDARIO 
CONSULTE A AGENDA 
HE DIGITAÇÃO DOS PRIMEIROS DADOS 
VERIFIQUE AS LISTAS 














Festividades, aniversários, encontros, 
reuniões... Você costuma esquecer-se 
dos compromissos? Anime-se: com 
a agenda e o calendário eletrônicos 
você nunca mais passará vergonha. 


Carregado na memória o programa 
da lição anterior, digite as linhas aqui 
apresentadas. O computador pergunta- 
rá se alguma lista de dados já foi grava- 
da. Como isso ainda não aconteceu, res- 
ponda N. O programa mostrará então 
o menu principal com nove opções: 


- Consultar o calendário mensal 
. Consultar o calendário anual 
. Consultar a agenda 

. Rever/editar finanças 

. Rever/editar encontros 

. Rever/editar celebrações 

. Rever/editar feriados 

. Gravar as listas 

. Sair do programa 


ооо атл ьо 


Pode-se consultar o calendário sem 
digitar nenhum dado previamente. Va- 
mos começar por ele. 


TE O CALENDARIO 


Escolha a opção 1 e será possível ver 
o calendário de qualquer mês dentro dos 
limites do programa. A lista de meses é, 
na realidade, bastante grande. Ela vai 
de 1753, quando o calendário gregoria- 
no foi adotado na Grã-Bretanha, até 
29999. O mês deve ser sempre escolhi- 
do pelo número (de 1 a 12) e não pelo 
nome. 

Se você dispuser de uma impressora, 
pode optar por trabalhar com uma có- 
pia impressa do calendário. Caso con- 
trário, ele será apresentado apenas na te- 
la. O nome do més, bem como o ano, 
é mostrado no topo da tela, com os dias 
logo abaixo. A semana comeca com o 
domingo, que é colocado na cor verme- 
lha em alguns computadores. A data da 
Páscoa será calculada automaticamen- 
te e mostrada no rodapé, se cair no mês 
escolhido (março ou abril). 

Muitas coisas podem ser feitas duran- 


te a consulta ao calendário mensal. A 
lista de opções aparece no rodapé da tela 
ou na página anterior, conforme o mi- 
cro. Teclar <BREAK >, <ESCAPE > 
ou <CLEAR> levará você de volta ao 
menu principal. Outras teclas permitem- 
lhe avançar ou retroceder de mês em 
mês. O Spectrum usa as teclas Z e X; 
o TRS-Color, as setas para cima e para 
baixo; e o Apple e o MSX, as setas pa- 
ra a esquerda e para a direita. 

As outras teclas com funções no pro- 
grama são as seguintes: $, que serve pa- 
ra destacar dados referentes a finanças; 
E, utilizada para encontros; C, para ce- 
lebrações, e F, para feriados. Mas nada 
acontecerá até que alguns dados sejam 
introduzidos no computador. 





A opção 3 leva-o para a agenda. Mas, 
antes, é necessário entrar alguns dados. 


Assim, escolha a opção adequada a par- 
tir do menu principal. 

Qualquer que seja a opção, tecle A 
para adicionar um dado, D para apagar 
e M para retornar ao menu. 

Como já foi descrito, a seção de fi- 
nanças oferece as opções Mensal, Tri- 
mestral, Anual ou entrada única. Faça 
a opção teclando a letra inicial corres- 
pondente (M, T, A ou U). Em seguida, 
0 programa pede que vocé entre um no- 
me ou frase com um máximo de vinte 
letras, e que descreva o evento com sua 
respectiva data. 

Para um dado recorrente, esta seria 
a primeira vez que ele acontece (o pri- 
meiro aluguel pago, por exemplo). O 
programa completa automaticamente os 
meses seguintes com os dados adequa- 
dos. Apontamentos e feriados sào tra- 














































tados como eventos únicos, e celebra- 
ções, como eventos anuais. Use esta op- 
ção para comemorações como aniversá- 
rios de nascimento e de casamento etc. 

Pode-se executar até 150 entradas em 
cada categoria. 

Mas, para fazer tudo isso, será pre- 
ciso esperar as rotinas do próximo arti- 
go. Esse artigo apresentará também a 
parte final do programa, que permitirá 
gravar, carregar e imprimir dados, con- 
cluindo o processamento. 


165 GOSUB 1480: 
GOSUB 1690 

1120 PAPER O: INK 7 

1130 LET K$-2"123456789": 

1480: LET C=KB: RETURN 

1140 LET KK=KB 

1150 LET KB=KK: GOSUB 1330 

1160 LET B=Q(KK): FOR y=4 TO 20 
PRINT АТ y,0;25: NEXT y: PRIN 

T AT 4,0 

1170 IF B=0 THEN GOTO 1210 

1180 FOR N=1 TO B 

1190 LET KS=LS(KK,N): 
GOSUB 1370 

1200 NEXT N 

1210 LET K$="adm": 

LET A=KB 

1220 FOR 1=1 TO 100: NEXT I 

1230 IF A<K>1 THEN GOTO 1280 


IF KB=1 THEN 


GOSUB 


LET K2 





GOSUB 1480: 


1240 LET K2=B: LET T7=KK: GOSUB 
1550: LET V$-STR$ T7: GOSUB 14 
00 


1250 LET W$=STRS DA: 
1 ТНЕМ LET W$="0"+W$ 


IF LEN W$= 
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1410 INPUT "Qual o nome ? (Max 
22 letras)”' LINE BS 

1420 LET UP-VP-1 

1430 PRINT AT VP,0;""; 

1440 INPUT "DATA SIGNIFICATIVA 
:";DA: IF DAX1 OR DA>31 THEN G 
OTO 1430 

1450 GOSUB 2510 


1460 LET KB=MO: GOSUB 270: IF D 
A>KB THEN GOTO 1430 
1470 LET K$=BS: GOSUB 1520: LET 


Y$-K$: RETURN 
1480 LET a$-INKEY$: 
EN GOTO 1480 

1490 FOR n*1 TO LEN K$: 
K$(n) THEN NEXT n 
1500 IF n>LEN K$ THEN GOTO 148 
0 

1510 LET KB=n: RETURN 

1520 LET PP=(INT (YR/100)-17)*1 
6+мо 

1530 LET K2=100: 
) 

1540 LET K$*CHR$ PP*CHR$ QQ*K$: 
RETURN 

1550 IF T7<>1 THEN GOTO 1580 


IF a$-"" TH 


IF as<> 


LET QQ*FN M(YR 













1560 PRINT AT 20,0; INVERSE 1;" 
M"; INVERSE 0;"ENSAL "; INUERSE 
];"T"; INVERSE 0;"RIMESTRAL "; 
INVERSE 1;"A"; INVERSE 0;"NUAL 
"; INVERSE 1;"U"; INVERSE 0;"N 
Ico” 

1570 LET K$-"mtau": GOSUB 1480: 
PRINT AT 20,0;Z$: PRINT AT 3,0 
LET T7=KB: GOTO 1600 

1580 IF T7-3 THEN RETURN 

1590 LET T7-4 

1600 RETURN 

1610 CLS : PRINT FLASH 1;AT 10 
,5;"PREPARE O GRAVADOR” 
1620 IF INKEY$<>"” THEN 
620 

1630 SAVE "dados" 
1640 FOR N=1 TO 4 
1650 IF Q(N)=0 THEN GOTO 1670 








GOTO 1 


DATA Q() 


1660 FOR M=1 TO Q(N): LET 05(1) 
=LS(N,M): SAVE "dados” DATA OS( 
): NEXT M 


1670 NEXT N 
1680 RETURN 


1690 CLS : PRINT AT 10,5; FLASH 
1;”PREPARE O GRAVADOR” 

1700 LOAD "dados" DATA Q() 

1710 FOR N=1 TO 4 

1720 IF Q(N)=0 THEN GOTO 1740 
1730 FOR M=1 TO Q(N): LOAD "dad 


os” DATA O$(): LET L$(N,M)*0$(1 





















1260 LET US=US+WS: LET WS=STRS 
MO: IF LEN W$-1 THEN LET W3= 









"0 "*W$ 






















1270 LET VS=VS+WS+STRS YR: 
LET LS(KK,B+1)=V$+B$: LET Q 
(KK)=Q (K К) +1 

1280 IF A<>2 THEN GOTO 1310 
1290 INPUT "APAGAR QUAL 
NUMERO (MIN 1)";NN: TF NN<1 
OR NN>B THEN GOTO 1290 

1300 FOR IN+1 TO B: LET 
LS(KK ,Z-1)=LS(KK,Z NEXT 





1 
GOTO 1160 


Z: LET Q(K K)=Q(KK) 
1310 IF A<>3 THEN 












































1320 RETURN 

1330 PRINT "Lista de Dados” 
'T$( KB) 

1340 PRINT AT 0,17: INVER 
SE 1;" S"; INVERSE 0;"OMAR 
"i INVERSE 1;"A"; INVERS) 
0;"PAGAR "; INVERSE l;"M 
INVERSE 0;"ENU" 

1350 PRINT AT 3,0; 

1360 RETURN 


1370 LET F$-LS(KK,K2): 
LET ES-P S(VAL FS( TO 1)) 
*""«F$(2 TO 3)+ ":"+FS(4 
TO 5)+":"+FS(6 TO 9) 
1380 PRINT E$;” ";FS(10 
TO 30) 

1390 RETURN 


1400 LET BS="": LET UP=5 








































): NEXT M 
1740 NEXT N 
1750 RETURN 


115 KB$-"SN":GOSUB 1590:IF KB=1 
GOSUB 1870 

1180 REM 

1190 N=0:A=0:B=0:KK=KB 

1200 KB=KK:GOSUB 1330 

1210 REM 

1220 FOR VU=1 TO 14:PRINT €YU*3 
2:NEXT:PRINT 832,""; 

1230 B=VAL (LIS(KK,0)) 

1240 IF B-0 THEN 1280 

1250 FOR N=1 TO B 

1260 KB$=LIS(KK,N) :K2=N:GOSUB 1 
410 
1270 NEXT 

1280 KB$-"ADM":GOSUB 1590:А=КВ 
1290 IF A-1 THEN T7-KK:GOSUB 16 
BO:GOSUB 1490:LIS(KK,B+1) =CHRS( 
T7)+T8S:LIS(KK,0) =MIDS (STRS (B+1 
),2) 

1300 IF A-2 THEN INPUT"QUE NUME 
RO";NN:IF NNX1 OR NN>B THEN 130 
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0 ELSE FOR PP-NN*1 TO B:LIS(KK, 
PP-1)=LIS(KK,PP) :NEXT:LIS(KK,0) 
*STR$ (B-1) 

1310 IF A<>3 THEN 1210 

1320 RETURN 

1330 REM 

1340 PRINT TYS(KB),"LISTA CORRE 
NTE" 
1350 
1360 


FOR Y=2 TO 14 

PRINT €Y*32 

1370 NEXT 

1380 PRINT €480,"aDICIONAR dELE 
TAR MENU”; 

1390 PRINT e32,""; 

1400 RETURN 

1410 "ОР 

1420 N2-0:BB$-"":DD$-"":K3-K2 
1430 FOR N2-1 TO 4:IF MIDS(KBS, 
N2,1)="" THEN CO(N2)-0 ELSE CO( 
N2) =ASC (MIDS (KBS,N2,1)) 

1440 NEXT 

1450 BB$=MIDS (PAS,CO(1)*4-3,4) 
1460 K2=16:DDS=MIDS (STRS$ (CO (2) ) 
+2)+":"+MIDS (STRS (FNM(CO(3))),2 
)+" :"+MIDS (STRS ((FIX(CO(3)/16)+ 
17)*100+C0(4)),2) 

1470 PRINT MIDS(STRS(K3),2);" " 
¡BBS;” ";DD$;" ";RIGHTS(KBS,LEN 
(KB$) -4) 





1480 
1490 


RETURN 
"ADICIONAR UMA ENTRADA 
1500 :VP=0 
1510 SER CHAMADO? (MAX 
22 LETRAS)":LINE INPUT B3$ 
1520 VP-INT((PEEK (136) *256*PEEK 
(137) -1024) /32) 
1530 PRINT 8UP*32,""; 
1540 PRINT"DATA SIGNIFICATIVA 
>" 
1550 INPUT” DIA:";DA:IF DA<1 
OR DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB=MO:GOSUB 230: IF DA>KB 
THEN 1530 
1580 КВ8-В35:605/В 1630:785 
=KBS :RETURN 
1590 REM 
1600 BS=INKEYS:IF B$="" 
THEN 1600 
1610 KB=INSTR(1,KBS,BS): 
IF КВ=0 THEN 1600 
1620 RETURN 
1630 REM 
1640 РР=0:00=0 
1650 PP=(FIX(YR/100)-17) 
*16*MO 
1660 K2-100:QQ-FNM(YR) 
1670 KB$=CHRS (DA) +CHRS ( 
PP)+CHRS (QQ)+LEFTS (KBS 


,22) : RETURN 

1680 REM 

1690 IF T7-0 THEN PRINT 
TRIMESTRAL, ANU 


"MENSAL, 





1700 IF T7-2 THEN T7=3: 
GOTO 1720 

1710 77-4 

1720 RETURN 

1730 REM 

1740 N=0:P=0 

1750 OPEN"O" 4-1,"DIARIO" 
FOR N=0 TO 3 

M-VAL (LIS (N,0)) 

PRINT $-1,LIS(N,0) 

IF M=0 THEN 1840 

1800 FOR P=1 TO M 

1810 FOR J=1 TO 4:PRINT4-1,STRS 
(ASC (MIDS (LIS(N,P),J,1))):NEXTJ 
1820 PRINT 4-1,MIDS(LIS(N,P),5) 
1830 NEXT P 

1840 NEXT N 

1850 CLOSE 4-1 

1860 RETURN 

1870 REM 

1880 М-0:Р-0:М-0 

1890 OPEN"I" 1,”DIARIO” 

1900 FOR N=0 TO 3 

1910 LINE INPUT 4-1,LIS(N,0) 
1920 M=VAL (LIS(N,0)) 

1930 IF M-0 THEN 1980 

1940 FOR P-1 TO 

1950 FOR J=1 TO 4: INPUT4-1,NNS: 
LIS(N,P)=LIS(N,P)+CHRS (VAL (NNS) 
):NEXT J 

1960 LINE INPUT 4-1,NNS:LIS(N,P 
) =LIS(N,P) +NNS 

1970 NEXT 

1980 NEXT 

1990 CLOSE 4-1 

2000 RETURN 


1760 
1770 
3780 
1790 











2010 'CAL.ANUAL 

2020 M4=0:A4=0 

2030 INPUT"ANO:”;YR:IF YR<1753 
OR YR>29999 THEN 2030 ELSE GOSU 
B 650 

2040 GOSUB 2720:CLS 

2050 PRINT"ANO ";YR 

2060 IF P=2 THEN PRINT %-2,"АМО 
"ҘҮВ 

2070 PRINT 4-P:KB=0:GOSUB 2150: 
PRINT#-P 

2080 GOSUB 2660 

2090 FOR MO=1 TO 12 

2100 PRINT 4-P,MIDS (MNS,MO*9-8, 
9) 
2110 
2120 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


T2=5:52=0:GOSUB 2240 
IF P=0 AND INKEYS="" THEN 


NEXT 

RETURN 

REM 

X2=0:C2=0:D2=0 

IF KB=0 THEN X2=7 

IF P=2 THEN KB=KB+1 
PRINT 4-P, STRINGS (X2,32); 
2200 FOR D2=0 TO 6 

2210 PRINT 4-P, STRINGS (KB,” ")+ 
MIDS (DNS,D2*3+1,3); 

2220 NEXT 

2230 RETURN 


ДУ 


115 KBS$="SN"”:GOSUB 1590:1F KB=1 
THEN GOSUB 1870 

1180 ' LISTAR E ATUALIZAR 

1190 N=0:A=0:B=0:KK=KB 

1200 KB=KK:GOSUB 1330 

1210 REM 

1220 FOR VU=1 TO 21:LOCATE 0,VU 
: PRINTSPACES (38) ; : NEXT: LOCATE 0 
m 
1230 
1240 
1250 
1260 
410 
1270 


B=VAL (LIS (KK,0)) 

IF B=0 THEN 1280 

FOR N=1 TO B 
KBS=LIS(KK,N):K2=N:GOSUB 1 


NEXT 

1280 KB$*"ADM":GOSUB 1590:A*KB 
1290 IF A=1 THEN T7=KK:GOSUB 16 
80:GOSUB 1490:LIS(KK,B+1)=CHRS( 
T7) *T8$:LIS (KK, 0) *MID$ (STR$ (B*1 
),2) 

1300 IF A=2 THEN INPUT "QUAL NU 
MERO" ;NN:IF NN <1 OR NN>B THEN 
1300 ELSE FOR PP=NN+1 TO B:LIS( 
KK,PP-1)=LIS(KK,PP) :NEXT: LIS (KK 
,0) *STR$ (B-1) 

1310 IF A<>3 THEN 1210 

1320 RETURN 

1330 ' Imprime cabecalho 

1340 PRINTTYS(KB),"Listade dados" 
1350 FOR Y=2 TO 21 

1360 LOCATE 0,Y:PRINTSPACES(38); 
1370 NEXT 

1380 LOCATE 5,23:PRINT"Adiciona 
r Deletar Menu”; 

1390 LOCATE 0,1 

1400 RETURN 

1410 ' OP 

1420 N2-0:BB$-2"":DDS-"":K3*K2 
1430 FOR N2-1 TO 4:IF MIDS(KBS, 
N2,1)-"" THEN CO(N2)*0 ELSE CO( 


N2) -ASC (MIDS (KB$ ,N2, 1) ) 

1440 NEXT 

1450 BBS=MIDS (PAS,CO(1)*4-3,4) 

1460 K2=16 :DD$=MID$ (STR$ (CO (2) ) 
,2)+":"+MIDS (STRS (FNM(CO(3))),2 
)*" : "*MID$ (STR$ ( (FIX (CO (3) /16) * 
17)*100+C0(4)),2) 

1470 PRINTMIDS(STRS(K3),2):" "5 
BBS;" ";DD$;" "iRIGHT$(KBS,LEN( 
KB$) -4) 

1480 RETURN 

1490 ' Adiciona um dado 

1500 B3$="":UP=0 

1510 PRINT"Rótulo? (max 20 letr 
as)":LINEINPUT B3$ 

1520 PRINT 

1530 REM 

1540 PRINT"Data do compromisso: 





1550 INPUT" Dia:";DA:IF DAX1 OR 
DA»31 THEN 1530 

1560 GOSUB 2750 

1570 KB=MO:GOSUB 230:1F DA>KB T 
HEN 1530 

1580 KB$=B35:GOSUB 1630:T8$=KBS 
: RETURN 

1590 ' Verif teclagem de caract 
er e compara com kb$ 

1600 BS=INKEYS:1F B$="" THEN 16 
00 

1610 KB=INSTR(KBS,BS):IF KB=0 T 
HEN 1600 

1620 RETURN 

1630 ' Codifica informação 
1640 PP-0:0Q-0 

1650 PP=(FIX(YR/100)-17)*16+M0 
1660 K2=100:00=FNM(YR) 

1670 KB$=CHR$ (DA) +CHRS (PP) +CHRS 
(QQ)+LEFTS (KB$, 20) : RETURN 

1680 ' verifica tipo 

1690 IF T7=0 THEN PRINT"Mensal, 
Trimestral, Anual, Unico”:KB$= 
"MTAU”:GOSUB 1590:T7=KB:GOTO 17 
20 
1700 
0 
1710 T7=4 

1720 RETURN 

1730 ' gravar dados 
1740 N=0:P=0 

1750 OPEN "DIARIO" 
sa 
1760 
1770 
1780 
1790 


IF T7-2 THEN T7=3:GOTO 172 


FOR OUTPUT A 


FOR N=0 TO 3 

M=VAL (LIS (N,0)) 
PRINT41,LIS(N,0) 

IF M=0 THEN 1840 

1800 FOR P=1 TO M 

1810 FOR J=1 TO 4:PRINT41,STRS( 
ASC (MIDS (LIS(N,P),J,1))) :NEXT 
1820 PRINT4$1,MIDS$(LIS(N,P),5) 
1830 NEXT 

1840 NEXT 

1850 CLOSE4 

1860 RETURN 

1870 ' carregar dados 

1880 N=0:P=0:M=0 

1890 OPEN "DIARIO" FOR INPUT AS 
a 
1900 
1910 
1920 
1930 
1940 


FOR N=0 TO 3 

LINE INPUT41,LIS(N,0) 
M=VAL (LIS (N,0)) 

IF M=0 THEN 1980 

FOR P=1 TO M 


1950 FOR J=1 TO 4: INPUT41,NNS:L 
I$ (N, P) "LIS (N, P) *CHRS$ (VAL (NN$) ) 
:NEXT 

1960 LINE INPUT41,NN$:LIS(N,P)* 
LI$(N,P)*NN$ 

1970 NEXT 

1980 NEXT 

1990 CLOSE41 

2000 RETURN 

2010 ' calendário anual 

2020 М4-0:А4-0 

2030 INPUT"Ano: ";YR:IF YR«1753 
OR YR>29999 THEN 2030 ELSE GOS 
UB 650 

2040 GOSUB 2720:CLS 

2050 PRINT"Ano ";YR 

2060 IF P-2 THEN LPRINT "Ano: " 
¡YR:LPRINT 

2070 PRINT:KB=0:GOSUB 2150:PRIN 
T:IF P=2 THEN LPRINT 

2080 GOSUB 2660 

2090 FOR MO=1 TO 12 

2100 PRINTMIDS (MNS,MO*9-8,9) :1F 
P=2 THEN LPRINT MIDS (MN; 0*9- 
8,9) 
2110 
2120 
2120 
2130 МЕХТ 

2140 RETURN 

2150 ' imprime dias 

2160 X2=0:C2=0:D2=0 

2170 IF KB=0 THEN X2=7 

2180 IF P=2 THEN KB=KB+1 

2190 PRINT&P, STRINGS (X2,32); 
2200 FOR D2=0 TO 6 

2210 PRINT4P, STRINGS (KB,” ")*M 
ID$(DN$,D2*3*1,3); 

2220 NEXT 

2230 RETURN 


[é] 


115 KB$ = "SN": GOSUB 1590: 
KB = 1 THEN GOSUB 1870 

1180 REM LISTAR E ATUALIZAR 
1190 N = 0:A = 0:B = 0:KK = KB 





T2=5:82=0:GOSUB 2240 


IF P=0 AND INKEYS="" THEN 


IF 


1200 KB = KK: GOSUB 1330: POKE 
34,1: POKE 35,22 

1210 REM 

1220 HOME 

1230 B * VAL (LIS(KK,0)) 

1240 IF B = O THEN 1280 

1250 FOR N * 1 TO B 

1260 KB$ - LIS(KK,N):K2 * N: GO 
SUB 1410 

1270 NEXT 

1280 KB$ * "ADM": GOSUB 1590:A 
* KB 

1290 IF A * 1 THEN 77 = KK: GO 


SUB 1680: GOSUB 1490:LIS(KK,B * 
1) = CHR$ (T7) * T8$:LIS(KK,0 
) = STR$ (B + 1): GOTO 1310 
1300 IF À = 2 AND B > O THEN 
INPUT "QUAL NUMERO? ";NN: IF NN 
< 1 OR NN > B THEN 1300 


1305 IF A = 2 AND B > 0 THEN 
FOR PP = NN + 1 TO B:LIS(KK,PP 
- 1) = LIS(KK,PP): NEXT :LIS(KK 
,0) * STB$ (B - 1) 

1310 IF À < > 3 THEN 1210 
1320 POKE 34,0: POKE 35,24: RE 
TURN 








1330 REM CABECALHO 

1340 PRINT TYS(KB)."LISTA CORR 
ENTE" 

1350 REM 

1360 CALL - 958 

1370 REM 

1380 VTAB 23: HTAB 5: PRINT "[ 
AJDICIONAR [DJELETAR (M]ENU" 
1390 REM 

1400 RETURN 


1410 REM OP 


1420 N2 = 0:BB$ = "":DDS = "":k 


3 = K2 
1430 FOR N2 = 1 TO 4: IF MID$ 
(KB$,N2,1) = ”” THEN CO(N2) = 


0: GOTO 1440 


1435 CO(N2) = ASC ( MIDS (KBS, 


N2,1)) 

1440 NEXT 

1450 BB$ = MIDS (PAS,CO(1) * 6 
- 5,6) 

1460 K2 = 16:DDS = STR$ (CO(2) 
) + ”:” + STRS ( ЕМ M(CO(3))) 
+ ":" + STRS$ (( INT ( ABS (CO( 
3) / 16)) * SGN (CO(3) / 16) + 


17) * 100 + CO(4)) 


1470 PRINT STR$S (K3);" ";BB$; 
" ";DD$;" ”; RIGHTS (KBS, LEN ( 
KBS) - 4) 


1480 RETURN 


1490 REM ADICIONAR DADOS 
1500 B3$ - "":VP = 0 

1510 PRINT "TITULO? (MAX 22 LE 
TRAS)": INPUT B3$ 

1520 REM 

1530 PRINT 

1540 PRINT "DATA DE REFERENCIA 
2" 

1550 INPUT ” DIA:";DA: IF DA < 
1 OR DA > 31 THEN 1530 

1560 GOSUB 2750 

1570 KB = MO: GOSUB 230: IF DA 


> KB THEN 1530 

1580 KBS = B3S: GOSUB 1630:T8$ 
= KBS: RETURN 

1590 REM VERIF TECLAGEM DE CA 
БАСТ ЕМ КВҘ Е DEVOLVE POSICAO E 
M KB 

1600 GET BS:KB = 0 

1610 FOR І = 1 Т0 LEN (KBS): 
IF MIDS (KB$,1,1) = BS THEN KB 
= 1 

1615 NEXT : IF KB = 0 THEN 160 
0 


1620 RETURN 

1630 REM CODIFICAR INFORMACAO 
1640 РР = 0:00 = 0 

1650 PP = ( INT (YR / 100) - 17 
) * 16 + MO 

1660 K2 = 100:QQ = FN M(YR) 
1670 КВҘ = СНАҘ (ЮА) + CHRS ( 
PP) + CHRS (00) + LEFTS (KBS, 
22): RETURN 

1680 REM INDICA TIPO 

1690 IF T7 - 0 THEN PRINT "ME 
NSAL, TRIMESTRAL, ANUAL, UNICO" 


:KB$ = "MTAU": GOSUB 1590:T7 = 


KB: GOTO 1720 


1700 IF T7 = 2 THEN Т7 - 3: СО 
TO 1720 
1710 Т7 = 4 


1720 RETURN 
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1730 
1740 
1750 
1755 
1760 
1770 
1780 
1790 


REM GRAVAR MATRIZ 
N=0:p = 0 

PRINT D$;"OPEN DIARIO" 
PRINT DS;"WRITE DIARIO” 
FOR N = 0 TO 3 

M = VAL (LIS(N,0)) 

PRINT M 

IF M = 0 THEN 1840 

1800 FOR P = 1 TOM 

1810 FOR J = 1 TO 4: PRINT ST 
RS (ASC ( MIDS (LIS(N,P),J,1)) 
): NEXT 

1820 PRINT MIDS (LIS(N,P),5) 
1830 NEXT 

1840 NEXT 

1850 PRINT D$;"CLOSE" 

1860 RETURN 

1870 REM CARREGAR DADOS 

1880 N = 0:P = 0:M = 0 

1890 PRINT D$;"OPEN DIARIO" 
1895 PRINT D$;"READ DIARIO" 
1900 FOR N = 0 TO 3 

1910 INPUT LIS(N,0) 

1920 М = VAL (LIS(N,0)) 

1930 IF M= 0 THEN 1980 

1940 FOR P = 1 TO M 
1950 FOR J = 1 TO 4: 
:LIS(N,P) = LIS(N,P) + CHRS ( 
VAL (NNS)): NEXT 

1960 INPUT NNS:LIS(N,P) 
N,P) + NNS 

1970 NEXT 


INPUT NNS 


= LIS( 


1980 
1990 
2000 
2010 
2020 
2030 
1753 
2040 
ME 
2050 
2060 
ESS 
2070 
2080 
2090 
2100 


8,9) 


2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


2190 
2200 
2210 
$,D2 
2220 
2230 


















































NEXT 
PRINT D$;"CLOSE" 

RETURN 

REM CALENDARIO ANUAL 

М4 = 0:44 - 0 

INPUT "ANO:";YR: IF YR < 
OR YR > 29999 THEN 2030 
GOSUB 650: GOSUB 2720: HO 





PRINT "ANO ";YR 
IF P = 1 THEN PREPARAIMPR 


KB = 0: GOSUB 2150 

GOSUB 2660 

FOR MO = 1 TO 12 

PRINT MIDS (MN$,MO * 9 - 


Т2 = 5:52 = 0: GOSUB 2240 
IF P * 0 THEN GET R$ 
NEXT 

RETURN 

REM IMPRIME DIAS 

Х2 = 0:С2 = 0:02 = 0 

IF KB = O THEN X2 = 7 

IF P = 2 THEN KB = KB + 1 


PRINT SPC( X2) 

FOR D2 = 0 TO 6 

PRINT SPC( KB); MIDS (DN 
* 3 +1,3); 

NEXT 

RETURN 








Os programas elaboradores de gráfi- 
cos constituem uma das ferramentas 
mais poderosas e versáteis para Os usuá- 
rios de microcomputadores. É preciso 
notar, entretanto, que existem diversos 
tipos de programas gráficos. Os mais co- 
muns permitem tracar gráficos de aná- 
lise de dados, como histogramas, cur- 
vas, segmentos circulares (“pizzas”) 
etc., e têm muitas aplicações em educa- 
ção, ciências e negócios. 

Outro tipo de muita aceitação con- 
siste nos programas “desenhistas”, que 
fazem desenhos livremente sobre a te- 
la, usando o teclado ou um dispositivo 
de entrada gráfica ( **mouse" ou joy- 
stick) para deslocar um cursor gráfico 
sobre o vídeo. Esses programas, dis- 
poníveis para a maioria dos microcom- 
putadores, principalmente para os que 
tém boa capacidade gráfica e de impres- 
sáo em cores (Spectrum, Apple, MSX, 
IBM, PC etc.), contam com um grande 
número de recursos, tais como: figuras 
geométricas pré-programadas (círculos, 
elipses, retângulos etc.); “pincéis” de 
várias espessuras; cores para desenhar 
e pintar; dispositivos para “cortar e 
colar” (retirar uma parte de um desenho 
e colocar em outro ponto da tela) e “'ca- 
rimbar” (copiar uma parte de um de- 
senho em outro ponto da tela); recur- 
sos para escrever titulos e textos com 
letras de diversos estilos e tamanhos 
etc. Programas como esses constituem 
uma verdadeira “paleta eletrônica”, Al- 
guns deles são bem conhecidos; é o ca- 
so de Paint, Paint-Brush, Dr. Halo, 
Apple-Paint etc. 

O programa apresentado aqui perten- 
ce a essa categoria, embora seja muito 
mais simples. Ele permite a elaboração 
de letreiros e gráficos, empregando o 
conceito de cursor gráfico. Os recursos 
de programação de que ele d: 
são muito complexos, e con: 
bom aprendizado para quem quiser co- 
nhecer os “truques” básicos usados em 
programas do mesmo tipo. 


'OMANDOS SIMPLES 


A filosofia de operação do programa 
é simples: ao ser inicializado, o progra- 
ma entra em modo gráfico de baixa re- 














solução (GR) e coloca um cursor bran- 
co no canto superior esquerdo da tela. 
Ao pressionar as teclas correspondentes 
a cada comando, o usuário pode deslo- 
car o cursor sobre a tela, trocar sua cor, 
desenhar com a cor selecionada, apagar 
traços, desenhar blocos retangulares 
(preenchidos com cor) ou molduras (re- 
tângulos vazios) etc. Existem também 
comandos para escrever um texto em 
qualquer ponto da tela, em vídeo dire- 
to ou vídeo inverso. 

Compõe-se, assim, uma ilustração 
que depois pode ser fotografada direta- 
mente da tela — ou copiada —, em pre- 
to e branco, em uma impressora gráfi 
ca. Portanto, além de ser uma diversão 
para quem quer apenas exercitar os seus 
dotes criativos na pintura, o programa 
é muito bom para a produção de dispo- 
sitivos coloridos destinados a ilustrar pa- 
lestras, aulas, apresentações etc. 





O cursor pode se movido pela tela, , 


usando-se as teclas 1 | e —. Para 
mudar sua cor, pressiona-se a tecla С, 
e logo em seguida digita-se um dos nú- 
meros compreendidos entre 0 e 6 (cada 
um deles correspondendo a uma das co- 
res disponíveis). 

Para tragar uma reta com a cor do 
cursor, pressiona-se a tecla <FIRE> e 
movimenta-se o cursor na diregáo dese- 
jada. Para parar de tragar, aciona: 
<FIRE> novamente. Assim, esse si 
tema de operação serve ainda para apa- 
gar trechos de um desenho: basta sele- 
cionar a mesma cor do fundo para o 
cursor, e deslocá-lo sobre a área que de- 
ve ser apagada. No TK-2000, o joystick 
pode ser usado para movimentar O cur- 
sor e também para traçar retas, pois seu 
acionamento corresponde às teclas do 
cursor e á tecla <FIRE>. 

O programa tem oito comandos ape- 
nas (no final deste artigo vamos dar al- 
gumas ''dicas'' sobre como expandir o 
programa, adicionando outros tipos de 
comandos). Eis aqui os citados coman- 
dos, em ordem alfabética: 





B - traga uma borda na tela, na cor 
previamente indicada. 

C - muda a cor do cursor. Um nüme- 
ro de 0 a 6 será, entáo, digitado. 

F - preenche toda a tela com a cor de- 


signada pelo cursor. 


PALETA ELETRÓNICA 
PARA O TK- 2000 


A imaginacáo ao poder! Siga o lema das 
barricadas parisienses de 1968, 

e transforme seu vídeo em uma tela de 
pintura, executando o programa 

deste artigo no velho e fiel TK-2000. 


I - passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em video inverso (letras escuras 
sobre fundo claro). O cursor grá- 
fico não se desloca, permanecen- 
do na posição inicial. Pressionan- 
do-se a tecla < RETURN >, o sis- 
tema volta ao modo gráfico. 
retorna o cursor à sua posição de 
partida (canto superior esquerdo 
da tela) e limpa o video. 

traça uma moldura (retângulo va- 
zio) com a cor e posição indicadas 
pelo cursor (o canto superior es- 
auerdo do retângulo ficará posi- 
«onado na localização do cursor). 
O programa solicita o comprimen- 
toea largura do retângulo (em pi- 
xels), que devem ser digitados se- 
parados por uma vírgula. 

traça um quadro (retângulo cheio), 
com a cor e posição indicadas pe- 
lo cursor, O restante funciona co- 
mo no caso do comando M. 
passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em vídeo direto ou normal (ou 
seja, letras claras sobre fundo es- 
curo). O restante funciona do mes- 
mo modo que no comando 1. 





- 


Depois que um texto for colocado em 
algum ponto da tela, deve-se evitar pas- 
sar com o cursor sobre ele; do contrá- 
rio, ele será apagado. 


COMO FUNCIONA O PROGRAMA 


O programa é dividido em quatro 
grandes seções de processamento: 

A seção que vai da linha 50 até a li- 
nha 60 inicializa todos os parâmetros 
usados no programa e prepara ao mes- 
mo tempo a tela inicial. 

A seção que vai da linha 100 à 175 
aceita comandos através do teclado e ve- 
rifica qual foi a tecla pressionada. Se for 
um dos comandos válidos, ela modifi- 
cará os parámetros internos do progra- 
ma, ou chamará a rotina encarregada de 
executar a fungáo desejada. 

A secào que vai da linha 180 à 200 
serve para testar se os limites da tela fo- 
ram ultrapassados pelo movimento do 
cursor, e traca no vídeo um quadradi- 
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nho na cor vigente, na posigáo indica- 
da (coordenadas do cursor). 
Finalmente, as linhas 500 a 900 con- 
tém diversas sub-rotinas de trabalho, 
que explicaremos mais adiante. 
Comecemos com a primeira seção 
(não a execute ainda; caso contrário, 
ocorrerá uma mensagem de erro): 


50 
55 
56 


GR 
LET FL = 0: 
LET QX = 39: 
815 

LET RL = Y: YL = 1: 
С = 3: GOSUB 196 


COLOR * 0 
Х = 0: 
Qy = 


7-0 
39: GOSUB 


60 СІ = 0: 


A linha 50 estabelece o modo gráfi- 
со de baixa resolução (GR) bem como 
a cor inicial (preto) do cursor. A linha 
55 inicializa as variáveis FL (um indica- 
dor lógico, que mostra se o modo de de- 
senhar está “ligado” ou ““desligado””), 
X e Y (coordenadas correntes do cursor; 
note que X =0 e Y =0 correspondem, no 
TK-2000, à posição no canto superior 
esquerdo). 

A linha 56 define, por sua vez, as va- 
riáveis QX e QY, necessárias para a 
atuação da rotina da linha 815 (mostra- 
da mais adiante num dos segmentos do 
programa), que é responsável por tra- 
çar um bloco colorido. Quando as va- 
riáveis QX e QY são igualadas a 39, co- 
mo neste caso, isso significa que a tela 
será inteiramente pintada com a cor cor- 











rente do cursor (na primeira vez será 
preto, ou COLO! 
A linha 60 defi 


-0). 
e as variáveis XL e 


YL, que servem para armazenar as últi- 
mas coordenadas do cursor, atingidas 
antes das correntes (X e Y), bem como 
Ainda nessa linha, é 


a última cor CI 


definida a cor ini 





al do cursor (C=3), 


e a sub-rotina da linha 196 é chamada 
para traçar esse cursor em sua posição 
inicial (0,0). 

Digite agora a seção de entrada e teste 
(sem, contudo, apagar a seção de entra- 
da anterior): 


100 
105 


110 


115 


120 


125 


130 


140 


145 


GET AS: 
IF AS="C" 
GOTO 100 
IF AS="Q" 
GOTO 100 
IF A$="M” 
GOTO 100 
IF AS="T" 
бото 100 
IF A$="I” 


GOSUB 500: 


IF A$-"R" 
55 

IF A$-" 
= 1: X 
815: X = 
100 

IF AS="F” 
= 0: X= 
815: X = 
100 





THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
0: Y 
XL: Y 
THEN 


0: Y 
XL: Y 





A = ASC (AS) 


GOSUB 850: 
GOSUB 600: 
GOSUB 650: 
GOSUB 500: 


INVERSE: 


GOTO 100 


HOME: GOTO 
COLOR = C:TY 
= 0: GOSUB 
= YL: GOTO 


COLOR = C:TY 
= 0: GOSUB 
= YL: GOTO 





150 IF À = 112 THEN Y = Y-1 
GoTO 190 

155 IF À = 113 THEN Y = Y+1: 
GOTO 190 

160 IF A = 8 THEN X = X-1: GOTO 
180 

165 IF A = 21 THEN X - X*1: GO- 
TO 180 

166 IF A <> 46 THEN GOTO 100 

170 IF FL = 1 THEN FL = 0: GOTO 
100 

172 IF FL = O THEN FL = 1 

175 GOTO 100 





A linha 100 usa um comando C 
para permitir uma pressão à tecla e ar- 
mazenar o caractere correspondente em 
A$. Ao mesmo tempo, o valor ASCII 
desse caractere é determinado pela fun- 
ção ASC e guardado em A 

Em seguida, as linhas 105 a 145 veri 
ficam se o caractere digitado é C, Q, M, 
T, B, R, 1 ou F. Em caso positivo, elas 
tomam as providéncias necessárias pa- 
ra executar a funcáo perdida, e retor- 
nam à linha 100 para receber mais um 
comando. 

Essa estrutura de programa caracte- 
riza, de fato, um laco sem fim (conhe- 
cido, neste caso, como /aco de entrada), 
que nào chega a ser um laco de espera 
verdadeiro, pois o programa ficará pa- 
rado na linha 100 enquanto nenhuma te- 
cla for pressionada. 

As linhas entre 150 e 175 servem pa- 
ra verificar se uma das teclas de movi- 








"uuu 


nuas 
111 
ALI 
ALI 
111 
LLLI 
111! 








ão do cursor foi pressionada 
Aqui, temos que usar o valor ASCII pa- 
ra fazer a averiguação, pois não existe 
representação gráfica da tela para os 
cursores. Se a tecla tiver sido pressiona- 
da, o parâmetro Y (coordenada vertical 
do cursor) será diminuído de uma posi- 
ção, e o programa saltará, então, para 
a linha 190, que verifica se os limites da 
tela foram ultrapassados. Transforma- 
ções semelhantes de X e Y são feitas, 
conforme a tecla de cursor seja pressio- 
nada. Mas não execute o programa 
ainda. 


COMECE A DESENHAR 


Adicione as linhas abaixo: 

















180 
182 
185 
190 
195 
196 
197 
198 


IF X < 0 THEN X = 0 

IF X > 39 THEN X = 39 
GOTO 196 

IF Y < 0 THEN Y = 0 

IF Y > 39 THEN Y = 39 
IF FL = 1 THEN GOTO 198 
COLOR = CL: PLOT XL,YL 
LET CL = SCRN (X,Y): COLOR 
= C: PLOT X,Y 

LET XL = X: YL = Y 
GoTO 100 


199 
200 


As linhas 180 a 185 avaliam se X ul- 
trapassou ou nào a borda da tela, 
mantendo-o nesse limite, caso isso tenha 





acontecido. As linhas 190 e 195 fazem 
o mesmo com Y. 

A linha 196 verifica se o cursor está 
em modo de desenho. Se estiver, a linha 
197 traçará o cursor, com a cor CL (úl- 
tima cor encontrada), na posição (XI 
YL). O programa prosseguirá então pa- 
ra a linha 198, que testa a cor do pixel 
em X, Y, armazena-o em CL, e traça fi- 
nalmente o pixel em X e Y, usando a cor 
С 

Se esse procedimento, aparentemen- 
te complexo, náo for aplicado, toda vez 
que o cursor for deslocado deixará um 
“buraco” de cor diferente na posição 
anterior 

Por fim, nas linhas 199 e 200, sáo 
usados os valores das variáveis YL, 
e o programa retorna á linha 100, pon- 
to de partida desse segmento, para mais 
uma “rodada” de entrada 

Uma vez concluidos esses preparati- 
vos, podemos adicionar as rotinas de 
trabalho do programa: 








500 LET YT = Y/2: XT = X+1 

510 HTAB XT: UTAB YT 

515 GET AS: IF ASC (AS) = 13 
THEN NORMAL: RETURN 

516 IF ASC (AS) = 8 THEN XT = 
XT-1: GOTO 510 

520 PRINT AS: XT = XT+1 

525 GOTO 510 

600 LET TY = 0: GOTO 750 

650 LET TY = 1 















750 HTAB 1: VTAB 23 


800 INPUT "COMPRIMENTO,LARGURA 
:";0X,QY 

815 IF TY = 1 THEN GOTO 840 

820 FOR I -» Y TO Y*QY 

830 HLIN X,X*QX AT I 


835 NEXT 1: CL = C: GOTO 900 

840 HLIN X,X*QX AT Y: HLIN 
X,X*QX AT Y,Y*QY 

847 LET CL - C: GOTO 900 

850 HTAB 1: VTAB 23: INPUT "COR 
(0-60) :";C 

855 IF C<0 OR C>7 THEN GOTO 850 

860 COLOR = C: PLOT X,Y 

900 HTAB l: VTAB 23: PRINT SPC 
(39): RETURN 

999 END 


A sub-rotina que vai da linha 500 à 
linha 525 responde aos comandos I e T 
e serve para receber caracteres pelo te- 
clado (linha 515) e colocá-los na tela, a 
partir da última posição do cursor de 
texto. 

As variáveis XT e YT correspondem 
às posições de tabulamento de texto, nas 
posições HTAB e VTAB, que são cal- 
culadas a partir da localização do cur- 
sor gráfico no momento (X e Y). O ca- 
ractere é impresso pelo comando 
PRINT na linha 520, onde também é in- 
crementado o cursor de texto (XT). 

Ao mesmo tempo, a entrada de um 
comando <RETURN> (linha 515, 
com código 13) encerra a sub-rotina e 
volta para a alça de espera. O código 








8, por sua vez, corresponde ao 
comando BACKSPACE no mi- 
cro TK-2000 e faz com que o 
cursor recue uma posição, ара- 
gando o caractere escrito 

A sub-rotina que vai da linha 
600 à linha 847 é um procedi- 
mento universal para traçar re- 
tângulos, sejam eles coloridos ou 
não. Ela serve, portanto, para 
executar os comandos B, R, Q e 
M (os parâmetros adequados pa- 
ra o caso são fixados nos IF das 
linhas 105 a 145). 

A variável TY serve para assinalar se 
o retângulo é cheio ou vazio. A linha 800 
pergunta as suas dimensões, no caso dos 
comandos Q e M, e à linha 810 cabe in- 
vestigar se ele não excede os limites da 
tela 

Finalmente, a rotina que vai de 850 
a 900 muda a cor do cursor. Na linha 
900, é apagada a última linha de texto 
da tela, de modo a prepará-la para o 
próximo comando. 


INCREMENTANDO. 


Execute agora, com todo o cuidado, 
o programa completo e dé asas à sua 
imaginacáo. Entretanto, náo esqueca de 
gravá-lo antes em fita. 

Com um pouco de criatividade e al- 
gum esforço de programação, não é di- 
fícil aumentar a utilidade do programa, 
adicionando-lhe novos comandos. Pa- 
ra isso, basta inserir uma nova linha IF 
na série de linhas desse tipo existente en- 
tre as linhas 100 e 165, verificando se 
a nova tecla foi pressionada ou não, e 
desviar o processamento com um co- 
mando GOSUB para a sub-rotina que 
fará a tarefa. 

Eis aqui algumas sugestões de exten- 
são do programa 


- sub-rotina para traçar retas de uma 
só vez (marque os pontos inicial e fi- 
nal da reta, com o cursor, e pressione 
<ENTER> para acionar a 
rotina). 

- sub-rotina para copiar blo- 
cos de um lugar para outro. 

- sub-rotina para apagar um 
bloco retangular inteiro da 
tela, reconstituindo a cor de 
fundo. 

- rotinas para gravar telas em 
fita e carregá-las de volta à 
tela (leia a tela gráfica com comandos 
POKE). 
rotinas para criar uma biblioteca de 

ones” (pequenos desenhos ou mo- 
tivos gráficos), que podem ser copia- 
dos em qualquer ponto da tela. 





TV VERSUS 
MONITORES 


Monitores ou televisores? Se vocé tem 
dúvidas a respeito do vídeo 

ideal para o seu computador, leia este 
artigo, onde sáo abordadas as 
diferencas entre os dois aparelhos. 


Componente essencial para a opera- 
ção dos microcomputadores, a tela de 
vídeo constitui o principal canal de co- 


municação entre o usuário e a máqui- 
na. Além disso, é o vídeo que mantém 
visível o registro de tudo o que é digita- 
do no teclado. Sofisticado e sensível, es- 
se equipamento eletrônico deve ser bem 
selecionado no momento da compra, 
pois o seu desempenho influencia dire- 
tamente o da máquina. 

Existem basicamente duas opções de 
saída de vídeo para os microcomputa- 
dores: o uso direto de um aparelho de 
TV (em cores ou em preto e branco), ou 


Ш MONITORES E TELEVISORES 
SINAIS DE ENTRADA 

OR VERSUS PRETO E BRANCO 
DEFINIÇÃO DA IMAGEM 

COMO ESCOLHER 


um monitor de vídeo (que também po- 
de ser monocromático ou colorido). 
Muitas máquinas já vêm equipadas com 
um monitor de vídeo padrão, que difi- 
cilmente pode ser trocado. Se o seu com- 
putador é desse tipo, nada resta a fazer. 
Caso contrário, vale a pena ler as linhas 
a seguir. Elas explicam como funciona 
um desses equipamentos e como o com- 
putador controla a saída de vídeo. 
Embora existam muitas maneiras di- 
ferentes de passar informações do com- 





putador para a tela, os diversos tipos de 
video.contam com um dispositivo espe- 
cialmente destinado para isso: é o tubo 
de raios catódicos, conhecido por sua si- 
gla em inglés, CRT (Cathode-Ray Tu- 
be). Os tubos de raios catódicos (chama- 
dos também de cinescópios) funcionam 
com base no fenómeno da fosforescén- 
cia, ou luminosidade provocada por fei- 
xes de elétrons em certas substáncias 
químicas, como fósforo. 

Um tubo de raios catódicos consiste 
em um invólucro de vidro em forma de 
cone ou pirámide, em cujo interior se 
produz vácuo. Em uma de suas extre- 
midades é montado um canháo de elé- 
trons (um filamento aquecido, emissor 
de elétrons). Uma vez liberados, os elé- 
trons compóem uma espécie de nuvens 
ao redor do filamento; eles sáo entáo 
acelerados e aglomerados em forma de 
feixe, para poder bombardear a tela com 
uma certa velocidade. Essa função é rea- 
lizada por anéis e placas metálicas dis- 


postas ao longo do tubo, que são eletri- 
ficadas — positivamente, para acelerar 
os elétrons, e negativamente, para 
obrigá-los a constituir um fino feixe, 
que, ao atingir a tela, produzirá um pon- 
to de luz. 

Para criar imagens na tela, é neces- 
sário fazer esse ponto de luz se deslocar 
em várias direções sobre a camada de 
fósforo. Isso se dá através de dois pa- 
res de placas, dispostas em ângulo reto: 
são as placas defletoras, que realizam 
sua função por meio de voltagens elé- 
tricas; estas, por sua vez, atraem ou re- 
pelem o feixe nas direções horizontal e 
vertical. 

Os aparelhos de TV e a maioria dos 
monitores de vídeo criam imagens e tex- 
tos empregando a técnica de varredura. 


















Nesta, um sinal eletrónico especial é 
aplicado ás placas defletoras, de modo 
45 o ponto de luz percorre todo o ví- 

leo a grande velocidade, em um movi- 
mento de ziguezague. Isso permite for- 
mar na tela entre quinhentas e 625 linhas 
(dependendo, evidentemente, do padráo 
adotado), em cerca de 1/60 de segundo. 
Esse padrão de varredura é constante- 
mente repetido. 

Para produzir uma imagem ou tex- 
to, portanto, basta modular a intensi- 
dade do feixe, ou seja, variar a volta- 
gem do canhão de elétrons, de modo a 
ligá-lo e desligá-lo em determinados mo- 
mentos, Assim, por exemplo, os carac- 
teres podem ser criados por meio de 
pontinhos acesos, Portanto, tudo o que 
o controlador de vídeo do computador 
precisa fazer é enviar esse sinal de inten- 
sidade ao CRT. 

Alguns tipos de monitores especiais 
para micro formam imagens ou carac- 
teres utilizando a modulagáo das placas 
defletoras. Embora essa técnica produ- 
za imagens de excelente definigáo e qua- 
lidade, uma boa velocidade de exibição 
somente pode ser obtida a custos muito 
altos. Na verdade, o CRT de varredura 
gera imagens complexas de maneira 
mais barata e rápida. 


O uso da técnica de varredura para 
gerar imagens é baseado em uma pro- 
priedade da visão humana, que, em ou- 
tras circunstâncias, poderia ser conside- 
rada um defeito. O olho humano retém 
uma imagem na retina por cerca de 1/25 
de segundo. Como a maioria dos tubos 
de raios CRT é capaz de varrer toda a 
tela em cerca de 1/60 de segundo, isto 
significa que uma nova imagem, ou 
“quadro” aparece mais rapidamente do 
que o olho pode perceber. Assim, vemos 
na tela uma imagem que se mantém, ou 
se move, sem piscar, Se nossos olhos ti- 
vessem uma capacidade de retenção de 
1/100 de segundo, ou menos, a imagem 
gerada em um televisor pareceria piscar 
intoleravelmente, 


Esse princípio vale tanto para televi- 
sores em preto e branco (monocromáti- 
cos), quanto para os que transmitem 
imagens coloridas. A única diferença en- 
tre os CRT dos dois tipos é que os apa- 
relhos monocromáticos têm apenas um 


canhão eletrônico e uma variedade de 
fósforo na tela, enquanto os equipamen- 
tos coloridos dispõem normalmente de 
três canhões e três espécies de fósforo 
(existe ainda um tipo de CRT colorido 
que possui apenas um canhão que dis- 
para três feixes de elétrons). 

A cor é produzida da seguinte manei- 
ra: 0s feixes eletrônicos ativam os fós- 
foros, que se iluminam, assumindo, ca- 
da um, uma cor diferente (azul, verme- 
lho ou verde). 


Monitor ou televisor, monocromáti- 
co ou em cores, O video é preparado pa- 
ra aceitar três tipos de sinal de entrada. 
O primeiro deles, o sinal padrão de ra- 
dioemissão, é usado por aparelhos de te- 
levisão; ele produz a imagem convencio- 
nal de TV na tela e é conhecido por КЕ 
(abreviatura de radiofrequência, usual- 
mente na faixa VHF). 

Chamado de vídeo composto, o se- 
gundo tipo de sinal é utilizado pela 
maioria dos monitores, embora alguns 
aparelhos de TV também tenham uma 
entrada de vídeo composto já embuti- 
da. Esses sinais contêm a modulação de 








intensidade para os feixes eletrónicos, 
além de pulsos de sincronização. 

Finalmente, existe o sinal RGB, cu- 
jo nome vem das iniciais das três cores: 
Red, Green, Blue (vermelho, verde e 
azul, em inglês). Ele constitui a forma 
mais direta e precisa de entrada de co- 
res. Neste caso, cada canhão eletrônico 
é alimentado por informações acerca da 
cor correspondente (há, porém, moni- 
tores monocromáticos capazes de acei- 
tar sinais RGB, transformando-os em 
níveis de intensidade, também chama- 
dos de níveis de cinza). 

O sinal de vídeo composto é interme- 
diário, em qualidade e flexibilidade, en- 
tre o RF e o RGB. O sinal RF, em últi- 
ma instância, passa por uma série de 
amplificações e transformações, antes 
de ser convertido em um sinal de vídeo 
direto. Portanto, ele é de menor quali- 
dade e definição, pois, quanto maior for 
o número de estágios intermediários, 
maiores serão as distorções e interferên- 
cias sofridas por ele. 


АВбИВА ОЕ РА!ХА 


Existem razóes interessantes, mas tec- 

nicamente complicadas, para o fato de 
um televisor náo possibilitar o mesmo 
grau de definigáo de imagem na tela que 
um monitor de vídeo. O elemento dife- 
renciador é, aqui, a chamada largura de 
faixa (bandwidth, em inglés), que é a di- 
ferença algébrica entre as frequências 
máxima e mínima de sinal, às quais o 
dispositivo eletrônico e o CRT podem 
responder sem perda apreciável de inten- 
sidade (ou ganho). Do mesmo modo, a 
largura de faixa é o principal parâme- 
tro a determinar a qualidade ou resolu- 
ção de imagem. 
Um aparelho de TV, por exemplo, 
não aceita sinais que requeiram uma lar- 
gura de faixa maior do que 5,5 MHz 
(megahertz, ou 1 000 000 de oscilações 
por segundo). Essa faixa funciona bem 
em um vídeo de 32 ou quarenta colunas; 
neste último caso (quarenta colunas), 
porém, os caracteres tendem a tornar- 
se indefinidos ou “*borrados”” (é que essa 
dimensão de vídeo exige, normalmente, 
uma largura mínima de 10 MHz). 

Os monitores de vídeo são projetados 
especificamente para processar faixas de 
tal magnitude. Entretanto, é necessá 
rio que o computador tenha uma saída 
de vídeo composto, em vez de uma RF 
(algumas vezes ambas estão presentes, 
como é o caso dos micros da linha 
MSX). Os modelos da linha Sinclair, 
por exemplo (ZX-81 e Spectrum), têm 
saídas somente para RF. 

Quando falamos da qualidade da 








imagem na tela, estamos nos referindo 
à resolução (ou definição de imagem) e 
à separação de cores. Infelizmente, qua- 
se sempre as duas características são an- 
tagônicas, ou seja, a presença de mui- 
tas cores implica menor definição, pois 
a largura de faixa tem que ser dividida 
entre as freqüéncias presentes nos trés 
canhóes. Assim, um monitor monocro- 
mático produz uma definicào melhor do 
que os tubos cromáticos. 

Em uma tela normal de vídeo, de qual- 
quer espécie, existem cerca de 360 000 
pontos de fósforo. No caso de uma tela 
em cores, 120 000 desses pontos seráo 
vermelhos; 120 000, verdes, e 120 000, 
azuis. Portanto, a resolugáo da imagem 
será trés vezes menor do que a de um 
tubo monocromático. 

Para muitas aplicações, como o pro- 
cessamento de textos, o monitor mono- 
cromático é a opção natural, pois força 
menos os olhos do usuário. A combina- 
ção mais frequente é verde sobre fundo 
preto. O vídeo inverso, ou seja, carac- 
teres pretos sobre fundo branco ou de 
cor clara, é menos frequente, pois pro- 
voca maior cansaço visual. 

É bom lembrar, aliás, que a maioria 
das pesquisas a respeito dos efeitos do 
vídeo sobre a saúde não conseguiram de- 
monstrar a nocividade do CRT. 

Os efeitos maléficos são geralmente 
causados por outros fatores, como bri- 
lho refletido na tela, cores inadequadas, 
caracteres imprecisos. Uma tela de TV, 
entretanto, : pisca imperceptivelmente 
— embora mais que a de um monitor 
—, O que pode provocar dores de cabe: 
ça e problemas visuais. 

É importante notar ainda que a defi- 
nição de imagem não depende apenas do 
CRT e dos seus circuitos de controle, 
mas também do hardware do computa- 
dor. Os caracteres são formados por 
“células” ou matrizes de pontinhos de 
5x 7,7 x 9, ou 9 x 9, conforme a 
qualidade do micro. Combinada com a 
largura de faixa do monitor, essa con- 
figuragáo pode produzir caracteres de 
pequena ou de grande resolugáo. 

Por outro lado, embora o ideal fos- 
se associar a cada pontinho luminoso na 
tela um bit ou um conjunto de bits na 
memória do computador (no caso de in- 
formação em cores são necessários de 
três a sete bits), esta seria uma solução 
pouca prática e muito cara. Assim, nor- 
malmente, um ou mais bytes da RAM 
são associados a caracteres (matrizes de 
pontinhos) e não a pontinhos indivi- 
duais, e o circuito gerador de vídeo do 
computador faz o resto do trabalho, uti- 
lizando uma tabela interna de caracte- 
res (que pode ser alterada em alguns mi- 
cros, como no Sinclair). 






















































СОМО Е$СО1НЕВ 


Os dois fatores mais importantes a se- 
rem considerados quando se deseja com- 
prar um vídeo sáo: o tipo de computa- 
dor ao qual ele deve ser acoplado, e as 
aplicações a que ele está destinado. Em- 
bora a tela seja um elemento importan- 
te do sistema, ela depende do tipo de 
hardware de vídeo do computador. Se 
a capacidade gráfica do micro é pobre, 
nào adianta comprar um monitor de al- 
tíssima resolução, que ela não vai me- 
lhorar: você estará jogando dinheiro fo- 
ra. Portanto, é preciso comprar o video 
mais adequado para aquilo que o com- 
putador tem a oferecer. 

Ao mesmo tempo, é importante tam- 
bém levar em conta a função para a qual 
o computador está sendo destinado. As- 
sim, O monitor monocromático é a so- 
lução mais adequada quando se procu- 
ra uma melhor relação custo/benefício 
em aplicações nas quais a cor não é um 
pré-requisito. Se, ao contrário, é neces- 
sário um padrão de cor de alta qualida- 
de, então um bom monitor RGB deve 
ser considerado, embora a maioria dos 
micros pessoais e domésticos não preci- 
se de nada mais sofisticado do que um 
monitor de vídeo composto. 

Jogos e programações pouco comple- 
xas requerem apenas um aparelho de TV 
como saída de video. Evidentemente, a 
maioria dos jogos aparece de forma 
muito melhor em um monitor em cores: 
entretanto, quase todos eles são progra- 
mados em função das limitações dos te- 
levisores. Além disso, o monitor pode 
ser uma má escolha com relação a ou- 
tros aspectos. Por exemplo, normalmen- 
te os monitores de vídeo não têm saida 
sonora, pois são fabricados para o mer- 
cado profissional. Ora, essa caracteris- 
tica tem importantes implicações, pois, 
de modo geral, os jogos mais sofistica- 
dos e interessantes são programados 
com efeitos sonoros. 

Também nào é recomendável usar te- 
levisores baratos ou muito antigos. Em 
primeiro lugar, os circuitos eletrónicos 
(alguns ainda usando válvulas) podem 
não ser compatíveis com a saída analó- 
gica de vídeo dos computadores. Em se- 
gundo lugar, defeitos que não causam 
grande impacto sobre a qualidade da 
imagem de TV — como o “estouro” da 
varredura nas margens da tela, ou a 
acentuação de uma cor sobre as outras 
— afetam negativamente tanto o texto 
como as imagens geradas pelo compu- 
tador. Neste caso, pode sair muito mais 
caro tentar reparar o velho aparelho 
com defeito do que comprar um moni- 
tor ou um televisor novos. 





Participe deste novo jogo de INPUT e 
viaje para o mundo mágico de 

Las Vegas, acionando a manivela de 
uma máquina caca-níqueis que 

não vai deixá-lo de bolsos vazios. 


Atualmente, já é possível substituir 
os velhos caça-níqueis mecânicos por 
programas de microcomputadores, on- 
de a tela é usada para mostrar as rodas 


com os desenhos de frutas. E exatamen- 
te isso que faremos neste e nos próximos 
artigos de INPUT 

O jogo desempenha as funções carac- 
terísticas de um caça-níqueis real — ou 
seja, prender, apostar e empurrar. As 
rodas móveis com os desenhos de fru- 
tas são representadas por meio de grá- 
ficos animados 

Como se não bastasse, ele tem a van- 
tagem de poupar o jogador de perder 
grandes quantias em dinheiro para es- 
ses bandidos de um braço só — como 


= UTILIZE TODA A CAPACIDADE 

GRÁFICA DO SEU MICRO 
ШШ AS ENGRENAGENS DA MÁQUINA 
E MONTANDO O CACA-NÍQUEIS 
E AS INSTRUÇÕES 


são conhecidos os caça-níqueis em sua 

al, os Estados Unidos. Em com- 
pensa — já que ninguém é perfeito 
—, o jogador não ganha nenhum tos- 
tão. Para começar, consulte a seção de- 
dicada a seu micro. 

o se esqueça, entretanto, de gra- 
var a primeira parte do programa, apre- 
sentada neste artigo, antes de passar à 
execu da segunda parte. O progra- 
ma não funciona neste estágio, embora 
alguns microcomputadores mostrem o 
aspecto básico da tela gráfica. 











As linhas 140 a 150 contém os bytes ` 
responsáveis pelos blocos usados para 
desenhar as frutas do caça-níqueis. As 
instruções coloridas devem ser digitadas 
diretamente por meio de códigos de con- 
trole, de modo a economizar memória. 
Para escrever essas linhas, entre no 
“modo estendido” (CAPS SHIFT + 
SYMBOL SHIFT) e pressione a tecla re- 
lativa à cor desejada. A seguir entre no 
modo gráfico (CAPS SHIFT e 9) e di- 
gite as letras da listagem. 


10 LET HFLAG=0: POKE 23658,8: 
RESTORE 20: GOSUB 860 

20 DATA 14,31,31,31,31,15,3,1 
.56,252,252,252,252,248,224, 
192 

30 DATA 49,42,51,42,50,255, 
255,255,152,84,216,84,84,255, 
255,255 

40 DATA 3,4,8,28,62,62,62,28, 
28,190,125,62,28,0,0,0 

50 DATA 0,0,16,28,15,7,3,0,4, 
12,26,56,248,240,224,0 

60 DATA 0,0,7,15,31,31,15,7,8 
,248,240,240,224,224,192,128 
70 DATA 1,3,3,7,15,15,24,1, 
128,192,192,224,240,240,24, 
128 

80 DATA 1,7,15,31,31,31,31,15 
.224,240,240,240,240,224,192, 
128 

90 БАТА 8,8,8,8,73,42,28,8,16 
,56,84,146,16,16,16,16 








100 FOR i-USR "a" TO USR "P"*7 

: READ a: POKE i,a: NEXT 1 

110 LET TOTAL-100 

140 DATA "AB","AB","CD","CD^," 
»"AB","EF", 0 PMN”, PER,” 

GH* , "MN* 





145 DATA "HD" "uN", "Dr, man”, 








GH" , "Gli" ," CD" , "CD" , "EF" , "AB"," 

ср", "мм" 

150 РАТА "ЕҒ", "ММ", "ои", "8", " 
"Ср": 





ср", "АВ", "Е". "лв", "П 
y" 


160 DIM a$(24,4): DIM b$(24,4) 
: DIM c$(24,4): FOR 1=1 ТО 12: 





READ a$(i): LET a$(i*12)-a$(i) 

: NEXT 4 

180 FOR 1=1 TO 12: READ b$(1): 

LET b$(i*12)-b$(i): NEXT i 

190 FOR i-1 TO 12: READ c$(i): 

LET c$(1*12)-c$(1): NEXT à 

860 BORDER 7: PAPER 9: INK 2: 

CLS 

870 PRINT "" 

880 FOR 1=0 TO 1: FOR 3*0 TO 

31: PRINT PAPER 7;AT 1,3;"" 

: NEXT j): NEXT i 

890 FOR I-2 TO 5: PRINT AT I,0 

; PAPER 6;" "AT 1,28;" E 
": NEXT I 

900 PRINT PAPER 6; INK 2;AT 0 

,5;"10 CENTAVOS A JOGADA" 


910 PRINT PAPER 6; 


INK 2;AT 1 





940 PRINT PAPER 6; INK 2;AT 1 





950 FOR i-6 TO 14: FOR 3-8 TO 





23 STEP 5: PRINT INK O;AT i,j 
" ":; NEXT 5: NEXT à 

960 FOR 1=8 TO 23: PRINT AT 15 
,i; INK 0;" ": NEXT 1 

970 FOR 1=6 TO 21: PRINT 
PAPER 6;AT 1,0;” 0000º; 
AT 1,24;* 00000 O”: NEXT I 


980 FOR I-16 TO 21: PRINT 
PE 6;AT 1,8; 
^": NEXT 
990 PRINT INK 1; PAPER B;AT 2 
,0;"PREMIO";AT 2,26;"PREMIO" 
Br;ar 3,27;" 8 















1000 PRINT INK 1; PAPER 8;AT 4 
10";AT 4,27;"100";AT 6,2;"2 
T 8,2; = 7;"RAPA";A 





1010 PRINT INK 1; PAPER 8;AT 2 
"<SPACE> GIRA AS RODAS”;AT 
;"HOLD SEGURA E NUDGE EMPUR 





10 





1030 PRINT AT 18,7;"04=18205=24 
3.6-1&3";AT 19,4; INK 7; PAPER 
2;"^HOLD : TECLAS DE 1 A 6” 
1040 RETURN 


A linha 10 salta para a sub-rotina da 
linha 860, que desenha o caça-níqueis. 
As instruções ao jogador são colocadas 
na frente da máquina. 

A linha 100 cria os blocos gráficos — 
UDG — na memória usando o coman- 
do READ para ler os valores contidos 
nas linhas DATA 20 a 90. Depois que 
o banco de blocos é criado, os caracte- 
res das frutas aparecem nas linhas 140 
a 150, de onde o programa retira dados 
para produzir as rodas giratórias. As va- 
riáveis a$, b$ e c$ representam as três 
rodas, e a ordem das frutas na rodas é 
determinada pela ordem dos blocos nas 
linhas DATA. 


200 GOSUB 1050 
1050 PRINT AT 5,0;A$(4);"----"; 
AT 7,0;A$(4) ;A$(4) ;"--";AT 9,0; 


AS(4) ;A5(4) ¡AS(4) ¡AT 10,0;AS(1) 
¡AS(1);¡AS(1) 

1060 PRINT AT 11,0;C$(2);C$(2); 
C$(2);AT 12,0;B$ (1) ;BS (1) BS (1) 
1070 PRINT AT 5,26;C$(1) iCS$(1); 
C$(1);AT 6,26;C$(3) :C$(3) C$ (3) 
iAT 9,26;C$ (4) ;C$ (4) :CS (4) 

1080 PRINT AT 7,10;AS$(1);AT 10, 
10;А5(2):АТ 13,10;А5(3) 

1090 PRINT AT 7,15;BS(1);AT 10, 
15;B$ (2) ;AT 13,15;B$(3) 

1100 PRINT AT 7,20;C$(1);AT 10, 
20;C$(2) ;AT 13,20;C$(3) 

1110 PRINT AT 16,26; INK 2; PAP 
ER 6;"NUDGE";AT 17,24;"TECLAS"; 
T 18,25;"A- 


AT 15,25;"Q-W-E P";A' 
S-D o” 


PAPER 7;AT 1 
"¡AT 13,25;” 
T 14,25;” 


















INK 2;”" 8 
PRINT PAPER 6; INK 0; INV 
ERSE 1;AT 15,0;"TOTAL"; INVERSE 
O;AT 17,0;"S";AT 18, C";AT l 
7,1; PAPER 7; BRIGHT 1"iAT 
18,1;" 00” 
1140 PRINT 41;AT 0,0;” GG CACI 


FE INICIAL = 1 DOLLAR” 
1150 PAUSE 0 
1160 PRINT +1;AT 0,0;* 000 1 


1170 RETURN 

A sub-rotina da linha 1050 desenha 
as rodas em sua posiçào inicial junto 
com alguns detalhes complementares, O» 
jogador é informado que seu cacife ini- 
cial é de um dólar e que cada jogada cus- 
ta dez centavos. 


OS BLOCOS GRAFICOS 


10 PMODE 3,1:PCLS:CLS 

20 DIM B(12),C(12),A(12),BR(12) 
+S(12) ,PL(12),P(12) ,R1(15),R2(1 
5) ,R3(15) ,W(9) ,H(29) 

30 DRAW"BM16,0C2L2GLG4DG4D2R7FR 
FR3ERER7U2H4UH4LH” : PAINT (14,10) 
:¿DRAW”BM17,2C1F4DF” 

40 GET(0,0)-(31,15),B,G 

50 DRAW"BM62,0C2L6GL6G2C4L3GLGL 
GFDGLGLGLGFRFRFR3ERERERSFRFR3ER 
EREHLHLHLSHEHLHLH" : PAINT (48,8) : 
DRAW"BM41 ,8C1FRFRFRNFUR2UR2URBM 
-4,-2HBM-5,7HBR17H" 

60 GET(32,0)-(63,15),C,G 

70 DRAW”BM80,0C3G8R17NH8BD2LNL1 
SGLGLGLGL3NH3RFR7E” : PAINT (80,4) 
:PAINT(80,13) 

80 GET(64,0)-(95,15),A,G 

90 DRAW”BM96,0C4R30BD2L30DR30BD 
6UBU2HL4D2NR4D2BL7U3HL 3GDNR4D2B 
L12R4EHEHL5D2NR2D2BD2R30DL 30BD2 
R30" 

100 GET(96,0)-(127,15),BR,G 

110 DRAW"BM148,0C2GL3GCALHLGL3G 
4RF3RF5RFR3ERE4UER2E 3LH3LHLGL5G 
L":PAINT (144,8) : DRAW"BM138, 3C1R 
















O caça-níqueis ““Superfruit'* é bem atraente no Acorn, micro que náo existe no Brasil 


BR13RBDBLlOLBDBLSLBDBRSRBRSRBDB 
L4LBL13LBDBRIORBR4BDLBLSLBDBR4R 
BG2LBR6R” 

120 СЕТ(128,0)-(159,15),5,6 

130 DRAW"BM186,0C3L2GL5DGR6DF4D 
G2LG3LGL5H6E5R2" : PAINT (176,8) :D 
RAW"BRÓBDCID2F" 

140 GET(160,0)-(191,15) , PL,G 
150 DRAW"BM218,0C2L4DL3D3F4DF4L 
GLGL13HLHUE7REU2" : PAINT (208,8) : 
DRAW"BM211,6ClDF2" 

160 GET(192,0)- (223,15) , P,G 


O nosso caça-níqueis é desenhado em 
PMODE3. Os comandos GET e PUT 
sáo utilizados para desenhar os símbo- 
los das frutas nas rodas giratórias. 

As matrizes que contém os símbolos 
sáo dimensionadas na linha 20 — B pa- 
ra o sino, C para a cereja, A para a bo- 
lota de carvalho, BR para a barra, S pa- 
ra o morango, PL para a ameixa e P pa- 
ra a pêra. As matrizes R1, R2 e R3 re- 
presentam o conteúdo das três rodas; W 
contém os valores dos prêmios e H é 
usada para segurar as rodas, impedin- 
do que girem livremente. 


AS INSTRI 





ES 


170 B$=CHRS (128) :CLS:PRINT €9,B 
$"superfruit"B$ 

180 PRINT"VOCE TEM 1 DOLAR.CADA 
JOGADA CUSTA .10,ATE ACABAR 
O DINHEIRO” 

190 PRINT^controles:":PRINT "4S 
PACE>"TAB(3)”-GIRA RODAS/APOSTA 
":PRINT"<1>"TAB(3)"-LIBERA RODA 
s” 

200 PRINT"<2>"TAB(3)"-SEGURA RO 
DA ESQUERDA” :PRINT"<3>"TAB(3)"- 
SEGURA RODA DO MEIO” :PRINT"<4>" 
TAB (3) "-SEGURA RODA DIREITA” 
210 PRINT "<5>"TAB(3)”-EMPURRA 
RODA ESQ. P/ CIMA”:PRINT"<6>"TA 
B(3)"-EMPURRA RODA CENTRAL P/CI 
MA" : PRINT"<7>"TAB (3) "-EMPURRA R 


BUPERFELIT — 


PROGRAMAÇÃO DE JOGOS 


Entes 


ww. 


TAS 


< 
2 





ODA DIR. P/ CIMA” 

220 PRINT "«8»"TAB(3)"-EMPURRA 
RODA ESQ.P/BAIXO” : PRINT”<9>"TAB 
(3)"-EMPURRA RODA CENT. P/BAIXO 
”":PRINT "<0>"TAB(3)”-EMPURRA RO 
DA DIR.P/BAIXO” : PRINT"<ENTER>"T 
AB(3)"-RECOLHE O PREMIO"; 


As linhas 170 a 220 escrevem as ins- 
truções na tela de textos. 


A 


230 IF INKEYS<>” ” THEN 230 

240 FOR A=0 TO 15:READ R1(A),R2 
(A) ,R3(A) :NEXT 

250 DATA 0,1,2,3,5,6,6,2,0,5,3, 
4,4,6,5,6,4,3,1,2,0,3,0,5,2,1,4 
.6,5,1,0,6,6,1,4,3,2,0,1,5,3,2, 
4,6,6,6,4,5 

260 FOR A=0 TO 9:READW(A) :NEXT 
270 DATA 200,150,100,80,60,40,3 
0,20,10,0 

280 GOSUB 4000 

290 SCREEN 1,0:PCLS 3:DRAW"BM84 
,4C2820LDRDLBR2NU2RU2BRND2RDLBE 
BRNRDNRDRBRU 2RDLFBRUNRURBRNDZRD 
LFBRNU2RU2BRD2BR2U2LR2” 

300 FOR K=0 TO 2:LINE (40+64*K, 
20)-(87*64*K,115) , PRESET, BF:NEX 
T 

310 FOR K=0 TO 2:DRAW"BM"+STRS ( 
40*64*K) *", 124S16R12D4L12U4BFD2 
BRUNLUBR2RD2LU2BR3D2RBR2U2SBRFD 
2GL":NEXT 

320 GET(38,122) - (91,143) , H,G 
330 COLOR 4:FOR K=1 TO 5:LINE(1 
0*K*16,158)- (21*K*16,169) , PSET, 
BF:NEXT 

340 DRAW"BR30C1S24U2F2U2BRD2RU2 
BRD2SBRE2U2H2LS24BR3LD2RUBENRDN 
RDR” 

350 GOTO 350 

4000 CLS:PRINT €11,”premios” 
4010 PRINT 665,"BARRA BARRA B 
ARRA":PRINT" BOLOTA BOLOTA BOLO 
TA":PRINT" AMEIXA AMEIXA AMEIXA 





À direita, como ele aparece no Spectrum. 


4020 PRINT "MORANGO MORANGO MOR 
ANGO”:PRINT” PERA PERA РЕВА 
”:PRINT” SINO SINO SINO" 
4030 PRINT" CEREJA CEREJA CEREJ 
A":PRINT" SINO SINO -": 
INT” CEREJA CEREJA 
CEREJA - а” 
4040 FOR A=0 TO 9:IF A<7 THEN P 
RINT 689*A*32,USING"$$4.44";W(À 
)/100;:GOTO 4060 
4050 PRINT €89+A*32,USING”SS4.4 
%7:Ч4(А-1)/100 
4060 МЕХТ 
4070 PRINT 6416,"PRESSIONE «SPA 
CE» PARA CONTINUAR" 
4080 IF INKEYS<>” " THEN 4080 
4090 RETURN 

As linhas 240 e 250 colocam as rodas 
na tela — cada nümero representa uma 
das frutas. As linhas 260 e 270 acertam 
os valores dos prémios. A linha 280 sal- 
ta para a sub-rotina que comeca na li- 
nha 4000; esta exibe os resultados pre- 
miados e seus valores, с 

As linhas 290 e 340 desenham a tela 
inicial. É a linha 290 que liga a tela de 
alta resolugáo, permitindo o surgimen- 
to do caça-níqueis na tela. 


O programa listado a se, 
pecificamente da parte gr: 
jogo caça-níqueis. 

5 CLEAR 5000 

10 SCREEN 1:COLOR 1,11,15:KEY O 
FF 

20 DATA 14,31,31,31,31,15,3,1,5 
6,252,252,252,252,248,224,192 
30 DATA 49,42,51,42,50,255,255, 
255,152,84,216,84,84,255,255,25 
5 

40 DATA 3,4,8,28,62,62,62,28,28 
,190,125,62,28,0,0,0 

50 DATA 0,0,16,28,15,7,3,0,4,12 
,26,56,248,240,224,0 

60 DATA 0,0,7,15,31,31,15,7,8,2 











DAREN E pao mea бат: DÍ 


48,240,240,224,224,192,128 

70 DATA 1,3,3,7,15,15,24,1,128, 
192,192,224,240,240,24,128 

B0 DATA 1,7,15,31,31,31,31,15,2 
24,240,240,240,240,224,192,128 
90 DATA 8,8,8,8,73,42,28,8,16,5 
6,84,146,16,16,16,16 

100 FOR I-15*8 TO 30*8 STEP 8 
110 FOR J=0 TO 7 

120 READ A:VPOKE BASE(7)*I*B*J, 
^ 
130 
140 
150 


NEXT J,1 

FOR I=15 TO 31 

READ A:VPOKE BASE (6)+L,A 
160 NEXT 

170 DATA 143,143,31,31,111,111, 
191,191,63,63,223,223,159,159,3 
1,31,0 

180 DIM A(24,2),B(24,2),C(24,2) 
190 FOR 1-0 TO 1J:READ А(1,1).А 
(1,2) :A(14+12,1)=A(1,1):A(1+1 
)*A(I,2):NEXT I 

200 FOR I=0 TO 11:READ B(1,1),B 
(1,2) :B(1+12,1)=B(1,1) :B(1412,2 
)*B(1,2):NEXT I 

210 FOR T=0 TO 11:READ C(1,1),C 
(1,2):С(1%12,1)-С(1,1):С(1%12,2 
)-С(1,2):МЕХТ І 

220 DATA 200,208,120,128,136,14 
4,152,160,168,176,184,192,200,2 
08,216,224,168,176,136,144,216, 
224,120,128 

230 DATA 216,224,136,144,200,20 
8,152,160,216,224,168,176,184,1 
92,120,128,200,208,152,160,168, 
176,120,128 

240 DATA 120,128,200,208,184,19 
2,152,160,216,224,120,128,136,1 
44,168,176,200,208,184,192,152, 
160,216,224 

860 PRINT "" 

870 FOR Т=0 TO 31: 
)*1,254:NEXT 

880 LOCATE 4,0:PRINT "l0 CENTAV 
0S A JOGADA" 

890 LOCATE 2,2:PRINT "  ";CHRS( 
254);" ЕТТЕН A A 





УРОКЕ ВАЗЕ (5 





















ango” 
900 LOCATE 2,3:PRINT " “;CHR5( 
254);" "EEE CZ HRS (254 ' 





ша"; 





TATE 2,4:PRINT " 
254);” тшт " ; CHRS (254 
куттик) 





TE 2,5:PRINT " 
Pe a С 
FOR 1=6 TO 14:LOCATE 8,1:PR 
STRINGS (12,254) :NEXT 
LOCATE 0,4:PRINT "10" 











990 
TE 0,6:PRINT "20";:LOCATE 0,8:P 


:LOCA 





RINT "50 LOCATE 25,4:PRINT "1 
00";:LOCATE 25,7:PRINT "RAPA" 
LOCATE 24,8:PRINT " MNENN ";:V 
POKE BASE(5)*28/,197 

1000 LOCATE 8,15:PRINT " JMNILC 
BBCOONNO";:LOCATE 10,16:PRINT 
52 2 ә 

1010 LOCATE 6,1 RINT "4=142 5 
=283 6=183": LOCATE 6,18:PRINT 
"HOLD TECLAS 1 A 6”; 








1020 LOCATE 1,19:PRINT "BARRA D 
E ESPACO PARA RODAR” 

1030 LOCATE 0,20:PRINT "HOLD SE 
GURA E NUDGE EMPURRA"; 

1050 FOR I-1 TO 2:VPOKE BASE(5) 
*159*1,A(2, 1) : NEXT: LOCATE 0,5:P 
RINT STRINGS (4,254) ; 

1060 FOR J=0 TO 1:FOR I=1 TO 2: 
UPOKE BASE (5)+223+14J%2,A(2,1): 
NEXT 1,J:LOCATE 2,7:PRINT CHRS( 
254) ; CHR$ (254) ; 

1070 FOR J«0 TO 2:FOR I*l TO 2: 
VPOKE BASE(5)*287*1*J*2,A (1, 1) 
NEXT I,J 

1072 FOR J=0 TO 2:FOR I=1 TO 2: 
VPOKE BASE(5)*185*I*J*2,A(3, T) : 
NEXT I,J 

1074 FOR J=0 TO 2:FOR I=1 TO 2: 
VPOKE BASE(5)*217*1*J*2,A(B, I) : 
NEXT I,J 

1076 FOR J=0 TO 2:FOR I=1 TO 2: 
VPOKE BASE(5)*313*1*J*2,A(6, D) : 
NEXT I,J 

1080 FOR J=0 TO 2:FOR I=1 TO 2: 
VPOKE BASE(5)*319*1*J*2,A(5, I) : 
NEXT I,J 

1090 FOR J=0 TO 2:FOR I=1 TO 2: 
VPOKE BASE (5)+35121+J*2,A(7,1): 
NEXT I,J 

1100 FOR 1=235 TO 500 STEP 96:F 
OR J=1 TO 2:VPOKE BASE (5)+1+J-1 
,A((1-235)/96*1,J) :NEXT J,I 
1110 FOR I-239 TO 500 STEP 96:F 
ОВ Ј=1 ТО 2:VPOKE BASE(5)*I*J-l 
,B((1-239)/96*1,J) :NEXT J,I 
1120 FOR 1-243 TO 500 STEP 96:F 
OR J=1 TO 2:UPOKE BASE (5)+1+J-1 
,C((1-243) /96*1,J) :NEXT J.T 
1130 LOCATE 22,13:PRINT "TECLAS 
"i:LOCATE 22,14:PRINT "NUDGE" 
LOCATE 21,12:PRINT "Q-W-E “:LO 
CATE 21,15:PRINT "A-S-D ^" 

1140 LOCATE 0,13:PRINT "TOTAL"; 
:LOCATE 0,14:PRINT "$";:LOCATE 
0,15:PRINT "C";:LOCATE 2,14:PRI 
NT "1";:LOCATE 2,15:PRINT "00"; 
1150 LOCATE 1,22:PRINT "CACIFE 
INICIAL = 1 DOLLAR"; 











Os blocos gráficos que se encontram , 


na listagem podem ser obtidos via teclas 
SHIFT, CODE e GRAPH. 

O programa é executado na tela de 
textos de 32 colunas. Ao mesmo tempo, 
os símbolos qué representam as frutas 
são desenhados como se fossem carac- 
teres. Os padrões correspondentes de- 
vem ser transferidos das linhas DATA 
20 a 90 para a tabela de padrões na 
VRAM — linha 120. Os caracteres são 
coloridos pela linha 150, que coloca os 
códigos apropriados na tabela de cores 
da VRAM — BASE(6). 

Três matrizes são utilizadas para re- 
presentar as rodas giratórias: A, B e C. 
Elas são dimensionadas na linha 180. A 
ordem dos símbolos nas rodas é obtida 
pelas linhas 190 a 210 nas linhas DATA 
220 a 240. 

A máquina de frutas, com as instru- 





ções ao jogador, é desenhada pelas li- 
nhas 860 a 1060. Os resultados premia- 
dos aparecem na tela com o auxilio das 
linhas 1070 a 1090. 

As rodas são desenhadas em sua po- 
sição inicial pelas linhas 1110 a 1120. E 
as linhas restantes dão mais algumas ins- 
truções. 

No próximo artigo, veremos como 
colocar as rodas em movimento. 


4 Ге)! 


O programa listado a seguir cria os 
blocos gráficos e as telas com o caça- 
níqueis e as instruções. 


10 HOME :E = 35000: HIMEM: E 
20 F = INT (E / 256): POKE 232 
,E - F * 256: POKE 233,F 
30 ҒОЙ І “ЕЛОЕ%41%16% 
32 
40 READ A: POKE Т.А 
50 NEXT 
60 SCALE= 1: 
70 DATA 20 ,0 
106 ,0 ,138 ,0 
‚234 ,0 ‚10 ‚1 
06 ,1 ,138 ‚1 
234 ,1 ,10 ,2 
6,2 ,138 ,2 
80 DATA 0 
.219 ,27 ,87 
251 ,31 ,87 ,13 
51 ,31 .87 ,9 ,13 ,77 
,219 ,2 ,0 ,0 ,0 
90 DATA 0 ,104 
,251 ,219 ,51 ,13 
¿27 31,31 ЗІ 
41 427 +31 «31 
,209 ,219 ,27 
100 DATA 0 
.251 ,251 .51 ,45 ,77 ,105 
,255 ,251 ,51 ,45 ,77 ‚105 
B ,219 ,219 ,42 ,45 ,45 ,45 
3 ,63 ,63 ,63 ,55 ,0 ,0 
110 DATA 0 ,104 ,41 
9 ,251 ,251 ,87 ,13 ,45 
8 ,223 ,31 ,119 ,13 ,77 
19 ,219 ,155 ,45 ,45 ,45 
59 ,63 ,63 ,63 ,6 ,0 ,0 
120 DATA 0.72.73 ,73 ,218 
,223 ,219 ,74 ,73 ,73 ,218 ‚223 
.219 ,74 ,9 ,13 ,141 ,27 ,223 
.251 ,106 ,13 ,77 ,209 ,219 ,27 
,159 ,0 ,0 ,0 ,0 ,0 
130 DATA 0 .40 ,77 ,73 ,209 
2219 ,219 ,115 ,73 ,73 ,209 ,21 
9 ,219 ,83 ,77 ,73 ,209 ,219 ,2 
51 ,83 ,13 ,13 ,77 ,218 ,219 ,2 
23 ,2 ,0 ,0 ,0 ,0 ,0 
140 DATA 0 ,72 ,73 ,73 ,218 
,251 ,219 ,74 ,73 ,77 ,218 ,251 
,223 ,74 ,105 ,77 ,218 ,251 ,3 
1 ,87 .77 ,105 ,209 ,219 ,251, 
19 ,0 ,0 ,0 ,0 ,0 ,0 
150 DATA 0 ,104 ,73 ,73 ,218 
„219 .251 ,110 ,77 ,73 ,218 ,2 
7 ,31 ,31 ,110 ,13 ,77 ,209 ,25 
1,31 ,31 ,110 ,77 ,105 ,218 ,2 


ROT= 0 

420.74 .0, 
‚170 ‚0 ‚202 ‚0 
‚42,1 ‚74 „l 
,170 ,1 ,202 ,1 , 
,42 ,2 ,74 ,2 ,10 





‚72 
„13 


,105 ,77 ,218 
,13 ,.77 ,218 , 
13 ,77 ,218 ,2 
,218 ,251 


,209 
‚141 
13 ‚1 
SE atr 


‚13 „77 
‚13 ‚13 
110 ‚13 
431,110 
‚31 ‚6 

‚40 ‚109 ‚73 ‚213 
‚26 
‚21 
‚21 


+109 ‚20 
‚77 4,21 
‚169 ‚2 
1173, 








de. 


H 
H 
H 
H 
H 
H 
H 
n 
























7 ,223 ,51 ,0 ,0 ,0 ,0 

160 DATA 0 ,72 ,73 ,73 ,218 
,219 ,219 ,74 ,9 ,13 ,141 ,27 , 
31 ,31 ,159 ,13 ,13 ,13 ,141 ,2 
7.0.31 ,31 „31 ‚110 ‚13 ‚13 ‚141 
‚27 ,31 ,31 ,159 ,0 
170 DATA 0 ,72 ,105 
,251 ,31 ,87 ,13 ,13 ,77 ,218 
,219 ,31 ,87 ,13 ,77 ,137 ,219 
+27 ,31 ,87 ,77 ,73 ,209 ,219 , 
219 ,19 ,0 ,0 ,0 ,0 
180 DATA 0,72 ,73 
„251 ,219 „74 ‚105 ‚77 
1.31 ,87 ,73 ,73 ,209 
„31 ,87 ,9 ,13 ,77 ,218 
19 ,2 ,0 ,0 ,0 ,0 
190 DATA 0 ,104 
,219 ,251 ,110 ,13 
51 ,31 ,31 ,78 ,73 ,73 ,218 ,31 
,31 ,31 ,110 ,13 ,77 ,209 ,219 
,219 ,51 ,0 ,0 ,0 ,0 

200 DATA 0 ,72 ,73 ,73 ,218 
,223 ,219 ,74 ,13 ,13 ,141 ,27 
„31 „31 ,31 ,110 ,13 ,13 ,141 , 
27 ,31 ,31 ,31 ,78 ,13 ,13 ,141 
,27 ,31 ,223 ,19 ,0 

210 DATA 0 ,72 ,105 ,77 ,218 
,219 ,219 ,110 ,105 ,73 ,218 , 
251 ,31 ,87 ,13 ,13 ,77 ,218 ,2 
51 ,31 ,87 ,13 ,77 ,137 ,219 ,2 
19 ,187 ,0 ,0 ,0 ,0 ,0 

220 DATA 0 ,40 ,45 ,45 ,45 , 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
,173 ,59 ,63 ,63 ,63 ,78 ,73 , 
73 ,218 ,219 ,219 ,74 ,73 ,73. 
218 ,219 ,219 ,2 ,0, 0 

230 БАТА 0 ,72 ,73 ,73 ,21 
8 ,219 ,219 ,106 ,73 ,73 ,218 , 
219 ,251 ,110 ,77 ,73 ,218 ,31 
.31 ,159 ,9 ,13 ,13 ,141 ,27,3 
1,223 ,19 ,0 ,0 ,0 

260 DIM R1(15),R2(15),R3(15) 
270 FOR I = 0 TO 9: READ W(I): 





‚77 ‚218 


+73 ,218 
‚218 ‚25 
‚27.31 
‚219,2 


173 ,73 ,218 
177 ,209 ,2 


NEXT 

280 DATA 2,1.5,1,.8,.6,.4,.3 
..2,.1,0 

300 GOSUB 310: END 

305 END 

310 HOME HGR2 

320 DATA 54,20,40,20,40,40,5 
4,40,54,60,40,60,0,0 

330 DATA 60,20,60,60,74,60,7 
4,20,0,0 

340 DATA 80,60,80,20,94,20,9 
4,40,80,40,0,0 





350 DATA 114,20,100,20,100,4 
0,110,40,100,40,100,60,114,60,0 














‚0 
360 DATA 120,60,120,20,134,2 
0,134,40,120,40,130,40,134,60,0 











‚0 
370 DATA 154,20,140,20,140,4 
0,150 ,40,140,40,140,60,0,0 

380 DATA 160,60,160,20,174,20 
,174,40,160,40,170,40,174,60,0, 





0 

390 DATA 180,20,180,60,194,60 
,194,20,0,0 

400 DATA 210,20,210,60,0,0 
410 DATA 220,20,234,20,227,2 
0,227,60,200,200 

490 HCOLOR= 3 


500 READ X,Y 
510 HPLOT X,Y 
520 READ X,Y: 
0 THEN 500 
530 IF X - 200 AND Y - 200 THE 
N 590 
540 
550 
590 
600 
610 
620 
630 
40 
640 
650 
660 
670 


IF X = 0 ANDY = 


HPLOT TO X,Y 

GoTO 520 

HCOLOR= 3 

FOR I = 70 TO 150 
HPLOT 60,1 TO 210,1 
NEXT I 
HCOLOR= 0: FOR I = 80 TO 1 
HPLOT 75,I TO 105,I 

HPLOT 120,I TO 150,I 

HPLOT 165,I TO 195,I 

NEXT 

680 RETURN 

700 HOME : PRINT TAB( 15);"SU 
PERFRUIT": PRINT : PRINT 

710 PRINT "VOCE COMECA COM $1. 
CADA JOGADA CUSTA DEZ CENTAV 
08. O JOGO DURA ATE SEU D 
INHEIRO ACABAR.” 

720 PRINT : INVERSE : PRINT "C 
ONTROLES:": NORMAL : PRINT 

730 PRINT "XESPACO»"; TAB( 10) 
;"GIRA AS RODAS/APOSTA": PRINT 
"<1>"; TAB( 10);"LIBERA AS RODA 
s” 

740 PRINT "<2>” TAB( 10)"SEGUR 
A RODA ESQUERDA”: PRINT "<3>” T 
AB( 10)"SEGURA RODA DO MEIO”: Р 
RINT "<4>" ТАВ( 10)"SEGURA RODA 
DIREITA" 

750 PRINT "455" TAB( 10)"EMPUR 
RA RODA ESQ.PARA CIMA": PRINT " 
<6>" ТАВ( 10)"EMPURRA RODA CENT 
RAL PARA CIMA": PRINT "475" TAB 
( 10)"EMPURRA RODA DIR.PARA CIM 
A" 

760 PRINT "«8»" TAB( 10)"EMPUR 
RA RODA ESQ.PARA BAIXO": PRINT 
"<9>" TAB( 10)”EMPURRA RODA CEN 
TRAL P/ BAIXO”: PRINT "<0>” TAB 
( 10)"EMPURRA RODA DIR.PARA BAI 
XO": PRINT "CENTER?" TAB( 10)"R 
ECOLHE PREMIO"; 


765 PRINT : PRINT "<ESPACO> PA 
RA CONTINUAR "; 

770 GET A$: IF A$ < >” ” THE 
N 700 

775 RETURN 


780 FOR A = 0 TO 15: READ RI(A 
),R2(A),R3(A): NEXT 

790 DATA 0,1,2,3,5,6,6,2,0,5 
.3,4,4,6,5,6,4,3,1,2,0,3,0,5,2, 
1,4,6,5,1,0,6,6,1,4,3,2,0,1,5,3 
,2,4,6,6,6,4,5 

820 RETURN 

4000 HOME : PRINT TAB( 10);"V 
ALORES PREMIADOS": PRINT : PRIN 
T 


4010 PRINT "BARRA BARRA BARR 
A"; TAB( 30);W(0) 

4020 PRINT : PRINT "BOLOTA BOL 
OTA BOLOTA"; TAB( 30);W(1) 

4030 PRINT : PRINT "AMEIXA AME 
IXA AMEIXA"; TAB( 30);W(2) 

4040 PRINT : PRINT "MORANGO MO 
RANGO MORANGO”; TAB( 31);W(3) 








CUIDADOS ESPECIAIS 


Verifique se as três partes do co- 
mando DATA ligadas aos objetos são 
lidas na matriz correta. Se tentarmos 
colocar uma cadeia de caracteres de 
um comando DATA em uma matriz nu- 
mérica, receberemos uma mensagem 
de erro, ou uma descrição curta onde 
esperávamos por uma longa. 

Tenha muito cuidado ao combinar a 
ordem das partes do comando DATA 
com a ordem das matrizes nos coman- 
dos READ, pois o mesmo problema po- 
de ocorrer. A ordem é: posição, descri- 
ção curta e descrição longa. 

Faça um “'teste de mesa” na sua 
aventura, depois de ter colocado os ob- 
jetos, para verificar se eles aparecem 
nas posições corretas. 

Use seu mapa quando checar os ob- 
jetos, assegurando-se, assim, de que 
não está perdendo nenhum, 











4050 PRINT : PRINT "PERA PER 
A PERA”; TAB( 31);W(4) 

4060 PRINT : PRINT "SINO SIN 
о SINO”; TAB( 31);W(5) 

4070 PRINT : PRINT "CEREJA CER 
EJA CEREJA”; TAB( 31);W(6) 

4080 PRINT : PRINT "SINO SIN 
0"; TAB( 31) :W(7) 

4090 PRINT PRINT "CEREJA CER 
EJA"; TAB( 31) ;W(7) 

4100 PRINT PRINT "CEREJA"; T 


AB( 31);W(8) 
4110 GET AS: RETURN 


A primeira parte do programa, que 
vai da linha 10 á linha 230, cria uma ta- 
bela de figuras móveis no topo da me- 
mória do micro. Essa figuras são os sim- 
bolos das frutinhas, que podem entáo 
ser desenhadas por intermédio do co- 
mando DRAW. 

As linhas 320 a 670 desenham a má- 
quina caça-níqueis na tela de alta reso- 
lução (nenhuma fruta aparecerá por en- 
quanto). As linhas DATA de 320 a 410 
são usadas para escrever a expressão 
“SUPER-FRUIT”. 

Uma tela com instruções destinadas 
ao jogador é criada pelas linhas que vão 
de 700 a 770. Outra tela, com os resul- 
tados que valem pontos, é escrita pelas 
linhas 4000 a 4100. 

Três matrizes são utilizadas para re- 
presentar as rodas: R1, R2 e R3. A or- 
dem dos símbolos nas rodas é determi- 
nada pela linha DATA 790. 

No próximo artigo, as rodas seráo 
colocadas em movimento. 





ЕЕЕ ЕЛЕЙ ШШШ! 





PROGRAMAÇÃO FIRES 
= UMA ELIPSE NO COTIDIANO 


NADO PARABÓLICO 











GRÁFICA DE CURVAS 






































No primeiro artigo sobre segóes 
cónicas, mostramos como desenhar 
círculos, elipses, parábolas e 
hipérboles no micro. Agora, veremos 
como incorporá-los aos programas. 


Como vimos em alguns exemplos do 
artigo anterior (página 801), as curvas 
cónicas estáo no nosso dia-a-dia, por to- 
da a parte, e muitas vezes nem chega- 
mos a percebé-las. Mas náo é difícil 
identificá-las: basta recorrer 
ções. Se, ao calcularmos a pos 
um objeto em movimento, verif 
que sua coordenada X é dada por 
A*COS T e sua coordenada Y, por 
A*SIN T (onde A é uma distância fixa 
e T, um ángulo que varia), ficará abso- 
lutamente evidente que estamos lidan- 
do com a equação de um círculo. 

Por outro lado, algumas vezes é mais 
fácil analisar o modo como algo se mo- 
ve do que calcular suas equacóes. Se, 
por exemplo, observarmos que a distán- 
cia de um objeto a um ponto é sempre 
constante, saberemos que se trata de um 
círculo, sem precisarmos calcular sua 
equação. Esse tipo de análise também 
se aplica a outras curvas. 


ELIPSE, PARÁBOLA, HIPÉRBOLE 























Uma elipse não difere muito de um GE УХ 
círculo e, assim como este, ё de fácil - < 
identificação. Ela é desenhada quando д Ll \ 

NE $ ес IU 


preso a ela traga parte de uma elipse. 


N | A 
À medida que a escada escorrega, o balde в iN А. 
( : 





um ponto se move de tal maneira que 
a sua distância a um dos focos somada 
à sua distância ao outro foco permane- 
ce sempre constante. 

Uma parábola, por sua vez, é dese- 
nhada quando um ponto se move de tal 
modo que a sua distância a um ponto 
fixo é igual à distância perpendicular a 
uma linha fixa. O ponto fixo correspon- 
de ao foco da parábola. A linha fixa, 
chamada de diretriz, é uma reta perpen- 
dicular ao eixo de simetria da parábola 
e que não corta a mesma — Ou seja, es- 
tá fora dela. Como já vimos, a distân- 
cia da diretriz a um ponto qualquer da 
curva é igual à distância desse mesmo 
ponto até o foco. 

A descrição da hipérbole também é 
simples: ela é obtida quando um ponto 
se move e a distância dele a um ponto 
fixo menos sua distância a outro ponto 
fixo permanece constante. Os pontos fi- 
xos, um em cada metade da hipérbole, 
são seus focos. 

Os programas apresentados a seguir 
demonstram os dois métodos de identi- 
ficação de curvas — isto é, o de equa- 
ções e o de observação do comporta- 
mento de um ponto em movimento. 
Uma vez percebida a presença de um 
certo tipo de curva num programa, fica 
bem mais fácil utilizá-lo. 


A ESCORREGAND! 


O primeiro programa mostra parte de 
uma elipse obtida durante um evento co- 
mum: uma escada escorregando numa 
parede. Observamos que um balde pre- 
so à escada traga parte de uma elipse à 
medida que esta escorrega. 

Suponhamos que a escada tem um 
comprimento de oitocentas unidades e 
que o balde está preso a quinhentas uni- 
dades do pé da escada. A posicáo do 
balde será X=-300*COS (ángulo) e 
Y =500*SIN (ángulo), o que sabemos 
corresponder á equagáo de uma elipse. 


[IL] 


НОМЕ :С = АТМ (1) 

HGR : HCÓLOR= 2 

GOSUB 250 

GOSUB 50 

GOTO 40 

REM ESCADA 

FOR A = 80 TO 0 STEP - 10 

FOR T - 0 TO 250: NEXT 

HPLOT 230 - 150 * Cos (C * 
A),150 TO 228,150 - 150 * SIN 
(C * A) 
10 X = 
120 Y = 90 * 
130 GOSUB 190 


/ 45 


- 56 * COS (С * A) 
SIN (C * A) 


140 
150 
190 
200 
HTAB 
210 
28 * 
220 


PRINT CHR$ (7) 

NEXT 

REM BALDE 

IF Y = 0 THEN VTAB (22): 
(22): PRINT "SPLASH" 
HPLOT 228 * X,154 - Y TO 2 
X,150 - Y 
HPLOT TO 
230 HPLOT TO 
240 HPLOT TO 
RETURN 

250 REM PAREDE 

260 OX - 230 

270 HPLOT OX,0 TO OX,150 

280 HPLOT OX + 8,0 TO OX + 8,1 
50 

290 HPLOT OX * 16,0 TO OX * 16 
,150 

300 FOR Y = 0 TO 150 STEP 10: 
HPLOT OX,Y TO OX * 16,Y 

310 NEXT 

320 RETURN 


10 LET wall=240: LET ladder= 
60: LET bucket=190 

20 GOSUB wall 

30 GOSUB ladder 

35 FLASH O 

40 GOTO 40 

60 FOR a-80 TO 0 STEP -10 

70 PAUSE 25: LET r=a/(180/PI) 
80 PLOT ox-150*C0S (r),oy 

90 DRAW ox-(ox-150*COS (r)), 
oy+150*SIN (r) 

110 LET x--60*COS (r) 

120 LET y=90*SIN (r) 

130 GOSUB bucket 

140 SOUND .1,a/2-15 

150 NEXT a 
160 FLASH 1: 
LASH” 

170 RETURN 
190 PLOT ox*x,oy*y*5: DRAW 0,- 
2 

200 FOR п=оу+у ТО оу+у+2: 
ox*x-2,n: DRAW 4,0 

210 NEXT n 
220 RETURN 
240 BORDER 0: 
CLS 

250 LET 0x=232: LET oy=8 

260 FOR y=1 TO 20: PRINT 

PAPER 2;AT y,29;" ^" 

270 NEXT y 

280 FOR v-oy-1 TO 165 STEP 16: 
PLOT ox,y 

290 DRAW 16,0: PLOT ox,y+8: 
DRAW 16,0: PLOT ox+8,y+8: DRAW 
0,8 

300 NEXT y 

310 PLOT INK 4;ox+B,oy-1: 
DRAW INK 4;-232,0 

320 RETURN 


nu 


10 COLOR 15,4,5:SCREEN2 
15 C-ATN(1)/45 


232 * X,150 - Y 
232 + X,154 - Y 
228 + X,154 - Y: 


PRINT AT 10,5;"SP 


PLOT 


INK 7: PAPER 0: 


20 GOSUB 230:REM<parede> 

30 GOSUB 50:REM<escada> 

40 GOTO 40 

50 FOR AN-80 TO 0 STEP-10 

90 LINE(230-150*COS (C*AN) , 150) - 
(228,150-150*SIN(C*AN)),15 

110 X=-56*COS (C*AN) 

120 Y-90*SIN(C*AN) 

130 GOSUB 200:REM<balde> 

140 FORT=0 TO 500:NEXT 

150 NEXT 

160 RETURN 

200 IF Y=0 THEN Y=4:DRAW"BM160, 
156C1S16LDRDLBR2U2RDLBEBRD2RBRU 
2RDNLDBRRULURBRD2BRUNLUC4 " 

210 LINE(228*X,154-Y) -(232*X,15 
0-Y),15,BF 

220 RETURN 

230 LINE(230,0)-(255,150),6,BF 
250 FOR Y=0 TO 150 STEP 10 

260 LINE(230,Y)-(255,Y),10 

270 NEXT 






















































280 FOR Y=0 TO 150 STEP 20 150 NEXT senha o balde. A parede é traçada pri- 


290 LINE(243,Y)-(243,Y+10),10 160 RETURN meiro, entre as linhas 230 (250 no Ap- 
310 LINE (0,151)-(255,191).3.BF  156C2516LDADLBR2U2ADLBEBADZRSRU Pi) с 320. Depois, a rotina entre as li 
320 RETURN А ы TRONLDBRRULURBRDZORUNLUCA” nhas 50 e 160 desenha a escada em no- 


210 LINE(228+X,154-Y)-(232+X,15 ve posições diferentes a intervalos de 10 





e graus. Essa rotina chama a seguinte, que 
pe fica entre as linhas 190 e 220 (240 no Ap- 
230 LINE(230,0)-(255,150),PSET,  Dle)etem a funcáo de desenhar um bal- 
10 PMODE 3,1:PCLS:SCREEN 1,0:C« BF de para cada posição da escada. As 
ATN(1)/45 240 COLOR 2 coordenadas do balde são calculadas nas 
20 GOSUB 230 250 FOR Y-0 TO 150 STEP 10 linhas 110 e 120, e, como vimos, elas 
y 30 GOSUB 50 260 LINE(230,Y)-(255,Y) , PSET formam a equacào de uma elipse. As 
| | so ato YO: 2TRP 210 270 NEXT 2 RN posicóes anteriores do balde e da esca- 
E 5 280 FOR Y-0 TO STEP da náo sáo apagadas, para que se per- 
| 70 COLOR 4,2 290 LINE(243,Y)-(243,Y+10) ,PSET E 


ceba mais facilmente que o caminho per- 
90 LINE(230-150*COS(C*AN),150)- 300 NEXT Ө É 
f (228,150-150*SIN(C*AN)),PRESET 310 COLOR 3:LINE(0,151)-(255,19 Фо р balde realmente faz parte 
110 X=-56*C0S (CXAN) 1) ,PSET,BF le uma elipse. 
120 Y=90*SIN(C*AN) 320 RETURN 


130 GOSUB 200 
140 FOR T=0 TO 500:NEXT O programa compõe-se de trés roti- NADO PARABOLII 


nas principais — a que desenha a pare- 
de, a que desenha a escada e a que de- Imagine o que acontece quando um 
nadador tenta atravessar um rio de 
águas rápidas. Mesmo que ele tenha co- 
mo alvo um determinado ponto na mar- 
gem oposta, a correnteza certamente o 
desviará um pouco do seu destino. Ca- 
so a velocidade da correnteza se equipa- 
x re à do nadador, a distância do desvio 
+ será igual à metade da largura do rio, 
` e o efeito conjunto das duas velocida- 
des fará com que o nadador percorra 
um caminho parabólico. 

Para entendermos a razão por que is- 
so ocorre, devemos pensar em termos de 
velocidade. O nadador visa sempre um 
ponto na outra margem e nada com uma 
velocidade V, enquanto o rio corre pa- 
ralelamente à margem, com a mesma ve- 
locidade V. Combinando os dois valo- 
res, obtemos a velocidade real do nada- 
dor em relação à margem. 

Esse raciocínio baseia-se na regra do 
paralelogramo de forças, empregada em 
problemas de física. Ela é usada na 
construção de uma parábola, onde a dis- 
tância do nadador ao foco (ponto que 
ele visa na outra margem) é igual à dis- 








Um nadador que se move com a 
velocidade da correnteza do rio percorre 
uma trajetória parabólica. 
























































táncia dele até a diretriz (distáncia per- 
corrida pelo rio no mesmo intervalo de 
tempo). 


(stel 


HGR2 : HCOLOR- 3 
20 GOSUB 50 
30 GOSUB 200 
40 GOTO 40 
50 REM DESENHA RIO 
70 FOR LY = 0 TO 38: HPLOT 0,L 


Y TO 279,LY: NEXT 


80 FOR LY = 153 TO 191: HPLOT 
0,LY TO 279,LY: NEXT 

90 RETURN 

200 FOR T= - 1 TO - .05 STE 
pd 

210 X * - 60 * T * T:Y-- 120 * 


T 
220 AN = АТМ ((Х + 60) / - Y) 


230 GOSUB 300 

240 FX * INT (130 * Y): 
FX,95 TO FX * 8,95 

245 HPLOT FX * 4,91 TO FX * 8, 


HPLOT 


95 

250 HPLOT TO FX * 4,99 
255 NEXT 

260 RETURN 


300 XC = 187 + X:YC = 33 - Y 
310 ХХ = 0:ҮҮ = 6: GOSUB 420 


320 HPLOT INT (XC + XT), INT 
(YC + YT) 

330 RESTORE 

340 FOR N = 1 TO 16 

350 READ XX,YY 

360 GOSUB 420 

370 HPLOT TO XC * XT * .5,YC 
- Y? + .5 

380 NEXT 

390 RETURN 


410 DATA 0,6,-6,0,0,6,6,0,0,6 
,0,14,6,12,0,14,-6,12,0,14,0,18 


CONDIÇÕES DE VISUALIZAÇÃO 

Várias providências podem ser to- 
madas para aperfeiçoar as condições 
de visualização do vídeo. Por exemplo, 
o esforço visual será diminuído com o 
uso de caracteres claros sobre fundo 
escuro. Assim, procure “sintonizar” 
pouco a pouco os controles de contras- 
te e intensidade, até melhorar a defini- 
ção dos caracteres. 

Experimente posicionar sua mesa de 
trabalho de tal maneira que a tela não 
reflita a luz proveniente de janelas ou 
de luminárias. Incline ligeiramente a te- 
la, dirigindo os reflexos para longe de 
seus olhos. Também é aconselhável 
cobrir a tela com um filtro anti-reflexivo 
(à venda em lojas de computadores). 





,2,18,2,22,-2,22,-2,18,0,18 


420 ХТ = XX * COS (AN) - YY * 
SIN (AN) 

430 YT = XX * SIN (AN) + YY * 
COS (AN) 

440 RETURN 


10 BORDER 0: PAPER 0: 
cLs 

20 REM rio 

60 LET parabola=190: LET swim 
mer=300: LET rotate=430 

70 LET a$-" 


INK 7: 


80 FOR n=0 TO 3 
90 PRINT PAPER 4;a$: NEXT n 
100 FOR n=4 TO 18 
110 PRINT PAPER 1;a$: NEXT n 
140 PRINT PAPER INK 6;AT 3 





,15;"F";AT 19,15;"A";AT 3,22;" 
o” 

150 GOSUB parabola 

160 STOP 


190 LET ox=187: LET oy=150 
200 FOR t=-1 TO -0.05 STEP 0.1 
210 LET x=-60*(t*t): LET y=120 
t 

220 LET a-ATN ((x*60)/-y) 

230 PLOT ox-60*y,oy-60: DRAW 
INK 7;10,0: DRAW INK 7;-5,-5: 
DRAW INK 7;0,10: DRAW ІМК 7; 
5,-5 
240 
250 
260 
300 
310 
320 
330 
340 
350 
360 
370 
380 


GOSUB 
NEXT t 
RETURN 
LET ox-ox*x: LET оу=оу+у 
LET x=0: LET y=6 

GOSUB rotate 

PLOT ox+xt,oy+yt 

RESTORE 410 

FOR n=1 TO 17 

READ x,y 

GOSUB rotate 

DRAW xt, yt 

390 NEXT n 

400 LET ox=188: LET oy=150: 
RETURN 

410 DATA -3,0,0,3,3,0,0,-3,-2, 
0,0,-3,-4,0,0,4,0,-4,8,0,0,4,0 
,74,-4,0,0,-4,-4,-4,4,4,4,-4 
430 LET xt-x*COS (a)-y*SIN (а) 
440 LET yt=x*SIN (a)*y*COS (a) 
450 RETURN 


nu 


COLOR 15,9,9:SCREEN2 

GOSUB 50 

GOSUB 200 

GOTO 40 

LINE (0,38)- (255,153) ,5,BF 
DRAW"BM123,158C15816ND2RDNLD 


swimmer 








10 
20 
30 
40 
50 
60 
70 DRAW"BM123,25NRDNRD” 

80 DRAW"BM180,25RD2LU2" 

90 RETURN 

200 FOR T--1 TO -.05 STEP .1 
210 X--60*T*T:Y-120*T 

220 AN-ATN((X*60)/-Y) 


230 GOSUB 300 

240 DRAW"BM"-*STR$ (INT (130*Y))*" 
,95"*"C9R2NGH" 

250 NEXT 

260 RETURN 

300 XC=187+X:YC=33-Y 

310 XX-0:YY-6:GOSUB 420 

320 DRAW”"BM”"+STRS (INT (XC*XT) ) *" 
,"*STR$ (INT (YC-YT) ) 

330 RESTORE 

340 FOR N-1 TO 16 

350 READ XX,YY 

360 GOSUB 420 

370 LINE-(XC+XT+.5,YC-YT+.5),15 
380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6,0 
,14,6,12,0,14,-6,12,0,14,0,18,2 
,18,2,22,-2,22,-2,18,0,18 

420 XT-XX*COS (AN) -YY*SIN (AN) 
430 YT-XX*SIN (AN) *YY*COS (AN) 
440 RETURN 





10 PMODE 3,1:PCLS:SCREEN 1,0 
20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 COLOR 3,2:LINE(0,38)- (255,15 
3),PSET,BF 

60 DRAW"BM123,158C4S16ND2RDNLD" 
70 DRAW"BM123,25NRDNRD" 

B0 DRAW"BM180,25RD2LU2" 

90 RETURN 

200 FOR T=-1 TO .05 STEP .1 
210 X=-60*T*T:Y=120*T 

220 AN=ATN ( (X+60) /-Y) 

230 GOSUB 300 

240 DRAW"BM"*STRS(INT(130*Y))*" 
,95"*" C2R2NGH" 

250 NEXT 

260 RETURN 

300 XC=187+X:YC=33-Y 

¿YE 
320 DRAW"BM"*STRS (INT (XC*XT) ) *" 
,"*STRS$ (INT (YC-YT)) 

330 RESTORE 

340 FOR N=1 TO 16 

350 READ XX, YY 

360 GOSUB 420 

370 LINE -(XC+XT+.5,YC-YT+.5),P 
RESET 

380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6,0 
,14,6,12,0,14,-6,12,0,14,0,18,2 
.18,2,22,-2,22,-2,18,0,18 

420 XT-XX*COS (AN) -YY*SIN (AN) 
430 YT-XX*SIN (AN) *YY*COS (AN) 
440 RETURN 





A primeira seção do programa, nas 
linhas 50 a 160, desenha o rio e as mar- 
gens. A seção seguinte, nas linhas 170 
a 290, usa a equação da parábola (linha 
210) para calcular a posição do nadador. 
A rotina do nadador está entre as linhas 
300 e 400. Ela recorre à rotina de rota- 
ção (linhas 420 a 450) para garantir que 
o nadador seja desenhado com o ângu- 





lo correto, ou seja, para que esteja vi- 
sando sempre o mesmo ponto na outra 
margem (que, neste caso, corresponde 
ao foco da parábola). O formato do na- 
dador é definido pela linha DATA 410. 


CÍRCULOS E POLÍGONOS 


Para o computador, um círculo na- 
da mais é do que um polígono de mui- 
tos lados. Quanto maior for o número 
de lados, mais lisa será a curva. Os usuá- 
rios do Apple já devem ter percebido 
que temos usado polígonos para obter 
círculos, compensando a lamentável fal- 
ta do comando CIRCLE. No programa 
a seguir, eles veráo que as linhas 70, 75 
e 80 simulam um comando CIRCLE pa- 
ra o desenho de um círculo de raio 70 
e com centro em 127,95. Por uma ques- 
tào visual, fizemos o raio na direcào Y 
um pouco menor (65 em vez de 70). Ca- 
so contrário, o círculo ficaria oval, apa- 
rentando ser uma elipse. 


Ге) 


10 РІ = 4 * ATN (1) 

60 HOME : HGR : HCOLOR= 1 

69 HPLOT 197,85 

70 FOR TH - 0 TO 2 * PI STEP P 
I / 16 

75 CX - 70 * COS (TH) * 127:CY 
= 65 * SIN (TH) + 95 

80 HPLOT TO CX,CY: NEXT 

90 VTAB (23): INPUT "FORNECER 
ANGULO" "¡A 

100 А = А * АТМ (1) / 45 

110 GOSUB 260 

130 HOME : VTAB (23): INPUT "J 





OGA NOVAMENTE (S/N) ";ANS 


140 IF ANS = ”S” THEN 10 

150 IF ANS < > "Nº THEN 130 
160 HOME : TEXT : END 

260 TH = 2*A 

270 N = 0 

280 HPLOT 185,95 

300 HPLOT TO 127 + 58 * cos 


(TH),95 - 58 * SIN (TH) 
310 TH = TH +2 * A 


330 N=N+1 
340 IF N < 15 THEN 300 
350 RETURN 


10 LET ox=100: LET oy=90 
20 LET polygon=260 


30 PAPER 0: INK 6 

40 BORDER 0 

50 CLS 

80 PRINT INK 7;AT 0,22;"Raio 


do"'TAB 22;"circulo e"'TAB 
22;"82 unid.” 

90 PRINT INK 4;AT 21,0;"Intr 
oduza o angulo"; 


95 CIRCLE 100,90,82 
100 INPUT a 
105 PRINT AT 21,0;” 


110 GOSUB polygon 

120 PRINT AT 21,6;"Outra vez ? 
(8/м)" 

130 LET aS=INKEYS: 
THEN GOTO 20 

140 IF a$-"n" THEN STOP 
150 GOTO 130 

260 LET a*a/(180/PI) 

270 LET at=0 

280 LET t=2*a 

290 PLOT ох%82,оу 

300 FOR n=0 TO 15 

310 LET b=82*C0S (t)+ox: 
=82*SIN (t)+oy 

320 LET b=(b-(PEEK 23677)): 
LET c=(c-(PEEK 23678)): DRAW b 
‚© 
330 
340 
350 
360 


nu 


10 COLOR1,15,15 

20 GOSUB 90 

30 GOSUB 60 

40 GOSUB 120 

50 CLS:END 

60 SCREEN2 

70 CIRCLE (127,95) ,70, 13:CIRCLE( 
127,95),60,13:PAINT(127,30),13 
80 GOTO 260 

90 CLS:LOCATE9,10:INPUT"Forneca 
um ângulo ";A 

100 A=A*ATN(1)/45 

110 RETURN 

120 SCREENO:CLS 

130 LOCATES, 10: INPUT" Joga novam 
ente (s/n) ";ANS 

140 IF AN$-" OR AN$-"sa" 
RUN 

150 IF ANS<>"N" 
EN 120 

160 RETURN 

260 TH=2*A 

270 к-0 

280 DRAW"BM185,95” 

300 LINE-(127*58*COS (TH) ,95-58* 
SIN(TH)),1 

310 TH-TH*2*A 

320 PLAY"T255L64U"*STRS (15-N) *" 
CAGF" 

330 N=N+1 

340 ІҒ М<15 THEN 300 


IF a$="s” 


LET c 


SOUND 0.01, (n*5)-20 
LET t-t*2*a 

NEXT n 

RETURN 





THEN 


AND AN$C»"n" TH 


350 IF INKEYS-"" THEN 350 
360 


RETURN 





10 PMODE 3,1 

60 PCLS:SCREEN 1,0 

70 CIRCLE (127,95) ,70, 4: CIRCLE (1 
27,95) ,60,4: PAINT (127,30) ,4 

80 FOR G=1 TO 2000:NEXT:COLOR 2 
90 CLS:PRINT:INPUT^QUAL O ANGUL 
o "A 





Efeitos muito interessantes 
podem ser obtidos pela sobreposição 
de curvas cónicas. 


100 А=А*АТМ (1) /45 

110 SCREEN 1,0:GOSUB 260 

120 IF INKEYS="" THEN 120 

130 PRINT:PRINT: INPUT"NOVAMENTE 
(S/N) ";ANS 
140 IF ANS="S” 
150 IF ANS<>"N" 
LS:END 

260 TH=2*A 

270 N=0 

280 DRAW"BM185,95" 

300 LINE-(127*58*COS(TH) ,95-58* 
SIN(TH)),PSET 

310 TH-TH*2*A 

320 PLAY"T20U"*STR$ (31-N*2)*"C" 
330 N-N*1 

340 IF N<15 THEN 300 ELSE RETUR 
N 





THEN 60 
THEN 130 ELSE C 


O programa desenha um circulo e pe- 
de que forneçamos o ángulo que a pri- 
meira linha formará com o lado do cir- 
culo. O ángulo A ou a é convertido pa- 
ra Teta (TH ou t) na linha 260 da roti- 
na que desenha o polígono. O nümero 
de lados foi restrito a quinze (linha 340) 
para o diagrama nào ficar parecendo 
apenas um emaranhado de linhas. 

Se fornecermos um ángulo pequeno, 
o polígono se assemelhará a um círcu- 
lo. Com ángulos maiores, a forma mais 
provável será a de uma estrela. 


RTE POR COMPUTADOR 


O programa a seguir desenha hipér- 
boles com diferentes excentricidades e, 
sobre elas, várias elipses. Podemos com- 
binar outros tipos de curva para obter 
desenhos mais complexos — basta dar 
asas à imaginação. 


(41%! 


10 HOME : HGR2 : HCOLOR= 3 
20 C ATN (1) / 453P7=.4 2 
ATN (1) 

30 GOSUB 70 

40 GOSUB 255 












50 GOTO 50 


70 FOR E - 1 TO 1.25 STEP .02 
100A - 22:B- A * SQR (E * E 
EN 

110 HPLOT 128 + INT (A / COS 
(- 80 * C)),95 - INT (B* T 

AN ( - 80 * C)) 

130 FOR TH = - 80 TO 80 STEP 
20 

140 Х = А / COS (TH * С) 


150 Ү = В * TAN (TH * С) 

160 HPLOT TO 128 + X,95 - Y 
170 NEXT 

180 HPLOT 127 + INT (A / COS 
(100 * C)),95 - INT (B * TAN 
(100 * C)) 

190 FOR TH - 100 TO 260 STEP 2 
[] 

200 Х = А / COS (TH * C) 

210 Y = B * TAN (TH * C) 

220 HPLOT TO 127 + X,95 - Y 
230 NEXT TH,E 

250 RETURN 

255 HCOLOR- 2: HPLOT 222,95 
260 FOR E = 1 TO .1 STEP - .0 
3 

270 FOR AN = O TO 2 * PI STEP 
PI / 16 

280 CX = 95 * COS (AN) + 127:C 
Ү = 90 * Е * SIN (AN) + 95 
290 HPLOT TO CX,CY: NEXT AN 
300 NEXT E: RETURN 

10 BORDER O: PAPER O: INK 7: 
сїз 

20 LET hiperbola=80 

30 LET elipse-270 

40 GOSUB hiperbola 

50 GOSUB elipse 

60 GOTO 60 

80 LET ox=128: LET oy=87 

90 FOR e=1 TO 2 STEP 0.05 





100 LET a-22: LET b*a*(SQR (e^ 
2-1) 

102 LET h=1 

104 LET f=ox+(a/COS (-1.396)) 
106 LET g-oy*(b*TAN (-1.396)) 
108 IF q<0 THEN LET h=0 

110 PLOT INVERSE l; OVER lif, 
h 

120 IF g»0 THEN PLOT INK 6;f 
|) 

130 FOR t--80 TO 80 STEP 20 
135 LET r-t/(180/PI) 

140 LET x-a/COS (r): LET y-b* 
TAN (r) 

142 LET с=оу+у: LET d=0x+x 

150 THEN LET def*g*(f- 
8) /(с-9): РОТ d,h: LET c=0 
160 IF c>175 THEN LET d=d-((d 
-PEEK 23677)*(c-175)/(c-PEEK 
23678)): LET c-175 

170 DRAW INK 6;d-PEEK 23677,c 
-PEEK 23678: NEXT t 


172 LET f-ox*(a/COS (1.75)) 
174 LET g-oy*(b*TAN (1.75)) 
176 PLOT INVERSE l; OVER lif, 


h 
178 IF 9<0 THEN LET h=0 


О ЕЕ a E DU D^ P E TI 


180 IF 9>0 THEN PLOT INK 6;f 
‚a 

190 FOR t=100 TO 260 STEP 20 
195 LET r-t/(180/PI) 

200 LET x-a/(COS (r)): LET y-b 
*TAN (r) 

.202 LET c-oy*y: LET d-ox*x 

204 ТЕ һ=0 THEN LET d-f*g*(f- 
d)/(c-9): PLOT d,h: LET c=0 


206 LET h=1 

210 1F c>175 THEN LET d=0-((d 
-РЕЕК 23677) * (с-175) / (с-РЕЕК 
23678)): ГЕТ с=175 

220 DRAW INK 6;4-РЕЕК 23677,с 
PEEK 23678 
230 NEXT t: 
250 RETURN 
270 FOR e=0.5 TO 0.98 STEP 
0.04 

280 LET a-100: 
-e^2)) 

290 PLOT ox*a,oy 

300 FOR t-0 TO 360 STEP 10 

305 LET r=t/(180/PI) 

310 LET x=a*COS (r) 

320 LET y=b*SIN (r) 

330 DRAW x-(PEEK 23677)+ox,y-( 
PEEK 23678)+oy 

340 NEXT t: NEXT e 

360 RETURN 


nu 


10 COLOR 1,15,15:SCREEN 2 

20 C=ATN(1)/45 

30 GOSUB 70 

40 GOSUB 260 

50 GOTO 50 

70 FOR Е=1 TO 1.25 STEP .02 

100 A=22:B=A*SQR (E*E-1) 

110 DRAW"BM"+STRS (128+INT(A/COS 
(-80*C))) *","*STR$ (95-INT (B*TAN 
(-80*C))) 

130 FOR TH--80 TO 80 STEP 20 
140 /COS (TH*C) 

150 Y-B*TAN(TH*C) 

160 LINE-(128+X,95-Y),1 

170 NEXT 

180 DRAW"BM"+STRS (127+INT(A/COS 
(100*C)))+","+STRS (95-INT (BATAN 
(100*C))) 


NEXT e 


LET b=a*(SQR (1 





190 FOR TH=100 TO 260 STEP 20 
200 X=A/COS(TH*C) 

210 Y=BATAN(TH*C) 

220 LINE-(127+X,95-Y),1 

230 NEXT TH,E 

250 RETURN 

260 FOR E=1 TO .1 STEP -.03 
270 CIRCLE (127,95),95,8,,,E 
280 NEXT:RETURN 





10 PMODE 3,1:PCLS2:SCREEN 1,0 
20 C=ATN(1)/45 

30 GOSUB 70 

40 GOSUB 260 

50 GOTO 50 

70 FOR E=1 TO 1.25 STEP .02 
100 A=22:B=A*SQR(E*E-1) 

110 DRAW"BM"+STRS (128+INT(A/COS 




















A equação para um círculo também 
é usada para os polígonos. 


(-80*C) )) *" , "*STRS (95- INT (BATAN 
(-80*C))) 


130 FOR TH=-80 TO 80 STEP 20 
140 X=A/COS(TH*C) 

150 Y-B*TAN(TH*C) 

160 LINE-(128*X,95-Y) , PSET 

170 NEXT 

180 DRAW"BM"+STRS (127+INT (A/COS 
(100*C)))+","+STRS (95-INT (B*TAN 
(100*C))) 

190 FOR T4=100 TO 260 STEP 20 
200 X=A/COS(TH*C) 

210 Y=B*TAN(TH*C) 

220 LINE-(127*X,95-Y) , PSET 

230 NEXT TH,E 

250 RETURN 

260 FOR E-1 TO .1 STEP .03 

270 CIRCLE(127,95),95,3,E 

280 NEXT:RETURN 


Tanto a elipse quanto a hipérbole po- 
dem ser desenhadas com excentricidades 
diferentes — este é o papel que cabe à 
variável E ou e. 

Para as elipses, E varia de O até 1, 
fazendo-as ir desde um círculo até uma 
reta. No programa, E varia de .5 a .98, 
o que garante que as elipses sejam sufi- 
cientemente abertas. 

Nas hipérboles, E pode variar de 1 até 
o infinito, mas, novamente, o progra- 
ma restringe o intervalo, fazendo com 
que E varie de 1 a 2. Quanto maior for 
E, mais próxima a hipérbole estará de 
uma reta. 

É muito fácil calcular a excentrici 
dade de uma elipse ou de uma hipéi 
bole, Para uma elipse de equações 
X = A*COS T e Y = B*SIN T, a fórmu- 
la será E*=B*/A?—1, como pode ser 
observado na linha 280 do programa pa- 
ra o Spectrum. Os outros micros não 
precisam calcular a variável E, que é 
simplesmente incorporada ao comando 
CIRCLE (MSX e TRS-Color) ou à si- 
mulacào do mesmo (Apple, linha 280). 

Para uma hipérbole cujas equacóes 
sào do tipo X2 A/COS Te Y =B*TAN 
T, temos E? - 1— B//A?. Uma versão 
adaptada dessa fórmula é utilizada na 
linha 100 do programa. 














OS SEGREDOS 
DO SPECTRUM (1) 


Existem muitos recursos “ocultos” n 
ROM do ZX Spectrum. Conhecendo-os, 
você poderá empregar fantásticos 
truques de programação em BASIC, 
obtendo o máximo de seu computador. 


O micro Sinclair ZX Spectrum ilus- 
tra muito bem o famoso ditado “Чата- 
nho não é documento”. Os felizes usuá- 
rios dessa popular maquininha, que já 
tiveram a oportunidade de conhecer 
mais a fundo seus recursos técnicos, po- 
dem testemunhar o quanto eles são po- 
derosos — mais até do que os encontra- 
dos em muitos microcomputadores pro- 
fissionais, maiores e mais caros. 

Na série de artigos que iniciamos 
aqui, você verá de que modo pode ex- 
plorar alguns “recursos secretos” do 
Spectrum e de seus compatíveis nacio- 
nais (como o TK-90X e o TK-95 da Mi- 
crodigital) e internacionais. 

Por que ''secretos"? Como vocé 
mesmo terá oportunidade de verificar, 
tais recursos náo estáo documentados 
no Manual de Operação e, portanto, são 
desconhecidos da grande maioria dos 
usuários. 


A TELA PROTEGIDA 


É provável que vocé ainda náo tenha 
descoberto a possibilidade de escrever 
nas duas linhas da parte de baixo da te- 
la. Normalmente, náo se usa o coman- 
do PRINT para escrever nessas linhas, 
pois elas sáo reservadas para a entrada 
de dados (INPUT), para a entrada e edi- 
ção de programas e para a impressão de 
pa de erro do interpretador BA- 
SIC muito fácil, porém, modificar 
um comando PRINT de tal maneira que 
se possa utilizar essa área independente 
da tela: 


10 PRINT 0;"Mensagem" 


O comando funciona evidentemente 
dentro de um programa. O nümero ze- 
ro, colocado entre o PRINT e a mensa- 
gem a ser escrita, provoca o efeito de- 
sejado. Para limpar a parte de baixo da 
tela sem afetar a área normal de escri- 
ta, use a instrução: 


20 INPUT "" 

Procure náo deixar um espaco em 
branco entre as aspas, pois o comando 
náo funcionará. 

Experimentando um pouco mais, vo- 
cé fará novas descobertas sobre a parte 
inferior da tela. Verá, por exemplo, que 
ela náo é limitada ás duas linhas antes 
mencionadas. Dessa maneira, se mais 
palavras forem incorporadas ao progra- 
ma, a parte de baixo se expandirá, “em- 
purrando” para cima a parte superior 
da tela. 

Pode-se também usar o comando 
PRINT AT na parte inferior da tela, 
neste caso, porém, a numeração deve ser 
independente. 

Tente o seguinte: 


10 PRINT 0;"INPUT";AT 12,0; 
"APRESENTA DICAS" 


Se vocé quiser limpar a parte de bai- 
xo, após uma pequena pausa, acrescen- 
te estas linhas: 


20 PAUSE O 
30 INPUT "":PAUSE O 


E, para obter sucessivas repetigóes,' 
acrescente: 


40 GOTO 10 


Finalmente, se para vocé é difícil per- 
ceber onde comega cada área indepen- 
dente da tela, adicione ao programa a 
linha a seguir, e rode-o novamente. Co- 
mo vocé verá, o comando BORDER co- 
loca uma moldura de cor diferente na 
parte de cima da tela. 


5 BORDER 2 


AS 


Mas para que servem esses truques? 
Tudo depende de sua capacidade de co- 
locar a imaginação para funcionar. 

A escrita na parte inferior da tela po- 
deria ser utilizada, entre outras coisas, 
para deixar fora da área principal as 
mensagens de prontidão para entrada de 
dados. Assim, ao realizar, por exemplo, 
uma animação gráfica, será possível co- 
locar mensagens num ponto em que não 
atrapalhem o movimento nem sejam 
destruídas por ele. 





COMO ESCREVER NAS 
LINHAS RESERVADAS DA TELA 

E DELIMITAÇÃO DAS ÁREAS 
INDEPENDENTES DA TELA 
UMA TELA LISTRADA 





Outra aplicação importante consiste 
na criação de “janelas”: áreas indepen- 
dentes de texto ou de gráficos, muito 
usadas nos “pacotes” mais modernos 
para micros profissionais. 


ЏИМА ТЕГА ШЅТВА! 


Pode-se obter um outro efeito inte- 
ressante de tela quando o computador 
está sem fazer nada — aguardando, por 
exemplo, que uma tecla seja pressiona- 
da (função INKEY$). Nesse tipo de si- 
tuação, sofistique seu programa com a 
rotina apresentada a seguir, Ela indica 
o estado de espera, fazendo a moldura 
da tela exibir continuamente um listra- 
do cambiante de cores: 


1 GOTO 100 

2 BORDER 1:BORDER 2:BORDER 4: 
BORDER 5:BORDER 6:BORDER 7: 
PAUSE 1:IF INKEYS="" THEN GOTO 
10 

3 LET XS=INKEY$: RETURN 

80 REM 
90 REM PROGRAMA PRINCIPAL 
95 REM 
100 GOSUB 10 

110 PRINT XS:GOTO 100 





A instrução da linha 2, PAUSE 1, 
sincroniza as mudanças nas cores da 
moldura de modo que ocorram simul- 
taneamente ao inicio da varredura da te- 
la. Assim, elas parecem estar estacioná- 
rias. Experimente tirar o PAUSE 1 pa- 
ra ver o que acontece. 

O número de comandos BORDER 
também desempenha uma fungáo: co- 
mandos que estejam a mais ou a menos 
forçarão uma perda da sincronização. 

Introduza a rotina da linha 2 no co- 
meço do programa principal, que deve 
ser colocado a partir da linha 100. A li- 
nha 1 serve apenas para pular até o іпі- 
cio do programa. O truque é necessário, 
pois o GOTO existente na linha 2 pro- 
vocará um grande retardo se a sub-roti- 
na estiver no final da listagem, Como o 
interpretador BASIC procura a linha de 
destino a partir do início do programa, 
sempre que encontra um GOTO, a de- 
mora será maior se houver um longo 
programa antes da linha que contém a 
instrução de desvio. 





Se vocé já tem as duas partes ante- 
riores deste programa gravadas em dis- 
co ou fita, carregue-as na memória do 
micro e digite as linhas que faltam. O 
programa estará completo e você pode- 
rá começar a usá-lo para manter um re- 
gistro de todos os seus compromissos fi- 
nanceiros, sociais ou de saúde. 

É aconselhável que releia as instru- 
ções para a utilização do programa da- 
das nos dois primeiros artigos da série. 
Instruções adicionais sobre gravação e 
leitura de dados da fita ou disco são for- 
necidas a seguir. 

É fácil lidar com o programa. O me- 
nu principal permite que você escolha 
exatamente o que deseja, em cada situa- 
ção. A todo instante, você encontrará 
uma mensagem indicando como proce- 
der. Todos os pontos de entrada de da- 
dos têm uma rotina de verificação. Por- 
tanto, não se preocupe muito em digi- 
tar dados incompatíveis — o programa 
simplesmente voltará a solicitar o dado. 


GRAVAÇÃO DOS DADO! 


Após entrar os dados de sua agenda, 
escolha a opção 8 para gravá-los. No 
Apple II, o programa prevê o emprego 
de um drive; nos demais micros, de fita 
cassete. Há uma rotina especial para 
quem utiliza o TRS-Color com drives. 
Se vocé usa fita, deixe o gravador pre- 
parado para receber os dados quando 
solicitar a opção 8. 

Ao usar novamente o programa, res- 
ponda S à pergunta “Você tem listas de 
dados?”. Os dados preexistentes serão 
carregados para a memória, podendo 
ser atualizados, apagados, listados. An- 
tes de teclar S, deixe o gravador pronto 
para ler a fita com os dados. E 

O nome para esse arquivo é “DIÁ- 
RIO”. Assim, adote outro nome para 
o programa (CALENDÁRIO, por 
exemplo). 


LET M4=0: ГЕТ А4=0 

INPUT "ANO:";YR: IF YR<175 
YR>29999 THEN GOTO 1770 
GOSUB 640 

GOSUB 2480 
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1800 
1810 
1820 
1830 
1920: 
1840 
1850 
1860 
1870 
) 
1880 
2020 
1890 
THEN 
1900 
1910 
1920 
=0 
1930 1Е KB=0 THEN 
INT 4P 

1940 IF P=3 THEN LET KB=KB+1 
1950 PRINT %Р;25( ТО Х2); 

1960 FOR d-] TO 7 

1970 INK 4: IF d=] THEN ІМК 2 
1980 PRINT 4P;Z$( TO KB);sS((d- 
1)*3+1 TO (d-1)*3+3); 

1990 NEXT d 

2000 INK 7 

2010 RETURN 

2020 PRINT 

2030 IF P-3 THEN PRINT AT 10,4 
; FLASH 1;"SAIDA PARA A IMPRESS 
ORA" 

2040 LET M5=0: 
*0: LET W2-0: L 


св 

РОКЕ 23692,255 
PRINT ФР; "АМО ";YR 
PRINT 4P: LET KB=0: 
PRINT 4P 

GOSUB 2460 

FOR z=1 TO 12 

LET MO=z 

PRINT 4P;MS(MO*9-8 TO MO*9 


GOSUB 


LET T2-5: LET 82-0: GOSUR 


IF P-2 THEN IF INKEYS-"" 
GOTO 1890 
NEXT z 
RETURN 
LET X2=0: 


LET С2=0: LET 02 


LET X227: PR 


LET XP= 
A$7"": 


LET X2 
LET D$ 
2050 IF S2=1 
LET W2=4 
2060 IF S2=0 THEN 
T 92-3 

2070 ТЕ Р=3 THEN 
: LET 42=42+1 
2080 LET DA*! 
2090 LET KB-MO 
M5-KB 

2100 GOSUB 560 
P=FN M(KB) 

2110 PRINT 4P;Z5( TO XP*W2); 
2120 LET DA-0 

2130 PRINT 4P;ZS$( TO X2); 

2140 LET DA-DA*l: LET. D$7A$* (ST 
R$ (DA))+" ": TF LEN DS<W2 THEN 
LET D$=D$+Z$( TO W2-LEN D$) 
2150 IF A$="” THEN PRINT #P;DS 

+: GOTO 2170 

2160 LET KB=T2: GOSUB 350: 
Т фр; INK KB;D$; 

2170 LET XP=XP+1 

2180 IF NOT (XP>6 OR DA=M5) THE 
N GOTO 2140 
2190 LET XP=0: 


THEN LET A$-" ": 
LET X227: LE 


LET AS=AS+" " 


GOSUB 270: LET 


LET К2=7 


LET X 


PRIN 


PRINT #P: IF S2= 


Apresentamos aqui a parte final do 
nosso programa de agenda e calendário. 
Tendo listado as últimas rotinas, vocé 
poderá, finalmente, explorar todas as 
possibilidades desse versátil programa. 


1 THEN PRINT 4P 

2200 IF DA<>M5 THEN GOTO 2130 
2210 TF MO=ME THEN PRINT 4P 
PRINT 4P;"Domingo de Pascoa 
$(ME*9-8 TO ME*9) ;DE 

2220 IF P=3 THEN PRINT AT 10,0 
:Z8: PRINT AT 10,13;" PRONTO” 












21 APLICAÇÕES 21 














п ROTINAS QUE COMPLETAM INFORMACÁO PARA A MEMÓRIA 
O PROGRAMA E ATUALIZAÇÃO DA INFORMAÇÃO 

п GRAVAÇÃO DAS LISTAS DE W A ROTINA DE IMPRESSÃO 
AGENDA EM FITA W MUDANÇAS PARA 





COMO CARREGAR A SISTEMAS COM DISQUETE 






















2230 RETURN 2280 PRINT г "DIA ENTRADA" 2320 PRINT 4P 
2240 GOSUB 2510 : PRINT AT 8;"Qualquer tecla 2330 FOR t-1 TO 4 
Li 2250 LET T2-0: LET MX-0: LET N2 para"'TAB 181 "proxima entrada” 2340 LET МХ=0 (1) 
=0: LET A$-"": LET CL-0: LET M9 2290 PRINT 4P 2350 IF MX-0 THEN GOTO 2410 
=MO: LET Y9=YR 2300 GOSUB 2460 2360 FOR N-1 TO MX 
2260 GOSUB 2480: CLS 2310 IF MO-ME THEN PRINT #Р; І 2370 LET KS=LS(t,N) 
к 2270 GOSUB 2570: PRINT 4P NK 5;DE;" Domingo de Pascoa” 2380 LET KB=t 






7830 11 12 
13 1416161718 
19 2º 24222527 












































2390 LET K2=3: GOSUB 470: IF K2 
=1 THEN PRINT ФР; INK Z(t);KS( 
2 TO 3);" ";K$(10 TO ) 

2400 NEXT N 

2410 IF INKEYS="" THEN GOTO 24 
10 
2420 
2430 
2440 
40 


NEXT t 
РОН 1=1 TO 100: NEXT 1 
IF INKEYS-"" THEN GOTO 24 


LET MO-M9: LET YR-Y9: RETU 


IF INKEYS="" THEN GOTO 24 


RETURN 
PRINT : PRINT "DESEJA IMPR 
(S/N) ?": LET KS$-"sn": GOS 
UB 1480 

2490 LET P=2 
р-3 

2500 RETURN 
2510 INPUT 


IF KB=1 THEN LET 


"MES ?";MO 


APLICACÓES PROFISSIONAIS 
DO PROGRAMA DE AGENDA 

O programa de agenda e calendário, 
além de funcionar bem para a marca- 
ção e acompanhamento de compromis- 
sos e atividades de natureza pessoal, 
pode ter diversas aplicações profissio- 
nais, tal como a marcação de consul- 
tas em uma clínica médica ou odonto- 
lógica. Para isso, será necessário mo- 
dificar o programa em alguns pontos, 
pois o nível e o tipo de informações que 
ima agenda profissional requer são 
bem diferentes dos de uma agenda 
pessoal. 

Tomemos como e 
profissional de um de! 
formações como da 
sulta, nome, sexo 
ela pode incorporar, 
do — entre eles, 
adotado (obtur: 
ção de prótese 
ta para a con 
será realizada. 
incluídos, como o saldó 
ceiro do paciente e a fonte pagadora 
(convênio, por exemplo). 

Os relatórios obtidos a partir de uma 
agenda também são muito diferentes 
para um profissional. No caso do den- 
tista, ele poderia precisar não só da 
agenda diária impressa, com a lista dos 
pacientes a serem atendidos e demais 

di 























































b em que ela 
podem ser 


2520 IF MO<1 OR MO>12 THEN GOT 
0 2510 

2530 INPUT "ANO ?";YR 

2540 IF YR<1735 OR YR>29999 THE 
N GOTO 2530 

2550 GOSUB 640 

2560 RETURN 

2570 PRINT 4P; PAPER 1; 
$(MO*9-B TO MO*9);" ";YR 
2580 RETURN 


INK 7;M 





2240 'IMPRIME MES -Т2-52 

2250 M5=0:XP=0:X2=0:42=0:A29="" 
:D29="" 

2260 IF S2-1 THEN A2$-" ":W2-4 
2270 IF S2=0 THEN X2=7:W2=3 
2280 IF P=2 THEN A2$-A2$*" ":W2 
=W2+1 
2290 
2300 
2310 
2320 
32); 
2330 
2340 


DA=1 

KB=MO:GOSUB 230:M5=KB 
GOSUB 560:K2=7:XP=FNM(KB) 
PRINT 4-P, STRINGS (XP* (W2) , 


DA=0 

REM 

PRINT 4-P, STRINGS (X2," "); 
| D2S=AZS+MIDS (STRS ( 
LEN (D28)«W2 THEN 


IF AZ$="" THEN PRINT $-P,D 
2400 

:GOSUB 310:MIDS(D2S, 
B) : PRINT&-P,D2$; 

*1 

JOT (XP>6 OR DA=M5) т 


2420 XP=0:PRINT #-P:IF S2= E 
N PRINT4-P 

2430 IF DA<>M5 THEN 2340 

2440 IF MO-ME THEN PRINT 4-P* 
INT$-P,"DOMINGO DE PASCOA ";MID 
S (MNS,ME*9-8,9) ;DE 

2450 RETURN 

2460 'ROTINA DIARIO 

2470 T2=0:MX=0:N2=0:A$="":CL=0: 
M9-MO:Y9-YR 

2480 GOSUB 2750:GOSUB 2720:CLS 
2490 GOSUB 2820:PRINT %-Р 

2500 PRINT4-P," s. 
2580 

2630 NEXT 


2510 GOSUB 2660 
„нду. 
cya PRINT 
2590 AS-LI c i d 
IF INKEYS-"" THEN 2640 





2520 IF MO=ME 
;"DOMINGO DE 
2530 FOR T2-0 
2540 
2550 

2600 KBS=AS:GOSUB F K2=1 T 
HEN PRINT 4-P, MIDS (STRS (ASC (MID 
$(A$,2,1))),2) ;TAB(3) ;CHRS(CL) ; 
RIGHTS (AS, LEN(AS)-4) 
2610 NEXT:PRINT 4-P 


2560 
2570 

2620 IF P-0 AND INKEYS-"" THEN 
2620 


2650 MO-M9:YR-Y9:RETURN 

2660 'ESPERA POR TECLA F 
2670 Pl=PEEK (136) :P2=PEEK (137) 
2680 PRINT €480,”QUALQUER TECLA 
PARA CONTINUAR” 

2690 IF INKEYS="" THEN 2690 
2700 PRINT €480,STRINGS (30,32); 
:POKE 136,P1:POKE 137,P2 

2710 RETURN 

2720 'IMPRESSAO 

2730 PRINT:PRINT"GOSTARIA DE IM 
PRIMIR (S/N) ?":KB$-"SN":GOSUB 








1590:1F KB=1 THEN P=2 
2740 RETURN ' 
2750 REM 1 
2760 INPUT"MES:";MO 
2770 IF MO<1 OR MO>12 THEN 2760 || 
2780 INPUT” ANO:";YR k 
2790 IF YR<1753 OR YR>29999 THE 
N 2780 
2800 GOSUB 650 
2810 RETURN 
2820 REM 
2830 PRINT MIDS(MNS,MO^9-8,9);" — | 
"YR 
2840 IF P-2 THEN PRINT 4-2,MIDS 
(MNS,MO*9-8,9);" “;YR 
2850 RETURN 
2240 ' imprime més 
2250 M5=0:XP=0:X2=0:42=0:A28="" 
82-1 THEN A25=" ":42=4 
2270 IF S2=0 THEN X2=7:W2=3 
2280 IF P=2 THEN AZS=AZS+" ":W2 
2+1 
DA= 7 
23f) KB-MO:GOSUB 230:M5-KB f 


2 GOSUB 560:K2=7:XP=FNM(KB) 


PRINT4P, STRINGS (XP*W2,32) 
330 DA=0 
2340 REM 
2350 PRINT4P, STRINGS(X2," ")i 
2360 REM 
2370 DA=DA+1:D25=AZS+MIDS (STR: 
DA),2)+" ":IF LEN(D29)<W2 THEN 


D2$-D2$*" " 

2380 IF A2$-"" THEN PRINT4P,D2$ 
GOTO 2400 

2390 KB=T2:GOSUB 310:MIDS(D25,1 
,1)=CHRS (KB) : PRINT4P,D2S; 

2400 XP=XP+1 
2410 IF NOT (| 
2360 
2420 XP=0: 
РВІМТФР, 
2430 IF Di 
2440 IF 





>6 OR DA=M5) THEN 














ІҒ 52-4АТНЕМ 


M9-MO:Y9-YR 
2480 GOSUB 2750:GOSUB 2720:CLS 
2490 GOSUB 2820:PRINT4P, 
2500 PRINT4P,"Dia Comprom 

isso" 





- 


Зе 


2510 GOSUB 2660 

2520 IF MO-ME THEN PRINT4P,"dia 
";DE;"Domingo de Páscoa":PRINT$ 
P, 
2530 
2540 
2550 
2560 
2570 
2580 


FOR T2-0 TO 3 

CL=32 

IF P=2 THEN CL=32 

MX=VAL (LIS (T2,0)) 

IF MX=0 THEN 2620 

FOR N2=1 TO MX 

2590 AS=LIS(T2,N2) 

2600 KB$=AS:GOSUB 470:IF К2=1 Т 
HEN PRINT4P,MIDS (STRS (ASC (MIDS ( 
A$,2,1))) ,2) i TAB(3) ; CHR$ (CL) ; RI 
GHT$ (AS , LEN (AS) -4) 

2610 NEXT:PRINTAP. 

2620 IF P=3 AND INKEYS="" THEN 
2620 
2630 
2640 


NEXT 

IF INKEYS="" THEN 2640 
2650 MO=M9: YR=Y9: RETURN 

2660 RETURN 

2720 ' opcáo impressáo 

2730 PRINT:PRINT"Quer imprimir? 
(S/N)":KB$-"SN":GOSUB 1590:IF 

KB=1 THEN P=2 

2740 RETURN 

2750 ' rotina de data 

2760 INPUT ” Més:”;MO 

2770 IF MO<1 OR MO>12 THEN 2760 

2780 INPUT ” Ano:”;YR 

2790 IF YR<1753 OR YR>29999 THE 

N 2780 

2800 GOSUB 650 

2810 RETURN 

2820 ' título 

2830 PRINTMIDS(MN$,MO*9-8,9) ;" 

"YR 

2840 IF P=2 THEN LPRINT MIDS (MN 

$,M0*9-8,9);" ":ҮВ 

2850 RETURN 


w 


2240 REM IMPRIME 
2250 M5 = 0:XP = 0 
0:A28 = "":028 = " 










2260 IF S2=17T Ж 
W2 = 4 

2270 ІҒ52- 0 {#2 
-3 

2280 IF P= 2 A28 * 
» "2-2 * 

2290 DA = 1 

2300 KB = MO: GOSUB 230:M5 = KB 
2310 GOSUB 560:K2 = 7:XP = ЕМ 
M(KB) 

2320 PRINT SPC( XP * W2) 


2330 РА = 0 
2340 REM 





SPC( X2) 











2$ - A28 * S 
IF ГЕМ (02$) < 
28 = р28 +" " 

*" THEN PRINT D 








D$ (D2$,2): PRIN 


1 










2410 IF NOT (XP > 6 OR DA = M 
5) THEN 2360 

2420 XP = 0: PRINT : 
THEN PRINT 

2430 IF DA < > М5 THEN 2340 
2440 IF MO - ME THEN PRINT "D 
OMINGO DE PASCOA: ";DE;" DE " 
; MIDS (MNS,ME * 9 - 8,9) 

2450 RETURN 

2460 REM ROTINA DIARIO 

2470 T2 = 0:N2 = 0:MX = 0:AS = 
"":CL = 0:М9 = MO:Y9 = YR 

2480 GOSUB 2750: GOSUB 2720: H 


ІР 82 = 1 


ОМЕ 

2490 PRINT DS;”PR4”;P: GOSUB 2 
820: PRINT 

2500 PRINT "DIA COMPROMIS 
so” 


2510 GOSUB 2660 

TE IF MO = ME THEN PRINT DE 
- DOMINGO DE PASCOA" 

2530 FOR T2 = 0 TO 3 

2540 CL = 40 

IF P = 1 THEN CL = 32 

= VAL (LIS(T2,0)) 

IF MX = O THEN 2630 

FOR N2 = 1 TO MX 

AS = LIS(T2,N2) 

KBS = AS: GOSUB 470: IF KZ 

THEN PRINT STRS ( ASC ( 

(A$,2,1))); TAB( 3); CHRS 

2): RIGHTS (AS, LEN (AS) - 4) 









610 NEXT : PRINT 


2620 IF P - 0 AND 72 < 3 THEN 
GET R$ 
2630 NEXT PRINT "<>":P = 0: 


PRINT DS;"PR$";P: GET RS 

2640 MO = M9: YR = Y9: RETURN 
2660 RETURN 

2720 REM OPCAO IMPRESSAO 
2730 PRINT : PRINT PRINT "QU 
ER UMA COPIA IMPRESSA? (S/N) ": 








KB$ - "SN": GOSUB 1590: IF KB = 
1 THEN P = 1 

2740 RETURN 

2750 REM ROTINA DE DADOS 

2760 INPUT ” MES:” 

2770 IF MO < 1 THEN 
2760 

2780 INPUT ” 

2790 IF YR < 2999 
9 THEN 2780 

2800 GOSUB 650 

2810 RETURN 

2820 REM ROTINA TI 

2830 PRINT MO * 9 - 
8.90: UN 

2840 REM 


2850 RETURN 











MUDANCAS PARA DRIVE 


tina um adaptar o progra- 


S-Color a um drive: ela inclui 
uenas modificações nos co- 
lam com o arquivo. 












A agenda é uma espécie de banco 
de dados? 

Sim, de certa forma, uma agenda é 
um banco de dados. Cada linha, reser- 
vada para a anotacáo de um compro- 
misso, corresponderia a um registro de 
banco de dados. As informacóes sobre 
datas, horários e as descricóes seriam 
os campos básicos. 

Tanto é assim que poderíamos uti- 
lizar o programa de banco de dados pu- 
blicado nos artigos das páginas 68, 
688 e 706 para estruturar uma agen- 
da diária. Com esse objetivo, definiría- 
mos os seguintes campos: 


1. DIA: dois caracteres, numérico 

2. MÉS: dois caracteres, numérico 
3. ANO: dois caracteres, numérico 
4. E quatro caracteres, nu 
төгіс 

5. ATIVIDADE: trinta caracteres, alfa- 
bético 

6. TIPO: um caractere, alfabético 

7. STATUS: um caractere, alfabético 


O campo TIPO serviria para identi- 
ficar a categoria de compromisso ou 
atividade (por exemplo, L para lazer, P 
para profissional, F para familiar e as- 
sim por diante). Já o campo STATUS 
teria a finalidade de informar se a ati- 
vidade marcada foi realizada ou nào. 

Depois de entrar seus compromis 
sos utilizando esse esquema, será pos 
sível pesquisar o banco de dados por 
meio das funções de PESQUISAR E 
LISTAR do programa gerenciador de 
bancos de dados. 

Com esse procedimento, você terá 
transformado o programa de banco de 
dados não em uma simples agenda, 
mas num poderoso e flexível instru- 


mento de gestão pessoal 








1750 OPEN"O",41,"DIARIO/DAT” 
1780 PRINT $1,LIS(N,0) 

1810 FOR J=1 TO 4:PRINTH1,STRS( 
ASC(MIDS (LIS(N,P),J,1))) :NEXT J 
1820 PRINT $1,MIDS(LIS(N,P),5) 
1850 CLOSE $1 

1890 OPEN"I",4$1,"DIARIO/DAT" 
1910 LINE INPUT 41,LIS(N,0) 
1950 FOR J=1 TO 4: INPUTH1,NNS:L 
IS(N,P)=LIS(N,P)+CHRS (VAL (NNS) ) 
¿NEXT J 

1960 LINE INPUT 41,NNS:LIS(N,P) 
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——— 
OJOGOARAPOSA  zzxmmr7 o 
xadrez contra um grupo de 
gansos e... Bem, se você quer saber 
E OS GANSOS (1 Ss 
artigo a seguir e entre no jogo. 
€———— = m 














Um programa como o do jogo cha- 
mado Otelo pode ser escrito — como vi- 
mos — de maneira que o computador 
dispute contra um adversário humano 
sem que este fique numa situação de in- 
ferioridade. Mas, neste caso, com um 
pouco de prática, pode-se, quase sem- 
pre, ganhar do computador. 

Nas próximas três seções de Progra- 
mação de Jogos, veremos um programa 
mais sofisticado escrito para que o com- 
putador dispute o jogo chamado A Ra- 
posa e os Gansos. Esse programa ofe- 
rece vários níveis de dificuldade, permi- 
tindo que o jogo se torne tào fácil ou 
tào difícil quanto se queira. 

A Raposa e os Gansos serve para ilus- 
trar muitos dos problemas e dos princí- 
pios envolvidos na elaboração de um 
dos mais interessantes e difíceis jogos 
que existem: o xadrez. 

Para os programadores, contudo, еѕ- 
se jogo apresenta um inconveniente: é 
impossível escrever em BASIC um pro- 
grama de xadrez que valha a pena, pois 





a máquina levaria longo tempo para exe- 
cutar cada jogada. Nos níveis superio- 
res de A Raposa e os Gansos, O progra- 
ma despende um bom tempo para ana- 
lisar cada movimento, chegando mesmo 
a perder cerca de meia hora nos níveis 
mais altos e nas máquinas mais lentas. 
O problema pioraria muito se téntásse- 
mos escrever um jogo de xadrez. 

Para manter nosso trabalho longe das 
dificuldades do código de máquina, pre- 
cisamos de um jogo mais simples. A Ra- 
posa e os Gansos preenche esse requisi- 
to, porque, além de ter várias caracte- 
rísticas do xadrez, é jogado no mesmo 
tipo de tabuleiro. 

O artigo está dividido em trés partes. 
Nesta primeira, vocé terá acesso aos 
princípios que fundamentam o progra- 
ma e dará início á estruturagáo do jo- 
go. Nas duas seguintes, construiremos 
os segmentos restantes. 

Vamos começar analisando o jogo 
propriamente dito e quais as exigências 
necessárias para disputá-lo. 





































































A Raposa e os Gansos é jogado nas 
casas brancas (verdes, nas ilustrações) de 
um tabuleiro de xadrez. Nele, temos 
uma raposa que inicia a disputa em um 
lado do tabuleiro e quatro gansos que 
partem do lado oposto. Um jogador 
controla a raposa e outro, os gansos. 
Para a raposa, o objetivo do jogo é pas- 
sar pelas posições das aves e atingir o la- 
do oposto; para os gansos, tudo se re- 
sume em encurralar a raposa. 

O jogo pode parecer desequilibrado, 
já que se trata de uma disputa de qua- 
tro contra um; entretanto, o programa 
limita as investidas dos gansos para a 
frente, enquanto dá à raposa inteira li- 
berdade de movimentos para a frente e 
para trás. Além disso, ele foi escrito de 
tal maneira que o computador pode 
jogá-lo tanto com a raposa, como com 
os gansos ou mesmo sozinho. 


COMO RESOLVER OS PROBLEMAS AVALIAÇÃO DA POSIÇÃO 


A Raposa e os Gansos apresenta ou- 
tro ponto de semelhança com o xadrez: 





FAÇA DO COMPUTADOR UM 
JOGADOR INTELIGENTE 
RAPOSA, GANSOS E XADREZ 


COMO RESOLVER PROBLEMAS 
DE PROGRAMAÇÃO 
COMO AVALIAR POSIÇÕES 





TEORIA DE PROGRAMAÇÃO 


NO JOGO 





EXPLICANDO O JOGO 


aqui também o fator sorte náo é decisi- 
vo. Na verdade, o resultado depende 
apenas da perícia dos adversários. Em- 
bora seja teoricamente possível para o 
computador aprender a jogar por ten- 
tativa e erro, como um ser humano, es- 
ta náo é a melhor forma de resolver os 
problemas envolvidos no jogo — e, de 
qualquer modo, um programa assim 
concebido náo caberia no seu micro. 

Programar um jogo como A Raposa 
e os Gansos ou como o xadrez é um 
exercício de inteligência artificial. Para 
constituir um desafio a um jogador hu- 
mano, o computador precisa jogar in- 
teligentemente. Porém, a máquina não 
tem condições de olhar para o tabulei- 
ro e captar as relações espaciais entre as 
peças, tal como nós o fazemos. Assim, 
as posições devem ser convertidas em 
valores numéricos que possam ser ana- 
lisados pelo computador. 

Para escrever um programa que per- 
mita ao computador jogar de modo in- 
teligente, deve-se primeiro estudar a na- 
tureza do jogo. Esta determinará o tipo 
de programa. É importante, também, 
ter como referência um método ideal, 
inteiramente documentado. Prestam-se 
bem a esse tratamento a resolução do 
cubo mágico, aberturas de xadrez etc. 
Em comparação com tais exemplos, 
nossa tarefa é mais simples. 

Quando o elemento sorte está presen- 
te, é possível usar uma estratégia de mo- 
vimento único — ou seja, o programa 
analisa as alternativas de jogo apenas 
um movimento á frente para, entáo, es- 
colher a melhor jogada. O ludo, por 
exemplo, seria um candidato a essa es- 
tratégia, exigindo rotinas de decisáo re- 
lativamente simples. 

Em jogos em que a sorte conta pou- 
co ou nada, como em A Raposa e os 
Gansos, pode-se usar uma estratégia de 
movimentos consecutivos, onde se ana- 
lisa uma série de passos adiante para in- 
vestigar os resultados possíveis. Ao en- 
contrar o movimento mais vantajoso, o 
programa o executa. 


Para que o computador possa deci- 
dir qual é o melhor movimento entre vá- 


INICIE O PROGRAMA 


rios possíveis, atribui-se um valor numé- 
rico a cada quadrado do tabuleiro, No 
nosso jogo, é vantajoso para a raposa 
estar o mais à frente possivel — lembre- 
se de que ela ganha o jogo ao atingir o 
lado oposto do tabuleiro. 

As colunas sáo numeradas alternada- 
mente da esquerda para a direita e da 
direita para a esquerda. Assim, como os 
maiores números se alternam á direita 
e à esquerda, a raposa tenderá a se mo- 
ver em linha reta. 

Mas há outro elemento que deve ser 
considerado na avaliação de posições. 
Os cinco quadrados brancos imediata- 
mente à frente da raposa têm um signi- 
ficado especial para o jogo. Se você 
olhar para a figura 1, verá cinco qua- 
drados marcados de A a E. Se houver 
apenas um ganso em um desses quadra- 
dos, a raposa ganhará; se os gansos fo- 
rem dois, mas não estiverem nas posi- 
ções A ou B, ou se eles forem três, po- 
sicionados em ACD, BDE, ACE ou 
BCE, a vitória também caberá à raposa. 

No início de cada turno, quando o 
computador joga tanto pela raposa 
quanto pelos gansos, o programa vai pa- 
ra uma sub-rotina que examina as posi- 
ções de todas as peças e transforma es- 
sa informação em um único número, 
que o computador utiliza para escolher 
a melhor jogada. Quando a decisáo é to- 
mada, o programa converte o número 
novamente em posições. 


BUSCA EM ARVORE 


Os movimentos possíveis de uma po- 
sigáo do tabuleiro podem ser represen- 
tados por uma estrutura em “árvore”, 
com ramificações a partir da posição da 
peça. As alternativas de movimento a 
partir da posição da peça da figura 2, 
por exemplo, estão ilustradas no dese- 
nho da figura 3. Se examinarmos 'um 
movimento adiante, a árvore ficará mais 
complicada, passando a incluir o segun- 
do nível de alternativas, também indi- 
cado na figura 3. 

Observe que nem sempre teremos 
quatro *'ramos”” na estrutura, visto que 
a peça pode estar bloqueada por outra 
ou posicionada em um dos quadrados 
que limitam o tabuleiro. 








COM 





ELERAR O PROGRAMA 


Devido ao grande número de opera- 
ções que devem ser feitas, o BASIC po- 
de se revelar demasiado lento. Mas, com 
o uso de determinados procedimentos, 
é possível acelerar o programa. Inicial- 
mente, deve-se garantir que o programa 
não continue avaliando o próximo pas- 
so do adversário se o seu movimento já 
ganhou o jogo. Isso, no entanto, só eco- 
nomiza tempo no fim do jogo e não du- 
rante o seu desenrolar. 

Em segundo lugar, é preciso levar em 
conta que uma mesma configuração de 
posições pode ser encontrada freqüen- 
temente, a partir de jogadas diferentes. 
Convém, assim, elaborar uma tabela de 
configuragóes comuns com os valores já 
calculados associados a elas. Essa tabe- 
la fará com que o computador pare de 
analisar posições que se repetem. Tenha, 
porém, o cuidado de não armazenar da- 
dos de uma posição cuja avaliação po- 
de ser mais rápida do que uma consulta 
à tabela. Teoricamente, o emprego da 
tabela só é vantajoso nas situações em 






































que o computador avalia três lances 
completos — ou seja, três jogadas de 
ambos os jogadores — ou mais. No en- 
tanto, a prática tem demonstrado que 
a armazenagem só vale realmente a pe- 
na quando cinco ou mais lances estive- 
rem sendo analisados. 

Finalmente, há a possibilidade de se 
utilizar o algoritmo alfa-beta, descober- 
to no início dos anos 60 por pesquisa- 
dores da área de inteligência artificial. 
Recorre-se a ele sempre que, numa bus- 
ca em árvore, a análise envolve mais de 
um nível, 

Voltemos à figura 3, que mostra os 
movimentos possíveis de uma posição 
da raposa. O programa vai avaliar to- 
do o ramo A, depois o ramo B. O me- 
lhor movimento será armazenado pelo 
programa e comparado com os resulta- 
dos de cada ramo. Ao encontrar, em 
qualquer ponto, um resultado pior do 
que um anterior, todo o ramo será re- 
jeitado. 

Quando a árvore se torna mais com- 
plexa, o algoritmo alfa-beta é realmen- 
te útil, podendo descartar cerca de 
99,8% das possibilidades em um está- 
gio bem inicial, com um ganho de tem- 
po similar. Neste jogo, a árvore não 
atingirá tal nível de complexidade. 


INICIE 0 PROGRAMA 


Agora que vocë já tem uma noçào da 
teoria envolvida num jogo como A Ra- 
posa e os Gansos, passe à digitação da 
primeira parte do programa. Ela se en- 
carrega de montar alguns desenhos, mas 
você não os verá por enquanto, se exe- 
cutar o programa. Não se esqueça de 
gravar as linhas digitadas. 


30 DEF FN A(F)=INT (LN (F)/L2 
+.001) 

100 GOTO 2002 
2002 GOSUB 5000 
2006 BORDER 4: 
2008 PRINT AT 8,7; 
ARDE A PREPARACAO” 
5000 FOR J-USR "A" 

READ A: POKE J,A: NEXT J: 
URN 
5070 DATA 20,28,55,127,15,20,40 
.72,0,0,248,252,250,40,20,20,0, 
0,0,7,205,123,60,15,12,20,31,15 
2,248,216,48,224 
6000 LET S$(1)=" 1 2 3 
4" 

6010 


PAPER 4: CLS 
FLASH 1;"AGU 


TO USR "D"47 
RET 


LET 8$(2)*" 8 7 6 
6015 
12” 
6030 


LET S$(3)=" 9 10 11 


LET 8$(4)-"16 15 14 13 
6040 
0" 
6050 


LET 88(5)“" 17 18 19 2 


LET 8$(6)-"24 23 22 21 


6060 


LET 8$(7)*" 25 26 27 2 


LET S$(8)="32 31 30 29 


RETURN 





5 CLS:PRINT €230,”DEFININDO GRA 
FICOS”:GOSUB 4000 

10 SCREEN 1,0:GOTO 10 

4000 PMODE 3:PCLS:DIM GS(5),FX( 
4) ,SQ(10) 

4010 DRAW"BM3,0C2FGR3FRSE3RED3F 
DGLGNFLNG2LH2LH" : PAINT (12,5) ,2: 
PSET (0,1,4) :PSET (14,5,4) :PSET(1 
6,4,4) :СЕТ (0,0) - (19,9) ,65,6 
4020 DRAW"BM18,20C4GL13HLG2R2F2 
ND4R10ND4U2" : PAINT (10,22) ,4:PSE 
T(2,21,1) :GET(0,20) - (19,28) , FX, 
G 

4030 LINE(0,0)- (175,175) , PSET,B 
F:COLOR 3:LINE(8,8)-(167,167),P 
SET, BF 

4040 FOR K-8 TO 128 STEP 40:FOR 
L-28 TO 148 STEP 40:PUT(L,K)-( 
L*19,K*19),SQ, PSET:PUT(L-20,K*2 
0)-(L-1,K*39) SQ, PSET:NEXT L,K 
4050 PUT(68,13)-(87,21),FX,PSET 








4060 FOR K=8 TO 128 STEP 40:PUT 
(K,153)- (K+19,162) ,GS,PSET:NEXT 
4070 TH$-"R2ND6R2BR4D6BR4U3LBR6 
ND3BU2UBF 3ND3R4D3BR5UÓD3NR3F 3BR 
4U3BU2UBF 3BR2ND3R4D3BR7L3U3R3D6 
L3BE3BR4RBR5RBRSR" 

4080 MW$-"ND6F3RU3DGBR9L4U3R4D3 
BE3F3UE2BR3R3DL3D2R3BR6NU6E2F2N 
U6BR3U6D3R4D3BR7L 3U3R3DL 3BR7NUN 
R2D2BR8L3U3R3DL 3BE4BR7R4D3L4D3” 
4090 WGS-"RD6E2F2UGBRA4DGBR4UJ3NL 
2BF3U3BUZUBF 3BRNR3D3R3BR4NUGBR4 
U3NL3BE3BRB8L4D6R4U3BR4D3R4U3L4B 
R8D3R4U3L3BR9BUL2D2R2D2L2BR9L 3U 
3R3DL" 

4100 V$="T402DEFBGACDEGGDCDE” 
4200 C=1:G=0:RETURN 

5000 FOR K=1 TO 14:PUT(200,5)-( 
210,15),SQ, PRESET:PLAY"TSOAC”:P 
UT(200,5)-(210,15),SQ,PSET: PLAY 
"DA" :NEXT: RETURN 


nu 


5 CLS: COLOR 1,11,11:SCREENO 

7 KEYOFF:GOSUB 4000 

10 GOTO 10 

4000 SCREEN2,2:FX=1:A$="":FORK= 
27105:GS(K-1,0)=K:NEXT:FOR K=1TO 
4:68(К,1)-32-К:МЕХТ 

4010 FOR K=] TO 32:READ A:AS=AS 
+CHRS (A) :NEXT:FOR K=1 TO 4:SPRI 
TES (GS(K,0))=AS:NEXT:AS=" 
4020 FOR K=1 TO 32:READ A:AS=AS 
+CHRS (A) :NEXT:SPRITES (FX)=AS: 
4030 LINE (10,10)-(185,185),6,B 
F:LINE (18,18)-(177,177),11,BF 
4050 FOR K=18 TO 138 STEP 40:FO 
R L=38 TO 158 STEP 40:LINE (L,K 
)-(L*19,K*19) , 3, BF:LINE (L-20,K 
*20)-(L-1,K*39) ,3, BF:NEXT:NEXT 
4060 PUT SPRITE FX, (78,20),6 
4070 FOR K=0 TO 3:PUT SPRITE GS 
(K*1,0), (18*K*40,159) , 15: NEXT 
4080 V$="T20003DEFBGACDEGGDCDE” 
4100 DATA 0,0,12,60,12,6,6,7,7, 
3,3,1,0,0,1,2,0,0,0,0,0,8,8,248 
,248,248,248,240,224,192,32,16 
4110 DATA 0,0,0,2,2,6,62,27,3,3 
,2,2,2,2,0,0,0,0,0,0,0,4,8,248, 
240,240,16,16,16,16,0,0 

4200 RETURN 

5000 BEEP:RETURN 


#115] 


2 LOMEM: 
5 HOME 














16384 
GOSUB 4000: GOSUB 310 


10 END 


4000 DATA 02,00,06,00,42,00 
4010 DATA 45,62,63,63,46,45,4 
5,53,63,63,119,41,53,127,9,45,4 
5,45,62,63,63,55,45,45,53,63,63 
,14,45,62,55,55,119,73,40,60,0 
4020 DATA 45,45,44,44,44,54,5 
5,63,62,63,46,45,45,45,45,45,45 
,44,44,172,146,194,27,63,63,63, 


63,55,45,45,45,45,62,63,63,63,4 
6,62,62,126,73,73,37,37,36,0 


4030 FOR A - 768 TO 768 * 88: 
READ E: POKE A,E: NEXT 

4040 POKE 233,3: POKE 232,0 
4050 RETURN 

5000 FOR K = 1 TO 3: PRINT CH 
R$ (7):: NEXT : RETURN 


0 TABULEIRO 


310 LET F-FN A(ABS (P))-30: 
LET B-P/B(F): IF B<XO THEN LET 


B-B*BX: LET F=33-F 
320 LET C-B/B(29): FOR A=8 TO 
1 STEP -1: LET R$(A)-BS(INT (C 


)*1, (2-FN W(A))): LET C=(C-INT 
(C))*16: NEXT A 

330 LET RS(INT (F/4*.8)) (FN C( 

F)+1 TO FN C(F)+4)=FS(FN W(F/4 

-.2)%1) 


340 FOR A*1 TO 8: PRINT AT 2*A 


,8; PAPER 7;S$(A): PRINT AT 2* 
A*1,8; PAPER 7;R$(A): NEXT A: 
RETURN 

310 HGR : HCOLOH- 5: ROT- 0: S 
CALE= 1 








320 Xl = 57:X2 219:Y1 = 0:Y2 
= 159:G8 = 1:FX 2 

330 HPLOT X1,Y1 TO X2,Y1l TO X2 
,Y2 TO X1,Y2 TO X1,Y1 

340 FOR I - 0 TO 7 

350 IN = 20 * (I / 2 < > INT 
(I / 2)) 

360 FOR J = 0 TO 19 

370 FOR K = 0 TO 3 

380 HPLOT 20 * I + J + X1 + 1, 
(40 * K + IN) TO 20 * I+ J+ X 
1 + 1,(40 * K + IN + 19) 

390 NEXT : NEXT : NEXT : HCOLO 
R= 3 

395 DRAW FX AT XL + 3 * 20 * 3 
Yl € 8 

400 FORT = 0 TO 6 STEP 2: DRA 
W GS AT X1 * I * 20 * B,Y1 * 7 
* 20 * 5: NEXT : RETURN 


As linhas que vào de 310 a 350 mos- 
tram o tabuleiro com as cinco pecas em 
posigáo. A sub-rotina é chamada uma 
vez a cada jogada, tanto pela raposa 
quanto pelos gansos. 

As instruções para os demais micros 
fazem parte de uma outra sub-rotina de 
gráficos. 
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AESCOLHA DA 
MEMÓRIA AUXILIAR 


Existem dois tipos de memória auxiliar 
para micros: a fita cassete, barata e 
amplamente disponível, e o disquete, 
poderoso, mas bem mais caro. Veja aqui 
como fazer a melhor escolha. 








Todos os computadores utilizam uma 
parte da memória central, chamada 
RAM (Random Access Memory), para 
armazenar programas e dados que sáo 
entrados pelo teclado ou carregados a 
partir de um periférico de armazena- 
mento de dados. Esses dispositivos ex- 
ternos sáo necessários porque a infor- 
mação armazenada na memória RAM 
desaparece quando o computador é des- 
ligado. 

Existem diversos tipos de dispositivo 
de memória auxiliar destinados a micro- 
computadores. Os principais são as fi- 
tas e os discos. Ambos possibilitam o ar- 
mazenamento permanente de informa- 
gáo, pois seu funcionamento é baseado 
no princípio da gravacào magnética. 
Há, entretanto, uma grande diferenca 
entre eles no que diz respeito ao custo 
de aquisigáo e á capacidade e velocida- 
de de armazenamento. 

Os discos, que constituem os dispo- 
sitivos mais sofisticados e caros da me- 
mória auxiliar, dotam o computador 
pessoal de poderosos recursos, permitin- 
do a programação de aplicações mais 
complexas, como bancos de dados de 








uso profissional e sistemas de controle 
para pequenas empresas. 


ARMAZENAMENTO EM FITA 


érico de armazenamento de 
dados mais utilizado em computadores 
pessoais é o gravador comum de fita cas- 
sete, que alia conveniéncia operacional 
€ baixocusto. Para a maioria dos usuá- 
rios domésticos, este é o ünico fator que 
conta. 

O gravadores de audiocassete existen- 
tes no mercado sáo, quase todos, bas- 
tante adequados para essa finalidade. A 
vantagem adicional é que existe uma 
enorme quantidade de software de pre- 
ço acessivel disponível em fita cassete, 
para a maioria dos computadores pes- 
soais (sobretudo na área de jogos e en- 
tretenimento). 

A tecnologia dos gravadores-cassete 
é muito simples. Seu uso com compu- 
tadores requer apenas que um sinal au- 
divel seja gerado pela interface adequa- 
da para a gravação na fita. Assim, para 
que o sistema funcione a contento, bas- 
ta montar uma conexáo entre o compu- 
tador e o gravador e ajustar corretamen- 
te os níveis de volume e tonalidade. Com 
alguns cuidados periódicos de manuten- 
ção, o usuário não terá problemas por 
longo tempo. 

Bem, isto é o que acontece na teoria! 
Na prática, contudo, não é tão fácil con- 
seguir a combinação ideal entre o peri- 
férico e o micro, 








Q IDADE DE GRAVA: 


Uma boa maneira de contornar difi- 
culdades mais sérias consiste em com- 
prar um gravador apropriado para mi- 
crocomputadores (data recorder). Eles 
diferem dos gravadores comuns por dis- 
porem de circuitos eletrônicos internos 
que processam sinais mais “limpos” de 
transmissão digital. 

Gravadores especiais, como, por 
exemplo, os destinados a computadores 
da linha MSX, dão menos problemas na 
gravação e leitura de dados digitais e, 
também, possibilitam uma conexão 
mais simples com o computador, Nem 
esses aparelhos, porém, estão totalmente 
livres de falhas, pois é o sistema de gra- 
vação em fita, em si, que apresenta cer- 
tas desvantagens técnicas. 

O principal ao se usar fita é aumen- 
tar ao máximo a qualidade de gravação: 
esta é uma área, portanto, sobre a qual 
o usuário pode exercer algum controle. 
Convém lembrar que, mesmo quando a 
gravação foi bem feita, o sinal deteriora- 
se ao ser lido por um gravador de baixa 
qualidade. O resultado é pior ainda 
quando se tenta gravar alguma coisa 
com um aparelho que esteja em más 
condições. 

A qualidade da fita também é muito 
importante, Basicamente, deve-se evitar 
a tentação de utilizar uma fita velha, so- 
bretudo se for de longa duração (C-90 
ou C-120). 

Há um conflito aqui, pois, como a 
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- capacidade da memória é limitada pelo 
cem de gravação empregado, seria 
desejável ampliá-la, usando-se fitas de 
maior duração. Estas, porém, são bem 
mais finas do que as C-30 e, em conse- 
quência, podem sofrer alongamentos 
por efeito do vaivém contínuo e pela 
força relativamente grande exercida pelo 
rebobinamento e avanço rápidos. 

O alongamento determina perda de 
bytes na fita e variações na amplitude 
do sinal. Ambos os efeitos são desastro- 
sos, no que diz respeito às característi- 
cas de leitura por computadores: um 
byte perdido invalida a leitura de todo 
um programa, por exemplo. Na melhor 
das hipóteses, isto pode levar a carrega- 
mentos irregulares. Na pior das hipóte- 
ses, dados são perdidos durante a 
gravação! 

Uma fita C-30 é a melhor opção prá- 
tica: ela suporta quinze minutos de gra- 
vação de cada lado, o que é mais do que 
suficiente para armazenar programas 
muito extensos (até 64 Kbytes) na maio- 
ria dos computadores. Alguns micros 
das linhas Sinclair e TRS-80, entretan- 
to, têm baixas velocidades de transmis- 
são (300 baud), podendo exceder a ca- 
pacidade da fita para dados e progra- 
mas. Nesse caso, recomenda-se usar fi- 
tas C-60 de boa qualidade, mas sempre 
com muito cuidado. 

Um programa de 32 Kbytes, por 
exemplo, gasta somente trés a quatro 
minutos de fita nos micros das linhas 
TRS-Color e MSX, cerca de seis minu- 
tos nos micros da linha Spectrum, e qua- 


se quinze minutos no ZX-81. Faz mais 
sentido, portanto, recorrer a fitas de 
curta duração, gravando-se apenas um 
ou dois programas de cada lado, com 
uma duplicata, para fins de segurança. 
Esse procedimento não só favorece a 
conservação da fita como também tor- 
na muito mais fácil verificar onde está 
o início de uma gravação. 

Existem fitas cassete de alta qualida- 
de, feitas especialmente para gravação 
de dados digitais. Elas são normalmen- 
te disponíveis em três durações: CIO, 
C15 e C20. É sempre bom testá-las an- 
tes de comprá-las em grande quantida- 
de, pois são mais caras do que as fitas 
comuns. 


ТАХА ОЕ ТВАМЅМІЅ$А0 


Os problemas com fitas cassete ficam 
bem mais sérios quando a taxa de trans- 
missão de dados entre gravador e com- 
putador é mais alta. A taxa de transmis- 
são, ou seja, a velocidade com que os 
bytes passam do computador para o 
gravador e vice-versa, é medida em 












bauds. Um baud, a grosso modo, cor- 
responde ao número de bits transmiti- 
dos por segundo (na realidade, o núme- 
ro é calculado com base em um esque- 
ma um pouco mais complicado). 

Quanto mais alta for a taxa de trans- 
missão utilizada pelo computador, me- 
lhor deverá ser a qualidade do gravador 
e da fita cassete, Uma fita pode funcio- 
nar perfeitamente bem com um ZX-81 
ou TRS-80 Modelo I, mas falhará se 
usada com um TK-85 com função 
speed, ou com um MSX. O mesmo pro- 
blema ocorrerá até com computadores 
mais lentos, em determinadas situações 
— por exemplo, na gravação de jogos 
com rotinas próprias de carregamento 
rápido. 








Para evitar os transtornos causados 
por gravadores convencionais de fita 
cassete, alguns fabricantes desenvolve- 
ram um sistema diferente:-6 cassete de 
fita sem fim (alça de-fita). Os mais co- 
nhecidos são o Microdrive e o Wafadri- 














ve, para os micros da linha Sinclair 
Spectrum, mas existem diversas unida- 
des disponíveis para computadores de 
outras marcas, usando interfaces padro- 
nizadas, como o RS-232C. Dispositivos 
desse tipo, infelizmente, náo sáo encon- 
trados no Brasil. 

O acionador de alga de fita (tape 
loop) é um gravador que usa um casse- 
te especial, com uma bobina sem fim 
(em alga). A fita desloca-se apenas em 
uma diregáo, mas muito rapidamente, 
de maneira que o ponto de início de um 
programa é atingido sem que seja neces- 
sário rebobinar a fita. Além de econo- 
mizar tempo, o processo também pro- 
tege a fita do desgaste provocado pelo 
avango e rebobinamento rápidos dos 
gravadores convencionais. 

Um Microdrive, por exemplo, com 
sua velocidade e capacidade (cerca de 
100 Kbytes), permite que se eliminem to- 
dos os problemas das fitas convencio- 
nais. Seu desempenho, em alguns casos, 
aproxima-se do de acionadores de dis- 
quetes, muito maiores e mais caros. 

Há algumas desvantagens, entretan- 
to, nesse tipo de dispositivo: os cartu- 
chos de fita sào bem mais caros, a ofer- 
ta de software no formato adequado é 
menor e, mesmo com maior velocidade 
e capacidade, ele nào se presta para mui- 
tas aplicagóes nos campos educacional 
e profissional. 


АСЕ$$0 $ЕҢ!, 


Em qualquer sistema que utiliza fita, 
a transferéncia de dados entre gravador 
e computador é realizada sob a forma 
de uma seqúéncia contínua de bytes, ou, 
em outras palavras, como uma fila in- 
diana, do primeiro ao último byte. Pa- 
ra levar os dados ou programas de vol- 
ta á memória, é preciso achar o ponto 
de início, e carregar a partir daí. Esse 
tipo de processo é chamado de acesso 
serial. 

Para aplicações mais simples, como 
jogos ou outros programas pequenos, o 
método não apresenta desvantagens sé- 
rias, pois o programa precisa ser locali- 
zado e carregado apenas uma vez. En- 
tretanto, oferece inconvenientes para 
aplicações em que, com freqüéncia, o 
computador precisa carregar dados ou 
segmentos de programa, em ordem di- 
ferente daquela em que estào gravados 
na fita. É o que ocorre com as aplica- 
ções de bancos de dados. Um dispositi- 
vo de alça de fita pode, quando o volu- 
me de dados é pequeno, “'simular”” um 
disquete, através da marcação de ““blo- 
cos” fixos de dados na fita e da locali- 


zação rápida dos mesmos por um soft- 
ware especial. Porém, havendo um 
grande volume de dados, a única solu- 
ção é o acionador de disquetes. 


ACIONADORES DE DISCOS 


Os acionadores de discos são os dis- 
positivos mais rápidos de memória au- 
xiliar para microcomputadores. O tem- 
po médio necessário para a localização 
de blocos de dados no disquete é medi- 
do, muitas vezes, em milésimos de se- 
gundo. A rapidez da gravação e a lei- 
tura de programas torna o dispositivo 
atraente principalmente para quem não 
consegue suportar a lentidão do CSA- 
VE e CLOAD dos gravadores. 

Os discos magnéticos são, além dis- 
so, muito mais confiáveis e seguros do 
que as fitas, desde que se tomem algu- 
mas precauções elementares. A perda de 
bytes por falhas no sistema de leitura ou 
gravação é rara e, quando ocorre, nem 
sempre o arquivo inteiro ou o disco fi- 
cam inutilizados. 

Entretanto, o uso de discos impõe 
uma nova série de tarefas e procedimen- 
tos básicos, que exigem um grau de me- 
ticulosidade e precisão desnecessário 
com as fitas. Se você não tomar cuida- 
do e utilizar inadequadamente os co- 
mandos de manipulagáo de arquivos em 
discos, disponíveis nos sistemas opera- 
cionais, as conseqüéncias poderào ser 
desastrosas. Existe, por exemplo, um 
comando que apaga um disco inteiro, 
em um piscar de olhos. 

A fantástica capacidade de armaze- 
namento dos discos magnéticos é uma 
forte razáo para que se redobrem as pre- 
cauções. Existem modelos com 10 a 20 
megabytes de capacidade total, ou seja, 
aptos a armazenar até vinte milhões de 
caracteres (o que equivale, mais ou me- 
nos, á quantidade de texto de uma en- 
ciclopédia de trinta volumes!). Mais co- 
mumente,'entretanto, a capacidade dos 
disquetes disponíveis para computado- 
res pessoais é bem mais modesta: algo 
entre 150 a 360 Kbytes. Mas, mesmo as- 
sim, corresponde a uma grande quanti- 
dade de dados valiosos. 

Infelizmente, os disquetes sáo vulne- 
ráveis a dobras, a arranhóes e a agres- 
sões físicas do ambiente, tais como umi- 
dade e sujeira. Além disso, sáo sensíveis 
a campos magnéticos causados por alto- 
falantes, aparelhos de TV, motores de 
geladeira etc. 

Para armazenamento de longa dura- 
gáo, a fita constitui um candidato bem 
melhor do que o disco. Assim, grandes 
empresas costumam manter seus arqui- 
vos vitais em bobinas de fitas, confian- 


do aos discos apenas as operações diá- 
rias, mais rápidas. 

Por todas as razões expostas, 
recomenda-se aos usuários de discos que 
façam, regularmente, cópias de seguran- 
ça (back-up) dos arquivos de dados e de 
programas. A frequência dessa opera- 
ção depende muito da quantidade de in- 
formações geradas ou alteradas. 


COMO FUNCIONA UM ACIONADOR 


O funcionamento de um acionador 
de discos não é muito diferente do fun- 
cionamento de um gravador de fitas. O 
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sistema de leitura e gravação trabalha 
sobre um disco, chato, recoberto de ma- 
terial ferromagnético, como a fita, só 
que obedecendo a padrões de qualida- 
de muito mais rigorosos. 

Como o gravador, o acionador de 
discos possui uma cabeça de leitura e 
gravação, que é mantida em contato 
com a superfície magnética. A diferen- 
ça é que a cabeça também pode ser mo- 
vimentada, pulando de trilha para tri- 
lha da mesma maneira que o braço de 
um fonógrafo. Assim, com o disco ro- 
lando em alta velocidade, atinge-se ra- 
pidamente qualquer um de seus pontos. 

Antes de sua utilização, o disco é for- 





matado, ou seja, sua área total é dividi- 
da em trilhas concêntricas e estas, por 
sua vez, em segmentos iguais, chamados 
de setores. Os setores se subdividem em 
blocos, cada qual capaz de armazenar 
entre 128 a 256 bytes de informação. Es- 
ses blocos podem ser imaginados como 
se fossem as “gavetas” de um escaninho. 

Um programa chamado sistema ope- 
racional de discos (DOS) possibilita a 
gravação ou leitura de informações nos 
blocos (cada um tem um endereço dis- 
tinto, como na RAM). O DOS é um re- 
quisito essencial para a operação de um 
acionador de discos. 


A cabeça de leitura e gravação pode, 


O disco é formatado antes de ser usado, ou 
seja, é dividido em trilhas e setores. 
Cada setor tem a capacidade de 256 bytes. 





ser direcionada pelo DOS, de modo a se 
posicionar sobre qualquer setor na su- 
perfície do disco, com uma velocidade 
bastante grande. Por isso, o disco mag- 
nético é um dispositivo de acesso arbi- 
trário, muitas vezes mais rápido do que 
o acesso serial ou sequencial da fita. 
Ocorre que ele também é um dispositi- 
vo de acesso serial, só que limitado a um 
setor por vez. Isso torna o sistema mui- 
to mais veloz, flexível e poderoso do que 
o baseado em fita. 


TIPOS DE DISCO 


Os discos magnéticos para computa- 
dores dividem-se, basicamente, em dois 
tipos: os discos rígidos e os discos fle- 
xíveis. 

O disco rígido, de preço bem mais cle- 
vado do que o flexível, é confecciona- 
do em metal, e, em geral, não é inter- 
cambiável, ou seja, permanece sempre 
dentro do acionador. A cabeça não en- 
costa em sua superfície, mas paira a al- 
guns milésimos de milímetro da mesma. 

Graças a essa característica, o desgas- 
te desse disco é nulo, e a densidade da 
gravação, muito maior. Atualmente, os 
discos rígidos para micro — também 
chamados discos Winchester — têm ca- 
pacidades entre 5 a 40 Mbytes, depen- 
dendo do modelo. 

O disco flexível, genericamente deno- 
minado disquete (ou floppy), é feito de 
plástico e protegido dentro de um enve- 
lope semi-rígido, lubrificado interna- 
mente. Pode ser adquirido em três ta- 
manhos: 8 polegadas (19 cm), 5,25 po- 














legadas (12,5 cm) ou 3,5 polegadas (8,5 
cm) de diámetro. O mais utilizado em 
computadores pessoais ainda é o de 5,25 
polegadas, chamado de minidisquete, 
embora os microdisquetes (3,5 polega- 
das) estejam se tornando cada vez mais 
populares. Estes sáo embalados em car- 
tuchos rígidos, o que lhes confere van- 
tagens marcantes quanto ao manuseio 
e segurança. Sua capacidade é também 
bem maior, devido à superioridade na 
densidade de gravação. 

A velocidade de rotação de um dis- 
co, seu tamanho, tipo de superfície e a 
presença ou não de uma segunda cabe- 
ça do outro lado do disco condicionam 
a capacidade e velocidade de acesso dos 
diversos modelos existentes. O usuário 
deve, portanto, levar em conta todos es- 
ses fatores, se pretende escolher o acio- 
nador de discos mais adequado às suas 
necessidades. 

Os discos magnéticos classificam-se, 
ainda, em duas outras categorias: a ca- 
tegoria dos que só podem ser gravados 
em um lado (discos de face simples) e 
a dos que permitem a gravação nos dois 
lados, simultaneamente (discos de face 
dupla). 

A densidade de gravação também di- 
ferencia os discos. Os mais baratos e de 
menor qualidade têm densidade simples: 
sua capacidade total-é bastante restrita. 
Os de maior capacidade e velocidade de 
transmissão têm densidade dupla. Final- 
mente, existem os discos de densidade 
quádrupla, com o dobro do número de 
trilhas dos outros discos. Estes utilizam 
uma técnica de pulsos de gravação di- 
ferente da técnica dos demais e oferecem 
o grau máximo de capacidade e veloci- 
dade. Naturalmente, o preço do disque- 
te aumenta de acordo com sua capa- 
cidade. 

Para maior segurança, devem ser 
usados os disquetes com a especificação 
correta para cada densidade. Mas mui- 
tos usuários que trabalham com aciona- 
dores de face simples (linha Apple, por 
exemplo) costumam utilizar também o 
outro lado disponível no disquete, fa- 
zendo um pequeno orifício quadrado na 
margem não perfurada do envelope. Tal 
procedimento deve ser evitado no caso 
de discos especificados para densidade 
simples. Além disso, convém levar em 
conta que detritos oriundos da perfura- 
ção podem danificar o disco e, até mes- 
mo, a cabeça do acionador. 


SISTEMAS OPERACIONAIS 


O controle dos acionadores de discos 
exige um software especial. Este é for- 
necido junto com o acionador, forman- 





do com ele uma unidade inseparável na 
utilização por um computador. Essen- 
cialmente um sistema operacional, o 
software gerencia todos os processos de 
localização de informação e de transfe- 
rência entre computador e disco. 

Em geral, o sistema operacional de 
disco (DOS) não reside na memória 
ROM permanente do computador, pre- 
cisando ser carregado na RAM a partir 
do próprio disco, antes de ser ativado. 
Assim, uma parte da RAM é utilizada, 
ficando menos disponível para os pro- 
gramas e dados do usuário. 

Alguns computadores pessoais po- 
dem usar mais de um sistema operacio- 
nal com o mesmo acionador de disque- 
tes. Certos sistemas operacionais, por 
outro lado, têm mais comandos ou, ain- 
da, são mais poderosos e flexíveis do 
que outros. Mas é preciso cautela na es- 
colha, pois a formatação imposta ao dis- 
co muitas vezes varia entre sistemas o| 
racionais. Em conseqüëncia, o usuário 
nào conseguirá utilizar programas fei- 
tos para um DOS, se tiver carregado 
um DOS diferente no computador. Na 
maioria das vezes, porém, nào há sequer 
a possibilidade de escolha entre vários 
tipos de DOS, pois só existe um para 
aquela marca de computador. 


INTERFACES E CONEXÕES 


Se você tem a intenção de adquirir 
um ou mais acionadores de discos, con- 
sidere cuidadosamente se a unidade em 
vista é realmente compatível com sua 
máquina. Além de um DOS adequado, 
é necessário também escolher um disco 
com interface que se adapte a seu siste- 
ma. Consulte os fabricantes — do com- 
putador e da unidade de discos — e pro- 
cure aconselhar-se junto a colegas e co- 
nhecidos que já tenham tido sucesso na 
compra de uma unidade de disco para 
um computador igual ao seu. 


OFTWARE PARA DISCI 


Comprar um acionador de discos po- 
de ser muito bom para incrementar seu 
sistema, mas, para uma boa escolha, 
convém ter claro o que vocë pretende fa- 
zer com ele. Quer esteja pensando em 
desenvolver seus próprios programas — 
em Assembler, BASIC, PASCAL ou 
outra linguagem de programação —, 
quer pretenda apenas utilizar “pacotes” 
prontos de software, verifique primei- 
ro se as ferramentas de programação ou 
os próprios programas estão disponíveis 
em quantidade e qualidade para o siste- 
ma que você tem em mente. 





Sistemas baseados em microdisque- 
tes, por exemplo, são recentes no mer- 
cado, mesmo em termos internacionais, 
e ainda existe muito pouco software pa- 
ra esse formato. Também é pequena a 
oferta de software próprio para sistemas 
de disquetes para a linha MSX. A me- 
dida que um sistema vai se difundindo, 
porém, essa situação tende a mudar. 
Mas micros implantados há mais tem- 
po no mercado — como o Apple e o 
TRS-80 — terão sempre maior varieda- 
de de software que os demais. 

Existe ainda a alternativa de se trans- 
ferir software de um formato para ou- 
tro. Certos programas comercialmente 
disponíveis, por exemplo, tornam pos- 
sível copiar software de fita para disco; 
paralelamente, alguns sistemas opera- 
cionais reconhecem discos de diferentes 
densidades, e assim por diante. Em um 
próximo artigo trataremos em detalhes 
desse assunto. 


С ESCOLHER? 


O custo é, certamente, um fator bas- 
tante significativo no momento de de- 
cidir entre um sistema baseado em fita 
e outro baseado em disco. Muitas das 
vantagens dos discos náo sáo importan- 
tes para usuários domésticos interessa- 
dos apenas em aplicações como jogos. 
Para a maioria dos computadores pes- 
soais não existem, em disquete, muitas 
opções de programas recreativos ou de 
videogames, e O pouco que se encontra 
custa mais caro do que a mesma versão 
para fita. Em contrapartida, há a pos- 
sibilidade de que a versão para disquete 
seja mais sofisticada. 

As unidades de disco são muito mais 
caras do que as de fita, custando mais 
do que o próprio computador. Ás vezes, 
0 preço não inclui o cabo de ligação, que 
também é caro. 

É preciso considerar, ainda, o custo 
do suporte de informação. O preço de 
um disquete é muitissimo mais elevado 
do que o de uma fita cassete de boa qua- 
lidade. Normalmente um disquete de 
densidade quádrupla custa quatro ou 
cinco vezes mais do que um de densida- 
de simples. No entanto, deve-se levar em 
conta que, ao contrário da fita, o dis- 
quete permite aproveitamento total de 
sua capacidade. 

Já os discos rígidos são tremenda- 
mente caros e úteis apenas em aplicações 
mais profissionais. É claro que seria 
muito bom ter todo o seu software dis- 
ponível instantaneamente no mesmo dis- 
co, e carregá-lo em um piscar de olhos. 
Mas será que isso vale o preço de um 
Winchester? 
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Depois de completar o jogo com esta 
segunda parte, puxe a manivela 
e tente obter três frutas iguais no 
caça-níqueis. Esse resultado 

pagará vinte vezes a sua aposta. 


Segunda e última parte do nosso jo- 
go caça-níqueis, este artigo nos coloca 
em condições de executar todo o progra- 
ma, cujo primeiro segmento você já de- 
ve ter gravado. 


APERTEM OS CINTOS 


210 LET HOLD-0 
220 LET TOTAL=TOTAL-10: LET NU 
DGE-0: PRINT AT 13,26; INK 2;" 


230 IF HFLAG=0 THEN LET HOLD= 


0 

240 FOR I=1 TO 3: FOR J=1 TO 
12: SOUND .001,60 
250 IF HOLD=0 THEN PRINT AT 7 
5,10;A$(J) ;AT 7,15;B$(J) ;AT 7, 
20;C$(J) iAT 10,10;A$ (J*1) ; AT 
10,15;B$(J*1) ;AT 10,20;CS$(J*1) 
;AT 13,10;A$(J*2) ;AT 13,15;B$( 
J*2) ;iAT 13,20;C$(J*2): NEXT J: 
NEXT I 
270 IF HOLD*1 THEN PRINT AT 7 
:15;B$(J) ;AT 7,20;C8(J) ;AT 10, 
15;B$(J*1) ;AT 10,20;C$ (J*1) ; 
АТ 13,15;В8$ (7+2) ;АТ 13,20;С$(Ј 
+2): МЕХТ Ј: МЕХТ І 
280 IF HOLD=6 THEN PRINT AT 7 
,15;B8(J);AT 10,15;B$(J+1) ;AT 
13,15;B8(J+2): NEXT J: NEXT I 
290 IF HOLD=2 THEN PRINT AT 7 
+10;A8(J);AT 7,20;C8(J);AT 10, 
10;A$(J*1) ;AT 10,20;C$(J*1) ; AT 
13,10;A$(J*2) ;AT 13,20;C$(J*2) 
: NEXT J: NEXT I 
300 IF HOLD=5 THEN PRINT AT 7 
,10;А95(0);АТ 10,10;А$ (7+1) ;АТ 
13,10;A$(J*2): NEXT J: NEXT I 
310 IF HOLD-3 THEN PRINT AT 7 
,10;A$(J) ;AT 7,15;B$(J) ;AT 10, 
10;A$(J*1);AT 10,15;B$(J*1);AT 
13,10;A$(J*2) ;AT 13,15;B$(J*2 
): NEXT J: NEXT I 
320 IF HOLD<>1 AND HOLD<>4 AND 
HOLD<>6 THEN LET M-INT (RND* 
12): IF M=0 THEN LET M=1 
330 IF HOLD<>2 AND HOLD<>5 AND 
































HOLD<>4 THEN LET K=INT (RND* 

12): IF K=0 THEN LET K=1 

340 IF HOLD<>3 AND HOLD<>5 AND 
HOLD<>6 THEN LET L=INT (RND* 

12): IF L=0 THEN LET L=1 

350 LET HOLD=0 

360 PRINT AT 7,10;AS(M) ;AT 7, 

15;B$(K):AT 7,20;C$(L) ;AT 10, 

10;AS(M*1);AT 10,13;BS(K*1) ;AT 
10,20;C$ (L*1) ;AT 13,10;AS (M*2) 
;AT 13,15;B$(K*2) ;AT 13,20;C$ € 
1+2) 





A linha 210 coloca zero na variável 
que segura uma ou mais rodas, que po- 
dem ser escolhidas através do teclado. 
A rotina verifica qual é o conteúdo des- 
sa variável e faz com que se movimen- 
tem as rodas que estáo livres. 

Depois de girar as rodas, a rotina re- 
coloca zero em HOLD na linha 350 — 
os botóes que seguram as rodas sáo apa- 
gados — e, em seguida, a linha 360 
incumbe-se de desenhá-las em sua posi- 
ção final, paradas. 


VERIFIQUE O RESULTA 


370 GOSUB 510 

510 ТЕТ ТҘ=АҘ (М) +88 (К) +С9 (1) 
520 LET L$=AS (M+1)+BS (K+1)+C5( 
L+1) 

530 LET LS=AS (M+2)+BS (K+2)+C08 ( 
L+2) 

540 GOSUB 660 

550 RETURN 

680 LET TEMP=TOTAL 

690 IF MS( TO 4)=MS(5 TO 8) 
AND MS( TO 4)=MS(9 TO ) THEN 
LET TOTAL=TOTAL+50: IF MS( TO 


4)-C$(4) THEN LET TOTAL-TOTAL 
*5000: GOTO 640 





TO 4)=CS(1) AND MS( 
TO 8) AND MS( TO 4) 
THEN LET TOTAL=TOT 


700 IF M$( 
TO 4)=MS(5 
=M5(9 TO ) 
AL+50 

710 IF M$( 
ТО 4) =М$ (5 
=M$(9 TO ) 
AL+50 

720 IF MS( TO 4)=AS(3) THEN 
LET TOTAL=TOTAL+10: IF MS(5 TO 
8)=AS(3) THEN LET TOTAL=TOTA 
L+10 


TO 4)=CS(3) AND MS( 
TO 8) AND M$( TO 4) 
THEN LET TOTAL-TOT 


730 IF TOTAL>TEMP THEN FOR I= 
1 TO 6: SOUND .05,50: NEXT I 
740 LET DD-INT (TOTAL/100): 
LET CC-TOTAL-(DD*100): PRINT 


INK 2; PAPER 6;AT 17,0;"$ 
"ТАТ 18,0;"C "; PAPER 7; 
BRIGHT 1;AT 17,1;" ";DD;AT 18, 

1;* "icc 


750 IF TOTAL<1 THEN GOTO 760 
760 RETURN 


A linha 370 salta para a sub-rotina da 
linha 510, que coloca as trés linhas mos- 
tradas pelas rodas nas variáveis alfanu- 
méricas TS, MS e LS. A linha do meio, 
MS, é a que vale para fins de contagem 
de pontos. 

A sub-rotina que faz isso comeca na 
linha 680. Ela verifica se ocorreu, em al- 
gum lugar, uma linha premiada, e so- 
ma o valor do prémio ao património 
acumulado pelo jogador. 





Í 
COMO DAR UM EMPURRÃOZINHO Í 


380 IF M<7 OR K=L OR L>2 THEN 
LET NUDGE=1: PRINT BRIGHT 1; 
PAPER 7; INK 2;AT 13,26;"NUDGE 


390 LET HFLAG-INT (RND*.5): IF 
HFLAG-1 THEN FOR I=1 TO 19 
STEP 5: PRINT AT 16,I; INK 6; 
BRIGHT 1;"HOLD";: NEXT I 

400 IF INKEYSX»"" THEN GOTC 
400 

410 LET IS=INKEYS: 
THEN GOTO 410 
420 IF I$-" " THEN FOR I-9 TO 
19 STEP 5: PRINT INK 2;AT 16, 
ne *: NEXT I: GOTO 210 
430 IF I$-"E" AND NUDGE-1 THEN 
GOSUB 600: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" ”: SOUND 
.1,30: GOSUB 510: LET RN-INT ( 
RND*10): IF INT (RN/2)*RN/2 
AND HFLAG<>1 THEN LET NUDGE=1 
: PRINT AT 13,26; INK 7; 
BRIGHT 1;"NUDGE”: GOTO 400 
440 IF I$-"Q" AND NUDGE-1 THEN 
GOSUB 560: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" *: SOUND 
.1,30: GOSUB 510: LET RN*INT ( 
RND*10): IF INT (RN/2)*RN/2 
AND RN<3 THEN LET NUDGE=1 
PRINT AT 13,26; INK 7; BRIGHT 
1;"NUDGE": GOTO 400 

450 IF I$-"W" AND NUDGE-1 THEN 





IP 18-"" 








GOSUB 580: LET NUDGE-0: PRINT 
AT 13,26; INK 2;" ^": SOUND 
.1,30: GOSUB 510 





460 IF IS-"D" 
GOSUB 620: LET NUDGE-0: 
AT 13,26; INK 2;" na 


AND NUDGE=1 THEN 
PRINT 
SOUND 
.1,30: GOSUB 510: LET RN-INT ( 


RND*10): IF INT (RN/2)<>RN/2 
THEN LET NUDGE=1: PRINT AT 13 
+26; INK 7; BRIGHT 1;"NUDGE”: 
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GOTO 400 

470 IF I$-"S" AND NUDGE-1 THEN 
GOSUB 660: LET NUDGE= PRINT 
AT 13,26; INK 2;" SOUND 
.1,30: GOSUB 510: LET RN*INT ( 
RND*10): IF INT (RN/2)*RN/2 
THEN LET NUDGE-1: PRINT AT 13 
+26; INK 7; BRIGHT 1;”NUDGE”: 
GOTO 400 

480 IF 1$="A" AND NUDGE=1 THEN 
GOSUB 640: LET NUDGE= PRINT 
AT 13,26; INK 2;" *: SOUND 
.1,30: GOSUB 510: LET RN=INT ( 
RND*10): IF INT (RN/2)<>RN/2 
AND RN>6 THEN LET NUDGE=1: 
PRINT AT 13,26; INK 7; BRIGHT 
1;"NUDGE”: GOTO 400 

AND I$2"l" OR I 
$-"2" OR I$-"3" OR I$-"4" OR I 
$-"5" OR I$-"6" THEN LET HOLD 
=VAL 1$: FOR I=1 TO 19 STEP 5: 
PRINT AT 16,I; INK 2;" “ч 
NEXT I: GOTO 220 

500 GOTO 400 

560 LET М=М+1: IF M>12 THEN 
LET M=M-12 

570 PRINT AT 7,10;AS(M);AT 10, 
10;AS(M+1);AT 13,10;A5(M+2): 
RETURN 

580 LET K=K+1: IF K>12 THEN 
LET K=K-12 

590 PRINT AT 7,15;BS(K);AT 10, 
15;BS(K+1);AT 13,15;BS(K+2): 
RETURN 

600 LET L-L*1: IF L>12 THEN 
LET L=L-12 











610 PRINT AT 7,20;C$(L);AT 10, 
20;C$(L*1);AT 13,20;C$(L*2): 
RETURN 

620 LET L-L-1: IF L1 THEN 
LET L=L+12 

630 PRINT AT 7,20;CS(L)J;AT 10, 
20;C$(L*1) ;AT 13,20;C$(L*2): 
RETURN 

640 LET M-M-1: IF M<1 THEN 
LET M-M*12 

650 PRINT AT 7,10;А5(М):АТ 10, 
10;A$ (M*1);AT 13,10;A8 (M*2) : 
RETURN 

660 LET K=K-1: IF K<1 THEN 
LET K-K*12 

670 PRINT AT 7,15;BS(K) ;AT 10, 
15;B$(K*1);AT 13,15;B$(K*2): 
RETURN 





A rotina que empurra as rodas é mui- 
to semelhante àquela que as segura. As 
rodas sáo movimentadas para cima ou 
para baixo conforme a escolha do joga- 
dor. As teclas que empurram as rodas 
são mostradas na tela. A cada empur- 
rão, um número aleatório é usado para 
determinar se o jogador poderá recor- 
rer novamente a essa função. 


RAPA-TUD: 


760 CLS PRINT AT 10,0;” 
FIM DE JOGO vo 





CE PERDEU TODO SEU DINHEIRO": 
SOUND 1,-20 
800 PRINT '" 
R (S/N) ?" 
810 IF INKEYS="" THEN GOTO 


QUER RECOMECA 


810 

820 LET IS=INKEYS: IF I$-"S" 

OR IS-"s" THEN RUN 

830 STOP 

840 CLS : PRINT AT 10,0;" 
PARABENS ! vo 

CE ACABA DE GANHAR O PREMIO.”: 

PRINT '" VOCE ESTA $500,00 MA 

IS RICO !": FOR Jel TO 3: FOR 

I-1 TO 10: SOUND .01,5*I: NEXT 

I: NEXT J 

850 GOTO 800 


A rotina da linha 760 oferece ao 
usuário a oportunidade de disputar mais 
um jogo. Ela é chamada quando o jo- 
gador fica sem dinheiro. 

A rotina que cuida do prémio máxi- 
mo — trés sinos — dá as boas novas ao 
jogador e soma $500 ao seu score. Nes- 
Se caso, a partida termina, pois a banca 
foi quebrada. O jogador pode, entào, 
jogar outra vez. 


PE OT Nuda 


350 M=100:H=-1:I=-1:J=-1:P=RND( 
16)-1:0=RND(16)-1:R=RND(16)-1 
360 SCREEN 1:GOSUB 1000:GOSUB 2 
000:GOSUB 2500:IF M>O THEN 360 
370 CLS:PRINT 6101:"YOU RAN OUT 
OF MONEY" 

380 PRINT 6417," «SPACE» PARA R 
ECOMECAR" 

390 IF INKEYSX»" " THEN 390 ELS 
E RUN 


































Im i i m _ 


A linha 350 estabelece o valor do pri- 
meiro cacife em dólar. Ela também acer- 
ta os valores iniciais das variáveis que 
indicam se alguma roda está presa, as- 
sim como das variáveis que controlam 
a posigáo das rodas. A linha 360, laco 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 370 terminará o jogo e oferecerá ao 
usuário a oportunidade de disputar ou- 
tra partida. 


FRUTAS NA TEI 


500 ON CH+1 GOTO 540,530,560,55 
0,570,510,520 

510 PUT(XX,YY)-(XX+31,YY+15),B, 
PSET:RETURN 

520 PUT(XX,YY)- 
PSET:RETURN 

530 PUT(XX,YY) - (XX*31, YY*15) , A, 
PSET:RETURN 

540 PUT(XX,YY) - (XX*31, YY*15) , BR 
,PSET:RETURN 

550 PUT(XX,YY) - (XX*31, YY*15),S, 
PSET:RETURN 

560 PUT(XX,YY) - (XX*31, YY*15) , PL 
,PSET:RETURN 

570 PUT(XX,YY) - (XX*31, YY*15) , P. 
PSET:RETURN 

1000 M=M-10:FOR L=1 TO RND(3)*R 
ND(3) 
1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 


(XX+31,YY+15),C, 


ІР Н GOSUB 1520 

IF I GOSUB 1530 

IF J GOSUB 1540 

NEXT:IF H THEN SOUND 100,1 
FOR L=1 TO RND(3)+RND(3) 
IF I GOSUB 1530 

IF J GOSUB 1540 

NEXT:IF I THEN SOUND 120,1 
FOR L=1 TO RND(3)+RND(3) 
IF J GOSUB 1540 

NEXT:IF J THEN SOUND 140,1 
1120 H=-1:1=-1:J=-1:RETURN 

1500 CLS:IF D=0 THEN RETURN ELS 
E PRINT 6166,USING"CREDITO- $54 
49.94";M/100:FOR A-10 TO D STEP 
10:M=M+10:PRINT 6166,USING"CRE 
DITO- $5004. 04 /100 

1510 SOUND 200,1:FOR B-0 TO 400 
:NEXT B,A:RETURN 

1520 P-(P-1) AND 15:XX-48:YY-28 
:FOR G=P-1 TO P+1:CH=R1(15 AND 
G) :GOSUB 500:YY=YY+32:NEXT:RETU 
RN 

1530 Q=(Q-1) AND 15:XX=112:YY=2 
8:FOR G-Q-1 TO Q+1:CH=R2(15 AND 
G) :GOSUB 500:YY=YY+32:NEXT:RET 
URN 

1540 R=(R-1) AND 15:XX=176:YY=2 
8:FOR G=R-1 TO R+1:CH=R3(15 AND 
G):GOSUB 500:YY-YY*32:NEXT:RET 
URN 

1550 C=9:IF (R1(P)=R2(0)) AND(R 
2(Q)=R3(R)) THEN C=R1(P) :RETURN 
1560 IF R1(P)=R2(9) AND (R1(P)= 








6 OR R1(P)=5) ТНЕМ С=1+В1 (Р) :ВЕ 
TURN 


1570 IF R1(P)=6 THEN C=8 
1580 RETURN 


As linhas 500 a 570 usam PUT para 
desenhar as frutas na tela. As linhas 
1000 a 1120 giram as rodas, chamando 
as sub-rotinas das linhas 1520 a 1540. As 
linhas 1150 a 1180 acusam um resulta- 
do premiado e a linha 1500 soma o pré- 
mio ás posses do jogador. 


APOSTAR, SEGURAR, EMPURRAI 


2000 GOSUB 1550 

2010 IF C=9 OR C=0 THEN D=W(C): 
GOSUB 1500:RETURN 

2020 CLS9-C:PRINT €265,"apostar 
";:PRINTO278,USING "SS6.44 ";V( 
С) /100; 

2030 PLAY "L4T20B":PRINT €212,U 
SING"SS4.44 ";W(C-1)/100;:PRINT 
6340, STRINGS (7, 271-C*16) ; 

2040 PLAY"T20C":PRINT 8212,STRI 
NG$(7,271-C*16);:PRINT 6340,USI 
NG"$$: & ";W(C*1)/100; 

2050 R$=INKEYS:IF R$<>” " AND R 
S<>CHR$ (13) THEN 2030 

2060 IF R$=CHR$(13) THEN CLS:D= 
W(C):GOSUB 1500:RETURN 

2070 IF RND(2)=1 THEN CLS:D=W(C 
+1) :GOSUB 1500:RETURN 

2080 C=C-1:IF C=0 THEN D=200:G0 
SUB 1500:RETURN 

2090 GOTO 2020 

2500 IF RND(4)*1 GOSUB 3060:GOT 
0:2550 

2510 IF RND(5)<3 THEN 2560 

2520 FOR K=1 TO 2000:NEXT:SCREE 
N 1,0 

2530 AS-INKEYS:IF AS<>” " AND À 
8<>"С" ТНЕМ 2530 

2540 IF A$-" " THEN RETURN 
2550 CLS:PRINT €166,USING"CREDI 
TO= $9644.44 /100:GOTO 2520 
2560 SCREEN 1,0:H=- =-1:J=-1 
2570 IF H THEN PUT(38,122)-(91, 
143) ,H,NOT 

2580 IF 1 THEN PUT(102,122)-(15 
5,143), H, NOT 

2590 IF J THEN PUT(166,122)- (21 
9,143) , H, NOT 

2600 RS=INKEYS:IF R$-" " THEN F 
OR K=0 TO 2:PUT(38*64*K,122)- (9 
1*64*K,143),H, PSET: NEXT: RETURN 
3000 IF R$«"1" OR RS»"4" THEN 2 
570 

3010 ON VAL(RS) GOTO 3020,3030, 
3040,3050 

3020 H=-1:1=-1:J=-1:GOTO 2570 
3030 H=0:PUT(38,122)-(91,143),H 
+ PSET:GOTO 2570 

3040 1=0:PUT(102,122)-(155,143) 
,H,PSET:GOTO 2570 

3050 J=0:PUT(166,122)-(219,143) 
,H,PSET:GOTO 2570 

3060 SCREEN 1,0:COLOR 4,2:PUT(1 
59,156)- (224,170) , B, NOT: PLAY"L4 
0710” 

3070 К-1 

3080 LINE (10+K*16,158)- (21+K*16 























+169) , PRESET,BF 

3090 IF INKEY$-" " THEN 3120 
3100 K-K*1:PLAY STRS(K*2):IF K< 
6 THEN 3080 

3110 FOR K=1 TO 5:LINE(10*K*16, 
158)-(21*K*16,169) , PSET, BF:NEXT 
:GOTO 3070 

3120 N-K:PUT (159,156) - (224,170) 
,H,NOT 

3130 R$-INKEYS:IF(R$C"5" OR R$» 
"9") AND R$<>"0” THEN 3130 
3140 IF R$-"0" THEN R$-"10" 
3150 ON VAL(R$)-4 GOTO 3160,317 
0,3180,3190,3200,3210 

3160 P-P*2:GOSUB 1520:GOTO 3220 
3170 Q=0+2:GOSUB 1530:GOTO 3220 
3180 R=R+2:GOSUB 1540:GOTO 3220 
3190 GOSUB 1520:GOTO 3220 

3200 GOSUB 1530:GOTO 3220 

3210 GOSUB 1540 

3220 SOUND 40,1:GOSUB 1550:IF C 
<9 GOSUB 2010:N=0:GOTO 3250 
3230 IF N=1 THEN N=0:GOTO 3250 
3240 LINE(10*N*16,158)- (21*N*16 
,169) , PSET, BF :N*l :GOTO 3130 
3250 FOR K-1 TO 5:LINE(10*K*16, 
158)-(21*K*16,169) , PSET, BF:NEXT 
:RETURN 


As linhas 2010 a 2050 permitem que 
о jogador faça a sua aposta. Ele pode 
entào melhorar o prëmio que recebeu 
anteriormente (ou, na pior das hipóte- 
ses, perder parte dele). 

A rotina que segura as rodas 
encontra-se entre as linhas 2530 e 3050, 
sendo chamada da linha 2510. Os indi- 
cadores que definem a liberdade das ro- 
das sáo modificados de acordo com as 
teclas apertadas pelo jogador. 

As linhas 3060 a 3250 permitem que 
o jogador empurre uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de movimentos 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma delas. 


> ¡E 


1160 FOR I=1 TO 2000:NEXT 

1200 R-RND(-TIME) :M-100:H--1:I 
-1:J=-1:P=INT(RND(1)*15) :9=INT( 
RND(1)*15) :R=INT(RND(1)*15) 
1210 LOCATE 0,22:PRINT STRINGS( 
30,32); :GOSUB 1400:GOSUB 2000:G 
OSUB 2500:IF M>0 AND M<5000 THE 
N 1210 

1215 IF M>=5000 THEN CLS:LOCATE 
0,11:PRINT "RAPA TUDO E ESTOUR 
A A BANCA” :GOTO 1230 
1220 LOCATE 0,22: PRINT. 
HEIRO ACABOU 

1230 LOCATE 0,23:PRINT "APERTE 
>ESPACO P/ REPETIR”; 

1240 IF INKEYS<>” " THEN 1240 E 
LSE RUN 











"SEU DIN 








A linha 1200 estabelece o valor de um 
dólar para o primeiro cacife e acerta os 
valores iniciais das variáveis que indicam 
se alguma das rodas está presa, assim 
como das variáveis que controlam a po- 
sição das rodas. A linha 1210 é o laço 
principal do programa. Ela chama or- 
denadamente as sub-rotinas que giram 
as rodas, desenham as frutas na tela e 
permitem ao jogador apostar, segurar e 
empurrar as rodas. O gerador de núme- 
ras randômicos também é acertado nes- 
sa linha. 

Se o jogador ficar sem dinheiro, a li- 
nha 1220 concluirá o jogo e dará ao 
usuário a oportunidade de jogar nova- 
mente. Quando existirem três sinos na 
linha correspondente ao meio das rodas, 
haverá o estorno da banca e o jogo tam- 
bém terá chegado ao fim, agora com a 
vitória do jogador. 


FRUTAS NA TELA 


1300 VPOKE BASE (5)+YY,C1:VPOKE 
BASE (5) *YY*1,C2:RETURN 

1400 M=M-10:GOSUB 4000:FOR L=1 
TO INT(RND (1) *3*1) *INT (RND(1)*3 
*1) 
1405 
1410 
1415 


IF H THEN GOSUB 1520 

IF I THEN GOSUB 1530 

IF J THEN GOSUB 1540 

1420 NEXT 

1425 FOR L=1 TO INT(RND(1)*3+1) 
*INT (RND (1) *3*1) 

1430 IF 1 THEN GOSUB 1530 

1435 IF J THEN GOSUB 1540 

1440 NEXT 

1450 FOR L=1 TO INT(RND(1)*3+1) 
*RINT(RND(1)*3+1) 

1455 IF J THEN GOSUB 1540 

1460 NEXT 

1470 FOR L*8 TO 10:S0UND L,0:NE 
ХТ:Не-1:1--1:4»-1 

1480 RETURN 

1500 IF D=0 THEN RETURN ELSE M= 
м+р 

1510 RETURN 

1520 P=(P-1)AND15:YY=235:FOR G= 
P-1 TO P+1:C1=A(15ANDG,1) :C2=A( 
15ANDG, 2) :GOSUB 1300:YY=YY+96:N 
EXT:RETURN 

1530 Q=(Q-1)AND15:YY=239:FOR Gu 
Q-1 TO Q+1:C1=B(15ANDG,1) :C2=B( 
15ANDG, 2) :GOSUB 1300:YY=YY+96:N 
EXT:RETURN 

1540 R=(R-1)AND15:YY=243:FOR б= 
R-1 TO R+1:C1=C(15ANDG, 1) :C2=C( 
15ANDG,2):GOSUB 1300:YY=YY+96:N 
EXT:RETURN 

1550 D=0 

1551 IF A(P,1)=136 THEN D=10 
1552 IF A(P,1)=B(Q,1) AND A(P,1 
)=136 THEN D=20:RETURN 

1553 IF NOT(A(P,1)=B(Q,1) AND B 
(Q,1)=C(R,1)) THEN RETURN 

1554 A=A(P,1) 

1556 IF A=120 THEN D=50 

1557 IF A=184 THEN D=50 


1558 IF A=216 THEN D=50 

1559 IF A=152 THEN D=100 

1560 IF A-168 THEN D-100 

1561 IF A=200 THEN M=M+5000:GOT 
0 1215 

1570 RETURN 


A linha 1300 usa o comando VPO- 
KE para desenhar as frutas na tela. As 
linhas que váo de 1400 a 1480 giram as 
rodas chamando as sub-rotinas das li- 
nhas 1520 a 1540. 

As linhas 1550 a 1570, por sua vez, 
verificam se houve um resultado premia- 
do e a linha 1500, finalmente, soma o 
prémio às posses do jogador. 


E SE R AS RODAS 





EMPURI 


2000 GOSUB 1550:GOSUB 1500:GOSU 
B 2550:RETURN 

2500 IF INT(RND(1)*4+1)=1 THEN 
GOSUB 3060:GOSUB 2550:GOTO 2530 


2510 IF INT(RND(1)*5+1)<3 THEN 
2560 

2530 AS=INKEYS:IF AS<>” ” THEN 
2530 

2540 RETURN 

2550 M$*STR$(M):LOCATE 2,15:PRI 


NT RIGHT$(M$,2);:LOCATE 2,14:PR 
INT " ";:IF M>=100THEN LOCATE 
2,14:PRINT LEFTS (M$,2);: RETURN 
2555 RETURN 

2560 H=-1:1=-1:J=-1:LOCATE 4,22 
:PRINT "PODE SEGURAR AS RODAS” 
2600 R$=INKEYS:IF (R$<"1” OR R$ 
»"6") AND R$<>” " THEN 2560 
3000 IF R$-" " THEN RETURN 
3010 ON VAL(RS) GOTO 3020,3025, 
3030,3035,3040,3045 





3020 H=0:GOTO 3050 
3025 1=0:GOTO 3050 
3030 

3035 

3040 

3045 J=0:H=0 

3050 RETURN 


3060 LOCATE 3,22:PRINT "PODE EM 
PURRAR AS RODAS” 

3070 N*INT(RND(1)*5*1) 

3080 R$=INKEYS: IF R$="" THEN 30 
80 

3100 IF 
3110 IF 
3120 IF 
3130 IF 
3140 IF 
3150 
3155 
3160 
3170 
3180 
3190 
3200 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


3160 
3170 
3180 
3190 
3200 
3210 


Rs="Q" 
R$="W” 
R$="E" 
R$="A” 
R$-"S" 
IF R$="D" 
GOTO 3080 
P=P+2:G08UB 1520:GOTO 3220 
Q-Q*2:G08UB 1530:GOTO 3220 
R=R+2:GOSUB 1540:GOTO 3220 
GOSUB 1520:GOTO 3220 
GOSUB 1530:GOTO 3220 

3210 GOSUB 1540 

3220 GOSUB 1550:IF D»0 THEN GOS 
UB 2000:N=0:GOTO 3250 

3230 IF N=1 THEN N=0:GOTO 3250 
3240 N=N-1:GOTO 3080 

3250 LOCATE 0,22:PRINT STRINGS( 
30,32) ; : RETURN 


A rotina que segura as rodas está en- 
tre as linhas 2560 e 3050, sendo chama- 
da a partir da linha 2510. Os indicado- 
res que revelam se as rodas estáo livres 
sáo modificados conforme as teclas 
apertadas pelo jogador. 

As linhas que váo de 3060 a 3250 per- 
mitem que o jogador empurre uma das 
rodas, movendo-a uma posição para ci- 
ma ou para baixo. O número de empur- 
rões oferecidos é selecionado ao acaso 
na linha 3070. A rotina detecta as teclas 
selecionadas, movendo as rodas de acor- 
do com cada uma delas. 


EFEITOS S 





ROS 


A rotina situada na linha 4000 acer- 
ta os valores dos registros do chip so- 
noro do MSX para simular o ruído de 
rodas em movimento, 


4000 RESTORE 4030:FOR L-4 TO 13 
4010 READ A:SOUND L,A 

4020 NEXT 

4030 DATA 0,9,15 

4040 DATA 42,0,12,16,100,5,12 
4050 RETURN 


LEN c 


300 GOSUB 700: GOSUB 4000: GOS 
UB 310: GOSUB 780: GOTO 1000 
1000 M = 1:H = 1:I = 1:J = 1:P 
= INT ( RND (1) * 16):Q = INT 
( RND (1) * 16):R = INT ( RND 
(1) * 16) 
1010 РОКЕ - 16299,0: РОКЕ - 
16304,0: GOSUB 1300: GOSUB 2000 
: GOSUB 2500: IF M > O THEN 101 
0 
1020 TEXT : HOME : VTAB 20: PR 
INT "SEU DINHEIRO ACABOU” 


1030 PRINT "APERTE A BARRA DE 
ESPACO”: PRINT "PARA JOGAR NOVA 
MENTE” 

1040 GET A$: IF A$ = " ” THEN 
RUN 

1050 GOTO 1040 

1200 HCOLOR= 0: DRAW 15 AT XX, 


YY: DRAW 15 AT XX + B,YY: DRAW 
15 AT XX,YY + 4: DRAW 15 AT XX 
* 8,YY +4 

1205 ON CH + 1 GOTO 1240,1230, 
1260,1250,1270,1210,1220 

1210 HCOLOR= 3: DRAW 7 AT XX,Y 
Y: DRAW 8 AT XX + 7,YY: RETURN 
1220 HCOLOR= 3: DRAW 5 AT XX,Y 
Y: DRAW 6 AT XX + 7,YY: RETURN 
1230 HCOLOR= 7: DRAW 13 AT XX, 
YY: DRAW 14 AT XX + 7,YY: RETUR 


N 

1240 HCOLOR= 3: DRAW 3 AT XX,Y 
Y: DRAW 4 AT XX + 8,YY: RETURN 
1250 HCOLOR= 3: DRAW 1 AT XX + 
1,YY: DRAW 2 AT XX + B,YY: RET 
URN 

1260 HCOLOR- 7: DRAW 11 AT XX, 
YY: DRAW 12 AT XX + 7,YY: RETUR 
N 


1270 HCOLOR= 3: DRAW 9 AT XX + 


1,YY: DRAW 10 AT XX + 8,YY: RE 

TURN 

1300 M = M - .1: FOR L = 1 TO 

INT (3 * RND (1) * 1) * INT ( 

3* RND (1) + 1) 

1310 IF H THEN GOSUB 1520:X = 
PEEK ( - 16336) 

1320 IF I THEN GOSUB 1530:X = 
PEEK ( - 16336) 

1330 IF J THEN GOSUB 1540:X = 
PEEK ( - 16336) 

1340 NEXT : IF H THEN CALL - 
198 

1350 FOR L * 1 TO INT (3* R 

ND (1) * 1) * INT (3 * RND (1 

1*3 

1360 ІР І THEN GOSUB 1530:X = 
PEEK ( - 16336) 

1370 IF J THEN GOSUB 1540:X = 
PEEK ( - 16336) 

1380 NEXT : IF I THEN CALL - 


198 
1390 FOR L = 1] TO INT (3 * R 


ND (1) + 1) + INT (3 * RND (1 
) +1) 
1400 IF J THEN GOSUB 1540:X = 


PEEK ( - 16336) 
1410 NEXT : IF J THEN CALL - 
198 
1420 H = 1:1 = 1:J = 1: RETURN 
1500 IF D = O THEN RETURN 
1505 HOME : TEXT : VTAB 20:M = 


M * D: PRINT "CREDITO: $";M 
FOR B = O TO 400: NEXT : 
RETURN 

1520 P - P - 1:ХХ = 80:ҮҮ = 90: 
IF P -* - l THEN P * 15 

1522 FORG-P-1 TOP * 1: I 


Е б = - 1 THEN СН = R1(15): GO 
TO 1525 

1523 IF G - 16 THEN CH - R1(0) 
: GOTO 1525 

1524 CH = R1(G) 

1525 GOSUB 1200:YY = YY + 20: 

NEXT : RETURN 

1530 Q = Q - 1:XX = 128:YY = 90 


: ТЕО = - l THEN d - 15 

1532 FORG=Q-1TOQ+1:1 
РЕ б = - 1 THEN СН = R2(15): GO 
TO 1535 

1533 IF G = 16 THEN CH = R2(0) 
: GOTO 1535 

1534 CH = R2(G) 

1535 GOSUB 1200:YY = YY + 20: 

NEXT : RETURN 

1540 R = R - 1:XX = 174:YY = 90 
1 ТЕЙ = - 1 THEN R = 15 

1542 FOR G В- 1 ТОВ +1: І 
Р б = - 1 THEN CH * R3(15): GO 
TO 1545 

1543 IF G - 16 THEN CH * R3(0) 


: GOTO 1545 

1544 CH - R3(G) 

1545 GOSUB 1200:YY = YY + 20: 
NEXT : RETURN 

1550 С = 9: IF (RI(P) = R2(Q)) 
AND (R2(Q) = R3(R)) THEN C = R1 
(P): RETURN 

1560 IF R1(P) = R2(Q) AND (RIC 
р) = 6 OR RI(P) = 5) THEN C = 1 
+ R1(P): RETURN 





1570 IF RI(P) = 6 THENC = 8 
1580 RETURN 

2000 GOSUB 1550 

2010 IF C = 9 OR C = 0 THEN D 
= W(C): GOSUB 1500: RETURN 
2020 HOME : TEXT : VTAB 20: PR 
INT "PREMIO $";W(C) 

2030 PRINT JUER APOSTAR ? 
2050 PRINT "<ESPACO>”; TAB( 20 


);"APOSTA": PRINT "<RETURND”; Т 
AB( 20);"RECOLHE O PREMIO” 

2055 GET AS: IF A$ < >” ” AN 
DAS < > CHRS (13) THEN 2020 
2060 IF AS = CHRS (13) THEN 
HOME :D * W(C): GOSUB 1500: RET 
URN 

2070 IF INT (2* RND (1) * 1 
) = 2 THEN НОМЕ :р = W(C + 1): 
GOSUB 1500: RETURN 
2080 C = C - 1: IF C = 0 THEN D 





= 2: GOSUB 1500: RETURN 

2090 GoTO 2020 

2500 IF INT (4 * RND (1) + 1 
) = 1 THEN GOSUB 3060: GOTO 25 
50 

2510 IF INT (5 * RND (1) + 1 
) < 3 THEN 2560 

2530 GET AS: IF A$ < > "С" ТН 
EN RETURN 

2550 HOME : TEXT VTAB 20: PR 
INT “CREDITO += $”; GOTO 2530 
2560 H » 1:4 » 1:J- 1 

2565 HOME : TEXT 

2570 IF NOT H THEN VTAB 20: 
HTAB 10: PRINT "HOLD"; 

2580 IF NOT I THEN VTAB 20: 
HTAB 20: PRINT "HOLD"; 

2590 IF NOT J THEN VTAB 20: 
HTAB 30: PRINT "HOLD"; 

2595 VTAB 22: HTAB l: PRINT "V 


OCE PODE PRENDER AS RODAS"; 
2597 FOR K - 1 TO 4000: NEXT : 
РОКЕ - 16299,0: РОКЕ - 16304 
,0: FOR K = 1 TO 4000: NEXT : P 
ОКЕ - 16300,0: POKE - 16303,0 
2600 GET AS: IF AS = " " THEN 
VTAB 20: PRINT " ": RETURN 
3000 IF AS < "1" OR AS > "4" T 
HEN 2570 

3010 ON VAL (AS) GOTO 3020,30 
30,3040,3050 

3020 H = 1:1 = 1:J= 1:G0T02565 
3030 H = 0: GOTO 2565 

3040 I = 0: GOTO 2565 

3050 J = 0: GOTO 2565 

3060 HOME : TEXT : VTAB 22: PR 
INT "PODE EMPURRAR AS RODAS";: 





GET A$ 

3070 N * INT (5 * RND (1) * 1 
) 

3080 POKE - 16299,0: POKE - 


16304,0: GET AS: IF (AS < "5" O 
В А5 > "9") AND A$ < > "0” THE 
N 3060 
3140 IF AS = "0" THEN AS = "10 
3150 ON VAL (AS) - 4 GOTO 316 
0,3170,3180,3190,3200,3210 

3160 P = P + 2: GOSUB 1520:X = 
PEEK ( - 16336): GOTO 3220 

3170 Q = Q + 2: GOSUB 1530:X = 
PEEK ( - 16336): GOTO 3220 


3180 R = R + 2: GOSUB 1540:X = 
PEEK ( - 16336): GOTO 3220 
3190 GOSUB 1520:X = PEEK ( - 
16336): GOTO 3220 
3200 GOSUB 1530:X = 
16336): GOTO 3220 
3210 GOSUB 1540 
3220 GOSUB 1550: IF C < 9 THEN 
GOSUB 2010:N = 0: GOTO 3250 
3230 IF N = 1 THEN N = 0: GOTO 
3080 
3240 М = N- 1: 
3250 RETURN 


PEEK ( - 


GOTO 3080 


A linha 1000 estabelece que o valor 
do cacife inicial é um dólar. Ela também 
acerta os valores iniciais das variáveis 
que indicam se alguma roda está presa, 
assim como das variáveis que controlam 
a posição das rodas. A linha 1010, laço 
principal do programa, chama ordena- 
damente as sub-rotinas que giram as ro- 
das, desenham as frutas na tela e per- 
mitem ao jogador apostar, segurar e em- 
purrar as rodas. 

Se o jogador ficar sem dinheiro, a li- 
nha 1020 terminará o jogo, permitindo- 
Ihe jogar novamente. 

As linhas 1200 a 1270 usam DRAW 
para desenhar as frutas na tela. As li- 
nhas 1300 a 1420 giram as rodas, cha- 
mando as sub-rotinas das linhas 1520 a 
1540. As linhas 1550 a 1580 acusam um 
resultado premiado e a 1500 soma o prê- 
mio às posses do jogador. 

As linhas 2010 a 2050 permitem que 
o jogador aposte. Este pode então me- 
lhorar o prêmio que recebeu (ou perder 
parte dele). A rotina que segura as ro- 
das se encontra entre as linhas 2530 e 
3050, sendo chamada a partir da linha 
2510. Os indicadores que revelam se as 
rodas podem girar livremente são mo- 
dificados conforme as teclas apertadas 
pelo jogador. 

As linhas 3060 a 3250 possibilitam ao 
jogador empurrar uma das rodas, 
movendo-a uma posição para cima ou 
para baixo. O número de empurrões 
oferecidos é selecionado ao acaso na li- 
nha 2500. A rotina detecta as teclas se- 
lecionadas, movendo as rodas de acor- 
do com cada uma destas. 


[d] 


Para funcionar no TK-2000, o progra- 
ma precisa de algumas modificações. 

Elimine todos os POKE — 16299,0 e 
POKE - 16304,0. Substitua os coman- 
dos HOMETEXT — sempre que apare- 
cerem assim juntos — por GOSUB 5000. 

Acrescente ainda as linhas: 


5000 FOR K = 160 TO 191 
5010 HCOLOR= 0 

5020 HPLOT 0,К TO 279,K 
5030 NEXT : RETURN 














MENSAGENS 
SECRETAS 


Embora sem saber, a maioria das 
pessoas usa códigos para comunicar-se 
em seu dia-a-dia. Assim, quando alguém 
pede um sapato número 39 ou fala de 
um microprocessador Z80, está empre- 
gando um código. Do mesmo modo, um 
cientista nuclear usa equações muito 
complicadas, que, na verdade, não pas- 
sam de códigos, para simplificar a repre- 
sentação de fenômenos complexos. Nós 
poderíamos obter os mesmos resultados 
simplesmente descrevendo tais fenôme- 
nos por meio de palavras. No entanto, 
isso nos tomaria muito mais tempo 

Nos exemplos citados, a preocupa: 
maior consiste em facilitar a comunica 
ção e não em esconder a informação 
transmitida. Os códigos podem também 
ser usados para economizar gastos ou 
espaços de armazenamento. Imagine- 
mos, por exemplo, uma companhia que 
realiza muitos contratos envolvendo 
cláusulas e parágrafos iguais. Se todos 
esses detalhes fossem guardados em fi- 
tas ou discos, economizaríamos certa- 
mente muito espago, codificando as par- 
tes que se repetem várias vezes. 

A ciéncia que estuda as mensagens se- 
cretas chama-se criptografia. Seu nome 
é formado a partir de duas palavras gre- 
gas — Kryptos (secreto) e graphos (es- 
crita) —, e refere-se tanto à escrita co- 
dificada quanto à cifrada. Os termos có- 
digo e cifra têm, na realidade, signif 
cado ligeiramente diferente no que diz 
respeito ao modo como a mensagem é 
transmitida. Quando a informação é co- 
municada letra por letra, dizemos que 
ela está cifrada. Quando uma ou mais 
palavras são transformadas em outro 
grupo de expressões ou de números, por 
intermédio de alguma espécie de dicio- 
nário, dizemos que ela está codificada. 
Na prática, o termo codificar é usado 
em ambos os casos. 


CÓDIGOS SECRETOS 


A codificação e decodificação de 
mensagens secretas já foram de uso res- 
trito dos militares, ou pelo menos dos 
Serviços de Inteligência. Hoje, porém, 
o uso de linhas públicas de telefone e de 
satélites para transmissão de informa- 
ções confidenciais fez aumentar enorme- 


























mente a necessidade dos códigos. 

Uma das primeiras aplicações impor- 
tantes dos computadores aconteceu du- 
rante a Segunda Guerra Mundial, quan- 
do equipamentos IBM foram utilizados 
pelos Aliados para decifrar mensagens 
em código do inimigo. Desde então, es- 
piões e contra-espiões das grandes po- 
tências têm acompanhado atentamente 
os avanços tecnológicos nesse campo. 

Atualmente, as possibilidades aber- 
tas pela computação são tantas que jo- 
vens pouco escrupulosos — denomin: 
dos hackers — ligam seus micros a re- 
des telefônicas e penetram facilmente 
em sistemas bancários e instalações mi- 
litares, quebrando códigos e alterando 
informações. 

Neste e no próximo artigo mostrare- 
mos como empregar o computador pa- 
ra criar mensagens em código secreto, 
recorrendo a diversos métodos que, co- 
mo cada tipo de espionagem, têm dif 
rentes níveis de sofisticação. 

Mesmo não sendo um agente inter- 
nacional, você pode lançar mão desses 
métodos quando quiser enviar mensa- 
gens confidencia amigos que também 
tenham micros. E aqui vai um desafio. 
Neste artigo está escondida uma infor- 
mação codificada. Tente encontrá-la, 


CÓDIGOS DE POSIÇ 


Os símbolos mostrados nas telas de 
vídeo da página 889 parecem não ter sig- 
nificado algum, mas na realidade são 
exemplos de códigos de posição. Como 
o nome sugere, esse é um código bas 
do na posição de um simbolo em rela- 
ção a um ponto dado. 

Esse tipo de código foi usado pela 
primeira vez há mais de 2000 anos por 
Lisandro, um almirante espartano que, 
durante uma das batalhas da Guerra do 
Peloponeso (travada entre as cidades 
gregas Esparta e Atenas), percebeu que, 
no cinto de um de seus escravos, a dis- 
tância dos furos até a fivela continha na 
realidade uma mensagem secreta, Des- 
de então, os códigos tornaram-se um 
dos recursos mais poderosos da chama- 
da “arte de guerra”. 

Vocé pode usar um tipo de código de 
posição simplesmente escrevendo o al- 













































6 de junho de 1944: os acordes iniciais 
da Quinta Sinfonia de Beethoven 

dão o sinal para a invasão da Normandia 
pelos aliados, num dos casos 

mais famosos de mensagem em código. 


fabeto no alto de uma folha e colocan- 
do abaixo dele as distâncias recebidas, 
conforme mostram as figuras 1 e 2. Co- 
mo você tem a letra-chave na primeira 
linha, é fácil decifrar a mensagem. Pa 
ra dificultar sua decodificação, basta fa- 
zer uma rotação nas letras-chave (veja 
a figura 3). Você pode, por exemplo, co- 
meçar com N e, quando chegar no Z, 
começar de novo com A. Isto é chama- 
do rotação cíclica. 

O primeiro programa usa esse méto- 
do para produzir uma versão codifica- 
da de seu texto — entretanto, não de- 
vem ser deixados espaços em branco en- 
tre as palavras. Se você quiser realmen- 
te enviar sua mensagem para alguém, 
vai precisar de uma impressora 




























































































































































20 BORDER 0: PAPER 0: INK 7: 
К cLs 

30 PRINT TAB 6;" Codigo de po 
> sicao ": PRINT 
à 40 PRINT 





INK 2; PAPER 7; 
FLASH 1;AT 6,10;" CUIDADO ^" 
PRINT 


50 PRINT "Nao deixe espacos e 
ntre palavras" 

60 PRINT : PRINT " 
va em minusculas” 
70 INPUT "Qual a mensagem ?"' 
as 

80 FOR i-1 TO 400: NEXT i: 
сз 

90 FOR i-1 TO LEN (a$) 

100 LET b$-a$(i) 


Escre 





PRÓPRIOS CÓDIGOS SECRETOS 
“CÓDIGOS DE POSIÇÃO 
CÓDIGO DE JÚLIO CÉSAR 


CIFRA SAINT CYR 
CÓDIGO MORSE 


CÓDIGOS E CIFRAS 
— A CRIPTOGRAFIA 
CÓDIGOS SECRETOS E 
SUAS APLICAÇÕES 


* COMO PRODUZIR SEUS 























































110 LET v=CODE (b$)-96 


120 IF v<=32 THEN PRINT TAB v 
3 INK 6;"*": GOTO 150 

130 LET v=v-26 

140 PRINT TAB (v); INK 6;"*" 
150 NEXT i 

20 CLS 

30 PRINT @6,”CODIGO DE DISTANCI 
А” 


40 PRINT 6140,"CUIDADO":PRINT 
50 PRINT^NAO DEIXE ESPACOS ENTR | 
E PALAVRAS” 

60 PRINT:PRINT 

70 PRINT"QUAL A MENSAGEM ?”:INP 
UT AS 

80 FOR I=1 TO 600:NEXT:CLS 

90 FOR I=1 TO LEN(AS) 


Código de posição com distância horizontal 





Código de posição com distância vertical 


100 BS$=MIDS(AS,1,1) 

110 У-А8С(В5)-45 

120 IF V<=32 THEN PRINT TAB(V) 
"x":GOTO 150 

130 V=V-26 

140 PRINT TAB(V)"*" 

150 NEXT 


20 CLS 
30 PRINT TAB(10) "código de pos 
1640”: PRINT 

40 PRINT TAB(14) "cuidado":PRIN 
т 

50 PRINT TAB(4) "náo deixe espa 
ço entre as palavras” 

60 PRINT:PRINT 

70 PRINT"qual a sua mensagem?" : 
INPUT AS 

80 FOR I=1 TO 600:NEXT I:CLS 
90 FOR I=1 TO LEN (AS) 

100 BS=MIDS(AS,1,1) 

110 V=ASC(BS)-45 

120 IF V<=32 THEN PRINT TAB(V)" 
*":GOTO 30 
130 V=V-26 








140 РВІМТ ТАВ (0) "ж" 
150 МЕХТ І 


[é [ó] 


5 HOME 

10 PRINT TAB( 9)"CODIGO DE DI 
STANCIA": PRINT 

20 PRINT TAB( 14)"CUIDADO": P 
RINT 

30 PRINT TAB( 4)"NAO DEIXE ES 
PACO ENTRE AS PALAVRAS" 

40 PRINT : PRINT 

50 PRINT "QUAL A SUA МЕМЗАСЕМ 
": INPUT AS 

60 FOR I * 1 TO 600: 
OME 

70 ,FOR I * 1 TO LEN (AS) 

80 BS = MIDS (AS,T,1) 

90 V * ASC (BS) - 45 

100 IF V < = 32 THEN PRINT 
TAB( V)"*": GOTO 130 

110 Ç = V - 26 

120 PRINT. TAB( V)"*" 

130 NEXT I 


Inicialmente, o programa descobre o 
valor ASCII de cada letra de seu texto, 
através do comando MIDS no lago que 
vai da linha 90 à linha 150 (130 no Ap- 
ple e no TK-2000). Uma vez que a men- 
sagem já foi convertida em uma série de 
números, é fácil fazer a codificação por 
meio de uma transformação linear. No 
caso do MSX, por exemplo, a letra que 
está na variável V será transformada na 
distância que é o seu valor em ASCII 
menos 26 (linha 130). O comando TAB 
imprimirá o asterisco na distância dese- 
jada, a partir do lado direito da tela (li- 
nha 120), e o processo de codificação es- 
tará pronto. 


NEXT I: H 


AR 0 CÓDIG 





COM 


Apesar de parecer demasiado simples 
para ser eficiente, o código de posição 
conta com vários fatores a seu favor. 
Em primeiro lugar, antes de decifrar um 
código, você deve verificar se ele real- 
mente existe. Isso porque, sendo cons- 
tituída de vários pontos (ou asteriscos) 
dispostos aparentemente de forma alea- 
tória sobre qualquer superfície, uma 
mensagem assim codificada facilmente 
passaria despercebida. Durante a Segun- 
da Guerra, aliás, esse truque foi usado 
por agentes de vários países. Assim, 
após uma inspeção mais cuidadosa na 
inocente fotografia de um quintal, 
descobriu-se que as estacas de um varal 
dispunham-se de maneira a formar uma 
mensagem secreta. 

Um modo de fazer com que o códi- 
go de posição fique mais difícil de ser 
quebrado é reestruturar o programa, 
tornando as letras-chave realmente alea- 
tórias. Sem essa alteração, um perito 





3 
Cifra de Saint Cyr 


que saiba estar manipulando um códi- 
go de posição terá de tentar no máximo 
26 combinações antes de resolver o pro- 
blema. Se a ordem das letras for alea- 
tória, o número de combinações cresce- 
rá extraordinariamente. 


CIFRA DE SAINT CYR 


iguidade, os maiores criptó- 
grafos depois dos gregos foram os ro- 
manos. Júlio César, por exemplo, inven- 
tou um código no qual cada letra era 
substituída pela terceira letra que se lhe 
seguia no alfabeto. Nesse caso, o A 
torna-se D, o B torna-se E, e assim por 
diante. No fim do alfabeto, o X torna- 
se A, o Y, B e o Z é substituído pelo C. 
Usando esse método, a mensagem Ml- 
NAR CAMPO LADO LESTE cifrada 
seria: PLQDU FDPSR ОРСК 
OHVWH. 

Como vocé verá mais tarde, o códi 
go criado por Júlio César é um caso es- 
pecial da chamada cifra de Saint Cyr e 
vocé poderá verificar aquela mensagem 
rodando o próximo programa e usando 
3333333 como número-chave. 

Com o fim do Império Romano, a 
criptografia passou por longo período 
de estagnação e, apesar do crescente uso 
de mensagens cifradas nos séculos XVI 
e XVII, só no século XIX a Academia 
Militar Francesa de Saint Cyr produziu 
inovações sobre o código de César. A ci- 
fra de Saint Cyr é constituída de uma 
sequência de letras em ordem alfabéti- 
ca, abaixo da qual colocamos um alfa- 
beto, a partir de um ponto desejado. 
Nesse caso, cada letra do alfabeto de 
baixo terá sua correspondente na linha 
de cima. Assim, como mostra a ilustra- 
ção desta página, a palavra INPUT (na 
linha de baixo) seria cifrada como 
AFHML. Uma das vantagens da cifra 
de Saint Cyr é que podemos escolher um 
ponto de partida diferente para cifrar 
cada letra, bastando que o receptor co- 
nheça esses pontos. Isto o torna ainda 
mais difícil de ser decifrado. 








No programa Cifra de Saint Cyr 
incorporou-se a esse código um número- 
chave, a fim de conferir-lhe maior segu- 
rança. Mesmo que consiga ter acesso à 
listagem do programa, nenhum “es- 
pião” decifrará a mensagem, a menos 
que ele conheça o número secreto. 


20 BORDER 0: PAPER 0: 
сіз 

25 РОКЕ 23658,8 

30 PRINT TAB 8;"CIFRA DE ST.C 
YR”: PRINT 

40 PRINT INK 2; 
FLASH 1;AT 6,10;" CUIDADO " 
50 PRINT : PRINT "Nao deixe e 
spacos entre palavras” 

60 PRINT : PRINT 

70 PRINT ''" 1 -> codificar” 
80 PRINT " -1 -> decodificar” 
90 INPUT s 

100 INPUT "Qual a mensagem ?"* 
as 

110 PAUSE 50: CLS 

120 INPUT "Qual o numero-chave 
? (7 digitos)"'n$ 

130 PAUSE 50: CLS 

140 FOR k=1 TO LEN a$ 

150 LET 1=k-INT (k/7)*7+1 

160 LET t-CODE (a$(k))*(s*VAL 
(n$(1))) 

170 IF t>90 OR t<65 THEN 
t-t-(s*26) 

180 PRINT CHRS (t); 

190 NEXT k 


20 CLS 

30 PRINT €7,"CIFRA DE ST. CYR” 
40 PRINT €140,"CUIDADO” : PRINT 
50 PRINT"NAO DEIXE ESPACOS ENTR 
E PALAVRAS” 

60 PRINT:PRINT 

70 PRINT” < 1> PARA CODIFICAR” 
80 PRINT” <-1> PARA DECODIFICAR 


INK 7: 


PAPER 7; 


LET 


90 INPUT S 

100 INPUT"QUAL A MENSAGEM” ¡AS 
110 FOR K=1 TO 1500:NEXT:CLS 
120 INPUT"QUAL O NUMERO CHAVE ( 
7 DIGITOS) "¡NS 

130 FOR K=1 TO 1500:NEXT:CLS 
140 FOR K=1 TO LEN(AS) 

150 L=K-INT(K/7)*7+1 

160 T=ASC(MIDS(AS,K,1))+(S*VAL ( 
MIDS(NS,L,1))) 

170 IF T>90 OR T<65 THEN T=T-(S 
*26) 

180 PRINT CHRS(T); 

190 NEXT 


ти 


20 CLS 

30 PRINT TAB(10)"CIFRA SAINT CY 
R":PRINT 

40 PRINT TAB(14) "CUIDADO": PRINT 
50 PRINT TAB(2)"NAO DEIXE ESPAÇ 
O ENTRE AS PALAVRAS” 











60 PRINT:PRINT 
70 PRINT"DIGITE 
AR" 

80 PRINT"DIGITE -1 
ICAR” 

90 INPUT S 

100 INPUT"QUAL SUA MENSAGEM”;AS 
110 FOR K=1 TO 1500:NEXT K:CLS 
120 INPUT"introduza o número ch 
ave (7 dígitosm)";N$ 

130 FOR K=1 TO 1500:NEXT K:CL8 
140 FOR K=1 TO LEN(AS) 

150 І.-К-ТМТ(К/7)%7%1 

160 T=ASC(MIDS(AS,K,1))+(S*VAL ( 
MIDS (N$,L,1))) 

170 IF T>90 OR T<65 THEN T=T-(S 
*26) 

180 PRINT CHR$ (T); 

190 NEXT 


1 PARA CODIFIC 


PARA DECODIF 


20 HOME 

30 PRINT TAB( 11)"CIFRA SGT. 
CYR": PRINT 

40 PRINT TAB( 14)"CUIDADO": P 
RINT 


50 PRINT "NAO DEIXE ESPACOS EN 
TRE AS PALAVRAS" 

60 PRINT : PRINT 

70 PRINT "INTRODUZA 1 РАВА С 
ODIFICAR" 

80 PRINT "INTRODUZA -1 PARA DE 
CODIFICAR" 

90 INPUT S 

100 INPUT "QUAL SUA MENSAGEM?" 
¡AS 

110 FOR K = 1 TO 1500: NEXT K: 
HOME 


120 INPUT "INTRODUZA O NUMERO 
CHAVE (7 DIGITOS)";N$ 
130 FOR K = 1 TO 1500: 
HOME 

140 FOR K = 1 TO 
150 L = K = INT 
1 

160 T = ASC ( MIDS (AS,K,1)) + 
(S * VAL ( MIDS (N$,L,1))) 
170 IF T » 90 OR T € 65 THEN T 
* T - (S ж 26) 
180 PRINT CHR$ 
190 NEXT 


NEXT K: 


LEN (A$) 
(QU) % 7» 


(T); 


Cada letra lida do texto do progra- 
ma é, antes, convertida em seu valor AS- 
CII. A função VAL acrescenta a esse va- 
lor uma quantidade indicada por um dos 
digitos de seu número-chave (linha 160). 
Depois de conferirmos se o resultado es- 
tá na faixa aceitável (linha 170) a fun- 
ção CHRS apresentará a letra equivalen- 
te à original. 

Consideremos a mensagem TRO- 
PASCAPTURAMPONTEPEGASUS 
Rodando o programa com o número- 
chave 5331401, o texto codificado seri 
WUPTATHDSUYRBRSROXEQJJDTYS. 
Com um indicador variável S, que po- 
de assumir os valores — 1 ou 1, é possí- 
vel usar o mesmo programa para a de- 
codificação. 











O número-chave de sete dígitos po- 
de ser escolhido aleatoriamente. Porém, 
como é necessário que ele esteja sempre 
disponível, é aconselhável utilizar algo 
que nos seja familiar, como um núme- 
ro de telefone. Como há dez milhões de 
combinações possíveis para o número- 
chave, a cifra de Saint Cyr dificilmente 
pode ser quebrada. Contudo, é possível 
torná-la ainda mais segura se codificar- 
mos a mensagem duas vezes, isto é, co- 
locando a mensagem já cifrada outra 
vez no computador. 

Usando os números-chave 8694153 e 
8130337, a seqúéncia de codificação e 
decodificação seria: 





Texto Número-chave 
PREPARARDESEMBARQUE '8 
8694153 3 
VAIQFUIXMITJPJGAUV] š 
ux 15 
WDITFBQYPIWMWRHDUYM ІҢ 
8130337 8 
VAIQFUIXMITJPJGAUV] š 
sus —$ 


PREPARARDESEMBARQUE 





CÓDIG 





IRSE 


A segurança, porém, não é tudo. Por 
mais indecifrável que seja um código, 
ele de nada vale se não pode ser trans- 
mitido rapidamente. 

O imperador francês Napoleão Bo- 
naparte percebeu o problema e tentou 
superá-lo construindo por toda a Fran- 
ça torres que se comunicavam por meio 
de sinais de luz. Isso tornou possível o 
envio de mensagens a grandes distâncias 
em pouco tempo. Dessa forma, o Exér- 
cito francês podia manter-se informado 
sobre o movimento das tropas inimigas 

Entretanto, a invenção do telégrafo 
e da cifra conhecida como código Mor- 
se, na década de 1830, foram os fatores 
que mais contribuiram para dinamizar 
as comunicações secretas. O inventor 
desse código, o norte-americano Samuel 
Morse, criou um sistema de comunica- 
ção no qual pontos e traços substituiam 
as letras. 

O programa Código Morse codifica- 
rá seus textos e decodificará uma série 
de pontos e traços. Por exemplo, о ѓа: 
moso sinal de socorro SOS seria repre- 






































Qual a utilidade dos códigos? 
Indispensáveis ao mundo dos es- 
pióes, os códigos sáo também muito 
empregados nas telecomunicacóes e 
em atividades bancárias que exigem si- 
gilo. Grandes empresas comerciais que 
fazem uso de computadores para con- 
trolar seus estoques recorrem igual- 
mente a esse tipo de linguagem. As- 
sim, cada item estocado é classificado 
com um código. Quando se trata de ar- 
tigos importados, costuma-se utilizar o 
“código de barras”, que consiste em 
quadrinhos com faixas verticais pretas 
e brancas. Essas “barras” são lidas por 
meio de um instrumento óptico. Quan- 
do um dos artigos é retirado, o compu- 
tador registra a operação e informa a 
respeito do preço da mercadoria 
Existem também terminais de com- 
pras nas próprias lojas, onde o cliente 
apenas digita um código e o total a pa- 
gar. Instantaneamente, o computador 
transfere essa quantia da sua conta pa- 
ra a da loja. Como se pode ver, as no- 
tas e moedas tendem a desaparecer, e 
as caixas registradoras deverão ser 
substituídas por terminais de compu- 
tador. Mas, para tanto, é necessário 
que sejam criados códigos muito efi- 
cientes, de modo a evitar roubos e 
fraudes. 

















sentado por /.../---/.../ e um texto maior 
como FUJA À MEIA-NOITE seria 
Fedele lel ml ml lr i 


EXERCÍCIO DE CODIFICAC. 


Tente fazer as duas codificações men- 
cionadas com o próximo programa. Pa- 
ra os micros da linha Sinclair, você de- 
ve adicionar cinco asteriscos no final da 
mensagem para indicar que ela já está 
completa. 


10 BORDER 0: PAPER 0: INK 7: 
cLs DIM a$(26,4): LET S$-" 











*: LET f$-" в 

15 РОКЕ 23658,8 

20 FOR x-1 TO 26: READ a$(x): 
NEXT x 

30 INPUT "Codificar 
codificar (2)";r 
40 IF r=2 THEN GOTO 140 


(1) ou De 


60 INPUT "MENSAGEM A SER CODI 
FICADA :"'m$ 
70 FOR x=1 "TO LEN m$ 


80 IF mS(x)=" " THEN PRINT " 
";: GOTO 110 


90 LET pS=mS(x) 


100 PRINT " ";a$((CODE p$)- 
64); 

110 NEXT x 

120 PRINT ''''" QUALQUER TECLA 
PARA CONTINUAR";: PAUSE 9999 
130 RUN 


140 INPUT "MENSAGEM A SER DECO 


DIFICADA :"'m$: LET m$-m$*" " 
160 FOR x-1 TO LEN m$ 

170 LET k$-m$ (x) 

180 IF k$-" " THEN GOTO 220 
190 LET s$-s$*k$ 

200 NEXT x: GOTO 120 

210 IF LEN s$55 OR LEN s$«1 
THEN PRINT "ERRO": GOTO 120 


220 IF LEN s$€»5 THEN LET s$- 
s$*fS( TO 5-LEN s$) 

225 FOR h=1 TO 26: IF as(h)=sS 
THEN PRINT CHR$ (h*64); 

230 NEXT h 
240 LET s$-"": 
250 DATA "0-","-000","-0-0","- 
00","0”,"00-0”,"--0”,"0000","0 
0”,70---","-0-","0-00”,"--”," 
07,"---","0--0”,"--0-","0-0",” 
,7-","00-","000-",”0--","- 


GOTO 200 



























































20 FOR X=1 TO 26:READ AS(X) :NEX 
TX 

30 PRINT 696,;:INPUT"CODIFICAR 
OU DECODIFICAR (1,2) ";R 

40 IF R=2 THEN 140 

50 PRINT" MENSAGEM A SER CODIF 
ICADA :" 

60 INPUT MS 

70 FOR X=1 TO LEN(MS) 
80 IF MIDS(M$,X,1)=" 
NT" *;:GOTO 110 
90 P$*MID$ (M$,X,1) 
100 PRINT " ";AS(ASC(P$)-64); 
110 NEXT 

120 PRINT:PRINT:PRINT " 
ER TECLA PARA CONTINUAR" 
130 IF INKEYS="" THEN 130 ELSE 
RUN 

140 PRINT" 
IFICADA" 
150 INPUT MS:MS=MS+” 
INT 
160 
170 
180 
190 


" THEN PRI 


QUALQU 


MENSAGEM A SER DECOD 
":PRINT:PR 


FOR X=1 TO LEN(M$) 

KS=MIDS (MS,X,1) 

IF К5-" " THEN 210 
S$-S$*K$ 

200 NEXT:PRINT:GOTO 120 

210 IF LEN (S$)>4 OR LEN(S$)<1 
THEN PRINT " ";:GOTO 200 

220 FOR H=1 TO 26:IF AS(H)-SS T 
HEN PRINT CHR$(H*64); 

230 NEXT 

240 S$-"":GOTO 200 

250 DATA 0-,-000 
0,--0,0000,00,0 
-0, 
000- 


< 
na 

10 CLS:DIM AS(26) 
20 FOR X=1 TO 26 


XT X 
30 PRINT TAB(3);:INPUT"CODIFICA 












:READ AS(X) :NE 


















R OU DECODIFICAR(1,2)";R 

40 IF R-2 THEN 140 

50 PRINT TAB(7)"MENSAGEM A SER 
CODIFICADA" 

60 INPUT M$ 

70 FOR X-1 TO LEN (М5) 
80 IF MIDS(MS,X,1)=" ” 
NT" ";:GOTO 110 

90 PS=MIDS(MS,X,1) 

100 PRINT” ”;AS(ASC(PS)-64); 
110 NEXT X 

120 PRINT:PRINT:PRINT TAB(2)"AP 


THEN PRI 





ERTE QUALQUER TECLA PARA CONTIN 
UAR" 
130 IF INKEYS THEN 130 ELSE 
RUN 


140 PRINT TAB(6) "MENSAGEM A SER 
DECODIFICADA” 




















150 INPUT MS:MS=M$+" ":PRINT:PR 

INT 

160 FOR X=1 TO LEN(MS) 

170 KS=MIDS(M3,X,1) 

180 ” " THEN GOTO 210 

190 $ $+KS 

200 NEXT X:PRINT:GOTO 120 

210 IF LEN(S$)>4 OR LEN(S$)<1 T 

HEN PRINT:PRINT DEIXE ESPA 

CO ENTRE 0S CÓDIGOS”: GOTO 200 

220 FOR TO 26:TF AS(H)= 

HEN PRINT CHRS (H+64) ; 

230 NEXT 

240 S$-"":GOTO 200 

250 DATA 0-,-000,-0-0,-00,0,00 

0,--0,0000,00,0---,-0-,0-00, 

-0,---,0--0,--0-,0-0,000,-,00 

000-,0--,-00-,-0--,--00 

10 HOME DIM A$(26) 

20 FOR X = 1 TO 26: READ AS(X) 
NEXT X 

30 PRINT TAB( 6);: INPUT "COD 


IFICAR OU DECODIFICAR(1,2)?";R 


ПОВИ Ш A 22 жовёлмдйомзк 72. = ПЕ ВЕНЕ 


4 
Código Morse na tela 


40 IF R = 2 THEN 140 

50 PRINT TAB( 9)"MENSAGEM A S 
ER CODIFICADA" 

60 INPUT MS 


70 FOR X = 1 TO LEN (MS) 

80 IF MIDS (MS,X,1) = ” ” THE 
N PRINT " ";: GOTO 110 

90 PS = MIDS (MS,X,1) 

100 PRINT " ";AS( ASC (P$) - 6 
4); 

110 NEXT 

120 PRINT : PRINT : PRINT TAB 


( 3)"APERTE QUALQUER TECLA PARA 
CONTINUAR" 





130 GET TS: IF T$ - "" THEN G 
ото 130 

135 GOTO 30 

140 PRINT ТАВ( 8) "МЕМЅАСЕМ А 
SER DECODIFICADA” 

150 INPUT MS:MS = MS + " ": PR 
INT : PRINT 

160 FOR X = 1 TO LEN (MS) 

170 K$ = MIDS (M$,X,1) 

180 IF K$ = ” ” THEN GOTO 210 
190 85 - 88 % КӘ 

200 МЕХТ Х: РВІМТ : GOTO 120 











210 IF LEN (55) > 4 OR LEN ( 
S$) < 1 THEN PRINT ” ”;: GOTO 
200 

220 FOR H = 1 TO 26: 1F AS(H) 
= SS THEN PRINT CHRS (H + 64) 
230 NEXT 

240 55 = "": СОТО 200 

250 DATA 0-,-000,-0-0,-00,0,0 
0-0,--0,0000,00,0---,-0-,0-00 

-,-0,---,0--0,--0-,0-0,000,-,00 
-,000-, ,700-,-0--,--00 





A primeira parte do programa atri- 
bui a cada variável AS(X) um sinal Mor- 
se equivalente a uma letra do alfabeto, 
na sua devida ordem (linha 20). Por 
exemplo, AS(1) conterá /.-/, que é o có- 
digo da letra A. Seria interessante usar 
0 sinal de menos para um traco, e o as- 
terisco ou o zero para um ponto, em vez 
do ponto final. 

A parte de codificação é muito seme- 
lhante à dos dois primeiros programas 
Cada letra de seu texto é lida e conver- 
tida em um número entre 1 e 26 e a se- 
quência adequada de pontos e traços é 
então impressa (linha 100) 

A decodificação da mensagem se pro- 
cessa do seguinte modo. O computador 
lê cada caractere e soma-o aos anterio- 
res, até encontrar um espaço (linhas 160 
a 200). Então ele compara essa cadeia 
de caracteres com as que estão na variá- 
vel AS, identificando a letra equivalen- 
te e imprimindo-a por meio do coman- 
do CHRS (linha 220). 

Na segunda parte deste artigo, vocé 
aprenderá a decodificar transposicóes e 
cifras e utilizar códigos multiplicativos 
€ códigos comerciais 





ШШ E E ES epa RS uui S 








ARMAZENAGEM 
DE NÚMEROS 


Como você já sabe, o interpretador 
BASIC pode trabalhar com números 
fracionários. Aprenda agora 
a armazená-los na memória 
e obtenha resultados mais precisos. 





Quando o resultado de uma operação 
numérica é muito grande ou, então, 
muito pequeno, o computador mostra, 
frequentemente, na tela, um número 
com aparência meio estranha, tal como 
2.34E12 ou 1.222E-9. 

Essa maneira de representar números 
é conhecida como notação científica, ou 
notação de engenharia, e é usada auto- 
maticamente toda vez que o interpreta- 
dor BASIC não consegue mostrar um 
valor numérico que caia dentro do limite 
de sete a oito algarismos, dependendo 
da marca do computador. Existem tam- 
bém meios, em BASIC, de mostrar ou 
imprimir os valores numéricos que se 
quiser, em notação científica. 

Na notação científica (chamada ain- 
da de forma exponencial), um número 
é composto por duas partes: a mantissa, 
que contém os algarismos significativos 
do número, geralmente com apenas um 
digito à esquerda da vírgula; e o expoen- 
te, que consiste em uma potência de 10 
pela qual a mantissa deverá ser multi- 
plicada para obter o valor numérico a 
ser representado. Assim, por exemplo, 
os números aqui abordados significam, 
respectivamente: 















2.34Е12 = 2.34 x 101? 
2.340.000.000.000 





1.223E-9 — 1.223 x 107? - 
= 0,000000001223 


Na realidade, esta é exatamente a ma- 
neira com que o interpretador BASIC 
armazena todos os valores reais: man- 
tissa e expoente são conservados em gru- 
pos separados de bytes. Só quando o nú- 
mero vai ser mostrado por um PRINT 
ou equivalente é que se processa a con- 
versão para o formato mais conhecido. 
O limite para que isso ocorra varia com 
a marca do computador. Nos micros da 
linha Apple, TRS-Color e TRS-80, por 
exemplo, é de sete algarismos. No Spec- 
trum e no MSX, é de oito algarismos. 
Alguns computadores, como os das li- 
nhas TRS e MSX, podem expressar nú- 
meros com precisáo dupla, isto é, náo 
precisám recorrer à forma exponencial 
se o número tiver até quinze dígitos de 
precisão. 

Você também poderá usar a forma 








exponencial como um modo abreviado 
de entrar números longos no computa- 
dor (dentro de um programa, ou mes- 
mo usando um comando INPUT). 

O programa a seguir o ajudará a en- 
tender como funciona essa forma, e co- 
mo o valor da mantissa é calculado. 





10 CLS : POKE 23658,8 

20 INPUT "INTRODUZA O NUMERO” 
LINE AS 

25 IF A$="" THEN GOTO 20 

30 LET N$-"0": LET E=0: LET N 











CS DE TS E O RO 








EXPOENTES 
COMO SÃO ARMAZENADOS 
OS NUMEROS 






NÚMEROS NEGATIVOS 
PEEK NA MEMÓRIA 
COMO ECONOMIZAR MEMÓRIA 





PONTO FLUTUANTE 
A FUNÇÃO INSTR 









EFEITOS ESTRANHOS 
FORMATAÇÃO COM PRINT USING 





=VAL AS 

40 IF N=0 THEN PRINT "VALOR 
MUITO PEQUENO !”: 
GOTO 10 


| 60 LET NS=STRS N: 
* 
i 50 LET F=0: 


FOR M=1 TO LEN NS: 
PAUSE 50: E” THEN LET F=M 
65 NEXT M: IF F=0 THEN СОТО 
180 

68 LET N$-N$( TO F-1) 

70 IF ABS N<1 THEN GOTO 130 
80 IF ABS N<10 THEN GOTO 110 
90 LET N=N/10: LET F=0: FOR M 
=1 TO LEN NS: IF NS(M)=".” 
THEN LET F=M 

92 NEXT M: IF F=LEN N$ THEN 


LET F=0: 
TF NS(M)=" 


FOR M=1 TO LEN AS 
LET F=M 
IF F=0 THEN GOTO 


IF AS(M)="E” THEN 
55 NEXT M: 
200 














































LET NS=NS( TO LEN NS-1): GOTO 
100 
95 IF F<>0 THEN LET N$=N$( 


TO F-1)+N9(F+1)+" 
): GOTO 80 

100 LET N$-N$*"0": GOTO 80 

110 IF NS(LEN N$)=".” THEN 
LET NS=NS( ТО LEN NS-1) 

120 GOTO 180 

130 IF ABS N>=1 THEN GOTO 170 
140 LET N=N*10: LET F=0: FOR M 
=1 TO LEN NS: IF NS(M)="."” 


"*N$(F*2 TO 


THEN LET F=M 

145 NEXT M: IF F=1 THEN LET N 
$="”.0"+N$(2 TO ): GOTO 130 

150 IF F<>0 THEN LET NS=N$( 


TO F-2)+"."+NS(F-1)+NS(F+1 TO 
): GOTO 130 


160 LET N$-"."4N$: GOTO 130 


170 IF VAL AS<O THEN LET NS=" 
-"+NS 

180 PRINT : PRINT AS;" IGUAL”: 
PRINT NS 

190 GOTO 20 

200 IF ABS N<1 THEN GOTO 220 
210 IF ABS N»-10 THEN LET Е-Е 


+1: LET N-N/10: GOTO 210 

215 GOTO 230 

220 IF ABS N<=1 THEN LET E=E- 
1: LET N=N*10: GOTO 220 

230 PRINT AS;” IGUAL”: PRINT М 
IF E<>0 THEN PRINT "E";E 








240 PRINT GOTO 20 
10 CLS 
20 PRINT:INPUT^INTRODUZA O NUME 


RO ";A$ 

30 N$="0":E=0:N=VAL (AS) 

40 IF N-0 THEN PRINT "VALOR 

MUITO PEQUENO !":PRINT:GOTO 20 
50 I=INSTR(AS,”E”):IF F=0 
THEN 200 
60 NS=STRS (N) :F=INSTR(NS,”“E 
”):I F F=0 THEN 180 ELSE N 
$=MIDS (NS, 2,F-2) 
70 IF ABS(N)<1 THEN 130 

80 IF ABS(N)<10 THEN 110 

90 N=N/10:F=INSTR(NS,"."):IF F= 


LEN(N$) THEN NS=LEFTS (NS, LEN(NS 
)-1) ELSE IF F<>0 THEN N$=LEFTS 
(NS,F-1)*MID$ (NS, F*1,1) *". "*MID 
$(N$,F*2):GOTO 80 

100 N$-N$*"0^:GOTO 80 
110 IF RIGHT$(N$,1)-". 
=LEFTS (NS, LEN(NS)-1) 
120 GOTO 180 

130 IF ABS(N)>=1 THEN 170 
140 N=N*10:F=INSTR(NS,”.” 
=1 THEN N$= 
130 

150 IF F<>0 THEN NS=LEFTS (NS,F- 
2)+"”.”+MIDS (NS,F-1,1)+MIDS(NS,F 
+1) :GOTO 130 
160 N$-"."*N$:GOTO 130 
170 IF VAL(AS)<O THEN N$="-"+NS 
180 PRINT:PRINT A$;" IGUAL":PRI 
NT N$ 

190 GOTO 20 
200 IF ABS(N)<1 THEN 220 
210 IF ABS(N)>=10 THEN E=E+1:N= 
N/10:GOTO 210 ELSE 230 
220 IF ABS(N)<=1 THEN E=E-1:N=N 
*10:GOTO 220 
230 PRINT A$;" 
CHR$(8);:IF Е<>0 ТНЕМ PRINT "E" 


¡E 
240 GOTO 20 




























” THEN NS 





+ 0"+MIDS (NS, 2) :GOTO 


IGUAL ":PRINT N; 


10 HOME 

20 PRINT : INPUT "ENTRE NUMERO 
:";A$ 

30 LET NS = "0”:E = 0:N = VAL 
(AS) 

40 IF N * 0 THEN PRINT "VALOR 
MUITO PEQUENO": PRINT : GOTO 2 
0 

50 FOR F = 1 ТО LEN (AS): IF 
MIDS (AS,F,1) * "E" THEN 54 
52 NEXT F:F = 0: GOTO 200 

54 IF F = 0 THEN 200 

60 LET N$ * STR$ (N) 

62 FOR F * 1 TO LEN (N$): IF 
MIDS (NS,F,1) = "E" THEN 66 
64 NEXT F:F = 0 

66 IF F = 0 THEN 180 

68 LET NS = MIDS (NS,1,F - 2) 
70 IF ABS (N) < 1 THEN 130 
80 IF ABS (N) < 10 THEN 110 
90 LETN - N / 10 

92 FOR F = 1 TO LEN (N$): IF 








MIDS (NS,F,1) = ”.” THEN 96 
94 NEXT F:F = 0 

96 IF F= LEN (NS) THEN NS = 
LEFTS (NS, LEN (NS) - 1): GOTO 
100 

98 IFF < > 0 THEN NS = LEFT 
$ (NS,F - 1) + MIDS (NS,F + 1, 


E 






MIDS (NS,F + 2): GO 

















TO 80 


100 LET N$ - N$ * "0": GOTO BO 


110 IF RIGHTS (N$,1) 9 "." TH 
EN NS = LEFTS (NS, LEN (NS) - 
1) 

120 GOTO 180 

130 IF ABS (N) > = 1 THEN 17 
0 

140 LET N = N * 10 


142 FOR F = 1 TO 
МІр5 (М5,Ғ,1) 

144 NEXT F:F = 0 

146 IF F = 1 THEN NS = 
MIDS (NS.2): GOTO 130 


LEN (NS): IF 
." THEN 146 


чө" + 


150 IFF < > 0 THEN N$ = LEF 
T$ (NS,F - 2) * "." * MID$ (NS 
F - 1,1) + MIDS (NS,F + 1): G 
OTO 130 

160 LET N$ = ".” + NS: GOTO 13 
0 

170 IF VAL (AS) < 0 THEN NS = 
ALIS 

180 PRINT A$;" IGUAL A ";N$ 
190 сото 20 

200 IF ABS (N) < 1 THEN 220 
210 IF ABS (N) > = 10 THEN E 
= E + 1:N = N / 10: GOTO 210 
215 GOTO 230 

220 IF ABS (N) < = ] THEN E 
= E - 1:N = N * 10: GOTO 220 
230 PRINT A$;" IGUAL A ";N; 
235 IFE < » 0 THEN PRINT ^E 
"¡E 

240 PRINT сото 20 


Quando vocé executar esse progra- 
ma, com o comando RUN, o computa- 
dor ficará esperando que um nümero se- 
ja digitado, e as teclas « ENTER» ou 
< RETURN > sejam pressionadas. En- 
tre, então, um número positivo, em for- 
ma normal, ou no modo exponencial. 
O computador imprimirá o nümero que 
vocë entrou na forma oposta. Os micros 
TRS-80, TRS-Color e MSX dispóem de 
um comando (PRINT USING, já expli- 
cado em um artigo anterior) que dá mais 
liberdade ao programador para impri- 
mir números de acordo com um deter- 
minado formato. Isso será explicado 
mais adiante. 

O programa utiliza a função INSTR, 
nas versoes para o TRS-80, TRS-Color 
e MSX. Essa função não existe no Ap- 
ple e no Spectrum, mas pode ser substi- 
tuída por uma pequena rotina sempre 
que for necessário. Ela tem por finali- 
dade localizar o ponto da cadeia que 
contém o nümero de entrada, onde está 


(se estiver) presente a letra E, indicati- 
va de expoente. A expressão INSTR 
(AS, “E”) retorna um valor numérico, 
igual à posição do E na cadeia de entra- 
da, Esse valor é armazenado em F, e se- 
rá igual a zero, se não for encontrado. 

Nos computadores que não possuem 
a função INSTR, um laço FOR... NEXT 
percorre, caractere por caractere, a ca- 
deia de entrada (função MIDS, no Ap- 
ple, e TO, no Spectrum), examinando 
se é um E. Se este for encontrado, sua 
posição estará contida no contador do 
laço (variável F). 

A lógica do programa é um pouco 
complicada, mas você conseguirá 
entendê-la se tomar um exemplo numé- 
rico e seguir o processamento manual- 
mente, para ver como funciona. 


Se vocé quiser encontrar a forma 
**normal'” de um número expresso па 
forma exponencial, deve multiplicar a 
mantissa por um valor igual a 10 eleva- 
do ao nümero situado logo após a letra 
E (ou seja, o expoente). 

Aparentemente complicado, esse cál- 
culo é na verdade muito simples. Tome 
como exemplo o nümero 1.23E4. Para 
converté-lo na forma mais comum, mul- 
tiplique a mantissa (1.23) por 10 eleva- 
do a 4, Teremos, assi 





1.23 x 10.000 = 12.300 

Você pode tentar converter vários nú- 
ТСЕ 
dos com o auxílio do programa que foi 
apresentado linhas atrás. Note que, 
qualquer que seja o valor, a mantissa é 
sempre expressa com um algarismo an- 
tes do ponto. Portanto, ela varia entre 
1.0 e 9.999999. 

Os valores negativos sào expressos de 
maneira similar. Nesse caso, a mantis- 
sa é um nümero negativo, enquanto o 
expoente pode ser tanto negativo como 
positivo. Aliás, um sinal negativo no ex- 
poente tem um significado totalmente 
diferente do de um sinal negativo na 
mantissa. Tente vocé mesmo testar is- 
so, utilizando nosso programa, 


ARMAZENAMENTO DE NÚMEROS 


A notação exponencial é igualmente 
útil para nos ajudar a compreender co- 
mo os computadores armazenam núme- 
ros, internamente. 

Quando um comando direto é digi- 
tado e executado — por exemplo, 
PRINT 10 * 10 —, a primeira coisa que 
o interpretador BASIC faz é traduzir os 
números entrados para a forma expo- 
nencial, e usá-los nessa forma para cal- 
cular o resultado, que também é arma- 
zenado na forma exponencial. 

Nem tudo, porém, parece tào sim- 
ples. Como vocé já sabe, os computa- 
dores digitais náo utilizam a notacáo de- 
cimal para armazenar números, mas sim 
a binária (numeração de base dois). Pa- 
ra entender de que maneira os números 
são armazenados na memória RAM, si- 
ga o exemplo abaixo, de conversão do 
número 10 (em decimal). 

O primeiro passo é convertê-lo em bi- 
nário. Isso nos dá o número 


00001010.00000... 


Os primeiros quatro zeros desse nüme- 
ro binário poderiam ser eliminados, re- 
sultando no nümero 1010.00000... 

Como foi visto, um nümero decimal 
em forma exponencial contém uma 
mantissa entre 1.0 е 9.9999... Quando 
um nümero como esse é armazenado em 
binário, a mantissa transforma-se em 
um número que sempre comeca com .1. 

Isso é possível porque o tamanho da 
parte exponencial do número determi- 
na a posigáo do ponto binário (o equi- 
valente binário ao ponto decimal). Co- 
mo ele é automaticamente definido, a 
mantissa nào precisa especificar onde se 
encontra o ponto. Surgem, assim, dois 
problemas: como fazer com que a par- 
te exponencial do nümero indique onde 
deverá estar o ponto binário, e como 
converter esse nümero de tal maneira 
que ele comece com .1? 


COMO MOVIMENTAR O PONTO 


A resposta para ambos os problemas 
é a mesma: tudo o que precisa ser feito 











é mover o ponto até que ele fique á es- 
querda do primeiro 1, e adicionar | ao 
expoente para cada posição que o pon- 
to seja deslocado. Por exemplo, para o 
número 58 (em decimal), ou 111010.000 
(em binário), o ponto binário é movido 
gradualmente para a esquerda, até que 
não haja mais números à sua esquerda. 
Neste caso, teríamos que movê-lo seis 
casas para a esquerda, de modo que o 
expoente resultasse em +6, e a mantis- 
ва Гове 0.11101000. 

Na realidade, o expoente parte de 128 
(por razóes esclarecidas mais adiante); 
portanto, o número de posições deslo- 
cadas deve ser somado a 128, e não a 
0. No exemplo acima, o expoente será 
igual a 128 +6, ou 134 (e isto é armaze- 
nado como um nümero binário). 

Recapitulando, o computador arma- 
zena a parte exponencial de um nüme- 
ro em byte. A mantissa é armazenada 
também, só que ocupa quatro bytes. No 
exemplo acima, os trés bytes restantes 
seriam preenchidos com zeros: 


EXPOENTE 
МАМТ-І МАМТ-2 МАМТ-3 МАМТ-4 
11101000 00000000 00000000 00000000 


Portanto, qualquer nümero real ocu- 
pa exatamente cinco bytes. Isso limita 
os tamanhos máximo e mínimo que o 
computador pode armazenar. O byte 
ünico da parte exponencial nos dá o va- 
lor máximo de 2 elevado a 127 (nào de 
256, pois o primeiro bit é usado como 
indicador de sinal, para comunicar se o 
expoente é positivo ou negativo, deixan- 


do apenas sete bits para o valor numé- 
rico do expoente). 

O valor máximo da mantissa é 
O.1l111..., quando todos os bits sào 
iguais a 1. Esse valor está muito próxi- 
mo do binário 1.00000..., que é 1 tanto 
em binário quanto em decimal. O me- 
nor valor possivel será, então, 
0.100000..., quando todos os bits, ex- 
ceto o primeiro, forem iguais a zero 
(lembre-se de que o primeiro bit da man- 
tissa é sempre igual a 1, pois o ponto bi- 
nário é movido até ai). E 0.1 em biná- 
rio é igual a 1/2 ou 0.5, em decimal. 

Multiplicando a mantissa pelo ex- 
poerite, vocé poderá chegar até os valo- 
res extremos que podem ser armazena- 
dos na memória, em ponto flutuante. O 
valor máximo é 1.70141E38, em deci- 
mal, para um micro de oito bits. Vocé 
poderá utilizar os programas seguintes 
para verificar como é representado este 
nümero internamente. 

Nesse aspecto, o Spectrum difere dos 
demais computadores: ele utiliza seis 
bytes em vez de cinco para armazenar 
números em ponto flutuante. Cinco des- 
ses bytes sáo idénticos aos do exemplo 
citado. O sexto é necessário para indi- 
car ao computador se o número é de 
ponto flutuante ou não. Isso é feito 
precedendo-se o grupo de cinco bytes 
com o byte igual a 14 


CASOS ESPECIAIS 


O que foi dito anteriormente nos dá 
uma boa idéia de como o computador 
armazena números em formato de pon- 
to flutuante, Existem, porém, duas va- 




















riantes em relação ao processo estuda- 
do. A primeira ocorre quando o núme- 
ro inicial é menor do que 1. Nesse caso, 
se tentarmos movimentar o ponto biná- 
rio para a esquerda, iremos afastá-lo do 
lugar onde queremos que ele realmente 
esteja. Portanto, devemos movê-lo pa- 
ra a direita. Do mesmo modo, a fim de 
que o número seja corretamente repre- 
sentado, diminui-se o expoente de 1, pa- 
ra cada posição deslocada (em vez de so- 
mar 1). O expoente começa, como sem- 
pre, a partir do valor 128, 

Muitas vezes, antes de exibir um nú- 
mero binário, o computador escreve, 
acima de cada “coluna” desse número, 
seu equivalente decimal. Você já deve 
ter visto isso antes nos artigos sobre blo- 
cos gráficos, mas apenas para o caso dos 
números à esquerda do ponto. O mes- 
mo pode ser feito para os números à di- 
reita do ponto, que formam na realida- 
de sua parte fracionári 

Em binário, para achar o valor deci- 
mal da próxima coluna à esquerda, 
multiplica-se o valor por 2. Trabalhan- 
do da esquerda para a direita, portan- 
to, deve-se fazer exatamente o contrá- 
rio, ou seja, dividir por 2. 

A segunda variante na representação 
dos números em ponto flutuante ocor- 
re quando o nümero é menor do que ze- 
ro, ou seja, negativo. Nesse caso, © com- 
putador precisa armazenar a sua versão 
interna do sinal de menos em algum lu- 
gar — e isto deve ser feito sem desper- 
diçar espaço de memória. 

Você viu antes que, da maneira co- 
mo os números são armazenados, o pri- 
meiro bit do primeiro byte da mantissa 
tem que ser sempre igual a 1. Dando is- 














a 








so como certo, o computador utiliza esse 
bit para indicar o sinal da mantissa: se 
o número for negativo, o bit valerá 1; 
se ele for positivo, o valor do bit será, 
então, 0. 


DE ESTÁ AQUELE NUMERO? 


A partir dos exemplos acima, já é 
possível entender como o computador 
armazena os números na memória. O 
número decimal 58 (111010 em binário) 
é armazenado em cinco bytes sucessivos, 
da maneira como se segue: 


134 104 000 000 000 (em decimal) 


e o número 10 (decimal) é armazenado 
assim: 


132 032 000 000 000 


Experimente vários exemplos, traba- 
lhando com os valores decimais conti- 
dos nos bytes. Teste as suas respostas 
usando o programa a seguir. Digite 
RUN 100 para entrar outro número. 

Embora armazenem números na for- 
ma geral exposta até agora, os micros 
compatíveis com o Sinclair Spectrum 
contam ainda com outro recurso. Se um 
número inteiro, compreendido entre 
-65535 e 65535 for usado, o Spectrum 
o armazena de modo diferente, reduzin- 
do-o a seu equivalente binário e guar- 
dando-o em apenas dois bytes (e náo em 
forma exponencial, usando seis bytes). 
Embora possa parecer que isso seja fei- 
to para economizar memória, tal fato 
não acontece, pois três bytes são deixa- 
dos sem uso. 

Por essa razáo, quando vocé usar o 
primeiro dos dois programas abaixo, 
náo entre um valor númerico entre 
-65535 e 65535: o programa ainda fun- 
cionará, mas os resultados náo corres- 
ponderáo á explicagáo adotada. 


10 BORDER 1: 
св 

20 INPUT "Introduza 
(nao inteiro)”,x 


PAPER 7: INK 9: 


um numero 


40 PRINT '"Expoente: ";PEE& ( 
PEEK 23627+256*DEEK 23628+1) 
50 PRINT '"Mantissa:";: FOR n 


22 TO 5 

60 PRINT TAB 10;PEEK (PEEK 
23627+256*PEEK 23628+n) 

70 NEXT n 

80 STOP 


[тт 


10 CLS 
20 INPUT” INTRODUZA UM NUMERO ” 


ін 

30 D=VARPTR (N) 

40 PRINT:PRINT” EXPOENTE = ”,PE 
EK(D) 

50 PRINT" MANTISSA * "; 

60 FOR G-1 TO 4 

70 PRINT,PEEK (D*G) 

80 NEXT 

90 PRINT:GOTO 20 


816] 


10 НОМЕ 
20 INPUT "ENTRE UM NUMERO: 





iX 





30 LET V = PEEK (105) + PEEK 
(106) * 256 

40 PRINT "EXPOENTE PEEK (V 
*2) 


50 PRINT "MANTISSA:"; 

60 FOR N * 3 TO 6 

70 PRINT PEEK (V + N);" "i 
80 NEXT N 


100 REM SEGUNDO PROGRAMA 

110 BORDER l: PAPER 7: INK 9: 
CLS : LET r=0 

120 INPUT AT 1,0;"Introduza ex 
poente” exp 

130 IF exp<0 OR exp>255 THEN 
GoTo 120 

140 PRINT '"Expoente: ";exp: 
POKE PEEK 23627*256*PEEK 23628 
*l,exp 
150 PRINT 
-2 TO 5 
160 INPUT AT 1,0;"Introduza ma 
ntissa",man 

170 IF man<0 OR man>255 THEN 
сото 160 

180 PRINT TAB l0;man: POKE 
PEEK 23627*256*PEEK 23628*n, 
man 

190 NEXT n 

200 PRINT '"Resulta: "ir 


aua 


100 REM SEGUNDO PROGRAMA 

110 CLS 

120 N=1:D=VARPTR (N) 

130 INPUT” INTRODUZA EXPOENTE ” 
iE 
140 
150 


'"Mantissa:";: FOR n 





POKE D,(255 AND E) 
PRINT" INTRODUZA MANTISSA " 


FOR K=1 TO 4 

INPUT E 

POKE D*K, (255 AND E) 

PRINT ,; 

NEXT 

PRINT:PRINT" NUMERO E ";N:P 


160 
170 
180 
190 
200 
210 
RINT 

220 GOTO 130 


W 


110 HOME :R = 1:V = 
) + PEEK (106) * 256 
120 INPUT "ENTRE EXPOENTE:”;EX 
130 IF EX < 0 OR EX > 255 THEN 
120 


PEEK (105 





140 РОКЕ V * 2,EX 

150 FOR N = 3 TO 6 

160 INPUT "ENTRE MANTISSA:";M 
170 IF M « 0 OR M » 255 THEN 1 
60 

180 POKE V + N,M 

190 NEXT N 

200 PRINT "RESULTADO=";R 


O primeiro desses programas permi- 
te que um número seja digitado pelo 
teclado; em seguida, ele imprime os con- 
teúdos decimais dos cinco bytes onde o 
número está guardado. 

Seu funcionamento tem a seguinte di- 
nâmica: inicialmente, é necessário esta- 
belecer uma variável numérica, que ar- 
mazenará o número de entrada. Como 
ela é a primeira variável a ser definida 
quando o programa é executado, seu 
nome aparecerá logo no começo de uma 
área especial da memória (definida e fi- 
xada pelo interpretador BASIC de ca- 
da computador), chamada lista de va- 
riáveis. Essa lista tem informações so- 
bre o nome da variável e o endereço da 
memória RAM onde seu conteúdo será 
armazenado. Tal endereço é dividido em 
dois bytes sucessivos. No Apple, por 
exemplo, o endereço do conteúdo da 
primeira variável de um programa en- 
contra-se nos apontadores 105 e 106 (em 
decimal). No Spectrum, os endereços 
correspondentes são 23627 e 23628. 
Tanto no Apple quanto no Spectrum, 
o endereço decimal de dezesseis bits é 
calculado pela expressão na linha 40 (30 
no Apple). 

Nos computadores das linhas 
TRS-80, TRS-Color e MSX, o usuário 
não precisa conhecer a locação exata do 
apontador da lista de variáveis, pois 
existe uma função predefinida do BA- 
SIC chamada VARPTR (abreviatura de 
VARiable PoinTeR — ou apontador de 
variáveis), que indica o endereço deci- 
mal completo do ponto da memória on- 
de está armazenado o conteúdo da va- 
riável nomeada no argumento da fun- 
ção. Veja a linha 30 do programa para 
esses computadores. A variável D con- 
terá o endereço inicial dos cinco bytes 
que contém o valor armazenado na va- 
riável N. O primeiro byte contém o ex- 
poente e nos quatro bytes sucessivos es- 
tá a mantissa. 

O segundo programa faz o contrário: 
pede que cinco bytes sejam digitados, e 
imprime o número que ele representa 
(algumas das respostas poderão apare- 
cer na forma exponencial). 

Seu funcionamento é semelhante ao 
do primeiro programa, ou seja, coman- 
dos PEEK (nas versões para o Apple e 
Spectrum) ou VARPTR (nas versões pa- 
ra o TRS e o MSX) sáo usados para lo- 
calizar o endereço inicial da primeira va- 


riável. Ela é igualada a 0 ou a 1 logo na 
primeira linha do programa, para asse- 
gurar que ficará em primeiro lugar na 
lista de variáveis (esse ““truque”” só é ne- 
cessário para o Apple e o Spectrum). A 
seguir, o programa pede ao usuário que 
entre os valores do expoente e das par- 
tes da mantissa. Em vez de empreender 
cálculos infindáveis para chegar ao re- 
sultado convertido, o programa coloca 
esses valores nos cinco bytes de arma- 
zenamento da variável inicial, por meio 
de comandos POKE, e imprime o resul- 
tado, por meio de um PRINT normal. 


ECONOMIZE MEMÓRIA 


O computador sempre armazena nú- 
meros em grupos de cinco bytes. Ora, 
isso representa um grande desperdício 
de memória, pois nem sempre sào ne- 
cessários tantos bytes na mantissa. Além 
disso, os bytes em excesso poderiam ser 
aproveitados em outros lugares. 

De fato, vocé pode economizar quan- 
tidades significativas de memória se evi- 
tar o uso de múmeros em BASIC, em- 
bora isso nem sempre seja possível. 
Existe, entretanto, um jeito de reduzir 
a quantidade de memória que cada nú- 
mero requer. Assim, é possível, em mui- 
tos casos, evitar o emprego de números 
em um programa, colocando dentro de 
variáveis os números repetidamente uti- 
lizados em várias partes do programa. 
Por exemplo, uma constante que apa- 
rece com freqiiéncia , como o número 
pi (3.1415...), pode ser colocado na va- 
riável P. Esse “truque” funciona sem- 
pre, mas não vale a pena recorrer a ele 
quando o valor numérico é usado ape- 
nas uma ou duas vezes no programa. 

A vantagem de se empregar uma va- 
riável nesses casos é que o seu nome ocu- 
pa apenas um ou dois bytes de espaço 
no programa, em vez de cinco, se seu 
nome for curto. (A vantagem deixará, 
naturalmente, de existir se a variável se 
chamar MEDIA, ou coisa parecida). 

Alguns números — como 0, 1, 2, 10 
etc. — aparecem tantas vezes na maio- 
ria dos programas, que talvez convenha 
colocá-los em variáveis, se você tem pro- 
blema de espaço. Esse método é espe- 
cialmente útil nos micros Sinclair, que 
usam seis bytes em vez de cinco. 


EFEITOS ESTRANHOS 


Cálculos realizados por computador 
revelam, ás vezes, erros aparentemente 
inexplicáveis; assim, um resultado que 
deveria dar “redondo” — 10.000000, 
por exemplo —, pode aparecer na tela 


sob uma forma levemente modificada 
— como 10.000001, Conhecidos como 
erros de precisão, esses equívocos são 
facilmente explicados pela maneira co- 
mo o computador armazena números. 

Tente os exemplos seguintes em sua 
máquina. A causa por trás de cada um 
dos erros será explicada mais adiante: 


Primeiro, tente a linha abaixo: 
PRINT 10.0000000001 


Ao imprimir o resultado, o compu- 
tador omite o 1 final e converte o nú- 
mero que você digitou em 10, simples- 
mente. Isso pode se tornar um proble- 
ma, quando você quiser trabalhar com 
maior precisão numérica. Entretanto, é 
possível reverter esse fato em seu favor, 
quando se deseja entrar números entre 
-65535 e 65535 no programa (o que nor- 
malmente não deve ser feito, pois o 
Spectrum os representa de forma dife- 
rente, como já foi dito). 

Basta, para isso, entrar o número inteiro 
em forma fracionária e colocar um alga- 
rismo pouco significativo no final. Assim, 
entrando o número 10.0000000001, como 
no exemplo citado, você “enganará” o mi- 
crocomputador e ele mostrará como 10 é 
armazenado no formato de cinco bytes, 
em vez de no formato especial para núme- 
ros inteiros. 

Agora tente entrar esta linha: 


PRINT INT -65536 


Com ela, será evidenciado um erro 
no interpretador BASIC do Spectrum, 
uma vez que ele não consegue diferen- 
ciar entre esse valor e -1. 





Você pode testemunhar os estranhos 
efeitos causados nos micros compatíveis 
com o TRS-Color, entrando os núme- 
ros abaixo no primeiro programa: 


12345678901 E-4 


e também: 
454545454 E-46 


A discrepáncia do primeiro número 
é bastante óbvia. No segundo, o último 
dígito é mudado pelo computador. 


Es Ex nm iu Pu [d [3] 


Essas imprecisóes nào sáo, contudo, 
como muitas pessoas imaginam, erros 
na ROM dos computadores (excegáo 
feita ao segundo exemplo para o Spec- 
trum). A razáo pela qual o algarismo 1 
aparece ou desaparece, quando coloca- 


do no final do número, decorre do fato 
de que os computadores digitais, pela 
sua própria natureza, trabalham com li- 
mites no grau de precisáo. Portanto, 
quando os valores excederem um deter- 
minado nümero de decimais, i interpre- 
tador será obrigado a arredondar o re- 
sultado. 

Quando isso acontece, dependendo 
dos nümeros que estào sendo usados e, 
também, do nümero de etapas de cálcu- 
lo que o computador terá que vencer, os 
resultados finais podem ser completa- 
mente distintos do que se espera. 

Os computadores sào mais do que 
precisos a maior parte das vezes, e esses 
“erros”, na realidade, náo tém grande 
influéncia, Mas, para aplicagóes mais 
sérias, e que exigem grande precisáo, co- 
mo programas de contabilidade, de es- 
tatística etc., as incorreções cumulativas 
podem se tornar um grande inconve- 
niente; isso é levado em consideração 
pelos melhores pacotes de software. 

Por exemplo, usando conjuntos e 
matrizes, podem-se armazenar números 
com mais decimais do que o máximo de 
sete a nove permitido pelos computado- 
res descritos no artigo. A vantagem des- 
sa abordagem é que o programador po- 
de desenvolver uma rotina para impri- 
mir os números em forma normal, em 
vez da exponencial, como o computa- 
dor faria com valores extremos. Essa é 
uma maneira, também, de evitar men- 
sagens de erro, como ““overflow”, “nú- 
mero muito grande” etc. 


ram НЕ 


FORMATACÁO DE NÚMEROS 





Já explicamos que alguns microcom- 
putadores, como o TRS-80, o TRS-Color 
e o MSX, têm comandos que permitem 
mudar o formato de impressão de núme- 
ros com o PRINT ou o LPRINT. 

Embora uma tela possa ser formata- 
da muito bem com o auxílio dos coman- 
dos PRINTO (nos TRS) ou LOCATE 
(no MSX), é conveniente recorrer à de- 
claração USING para formatação, que 
é sempre usada em conjunto com os co- 
mandos PRINT ou LPRINT. Os ele- 
mentos essenciais dessa declaração já fo- 
ram explicados em artigo anterior; as- 
sim, faremos aqui apenas uma nova ex- 
posição, por intermédio de um progra- 
ma simples de demonstração financeira 
para uma companhia fictícia. 


10 CLS 
20 PRINT” A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANCO P| 








RELIMINAR DE 1986 DA 
30 PRINT:PRINT" 
DE ARRUELAS E 
40 PRINT:PRINT:PRINT"O MAIOR FO 
RNECEDOR DO MUNDO DE”: PRINT 

50 CS(0)="MD.345 - AZUIS” 
="MD.897 - VERDES” :C$(2) 
2 - AMARELAS” :CS(3)="MD.989 - Y 
ERMELHAS” 

60 FOR K=0 TO 3 

X$="ARRUELAS "+MIDS(CS(K),10 


FABRICA ACME 






70 PRINT TAB(16-LEN(X3)/2) :X$ 
NEXT 

FOR K=1 TO 7000:NEXT:CLS 

110 PRINT €12," JANEIRO” :PRINT € 
MAS basi к 

120 PRINT:PRINT"PRECO MEDIO (AT 
ACADO)" 

130 A$-^" t 
яз". 
140 PRINT:PRINTUSING A$;C$(0);: 
PRINTUSING B$;12.715265 

150 PRINTUSING A$;C$(1);:PRINTU 
SING B$;3.7363141 

160 PRINTUSING A$;C$(2);:PRINTU 
SING B$;10.35824221 

170 PRINTUSING A$;C$(3);:PRINTU 
SING B$;.5163733 

180 PRINT 6416,USING"LUCRO ТОТА 
L se. 44";374241.5353 


Esse programa, tal como está, fun- 
cionará bem apenas no micro TRS- 
Color. Para adaptá-lo para o TRS-80, 
faça as seguintes alterações: 


70 PRINT TAB(32-LEN(C$ (K))) ;C$( 
K) 

90 FOR K= 1 TO 4000:NEXT:CLS 
110 PRINT €12,"JANEIRO”: PRINT 
M6 nee há 

180 PRINT 8832,USING"LUCRO BRU- 
TO S44 18.447 :374241.5353 


nu 


10 SCREENI:WIDTH32:CLS 


t":B$-" * 





20 PRINT" A DIRETORIA TEM O PR 
AZER DE ANUNCIAR O BALANCO P 
RELIMINAR DE 1986 DA 


30 PRINT:PRINT" FABRICA ACME 
DE ARRUELAS E 

40 PRINT:PRINT:PRINT"O MAIOR ҒО 
RNECEDOR DO MUNDO DE":PRINT 

50 C$(0)="MD.345 - AZUIS”:CS(1) 
="MD.897 - VERDES”:C$(2)="MD.91 
2 - AMARELAS”:C$(3)="MD.989 - Y 
ERMELHAS” 

60 FOR K=0 TO 3 

65 XS="ARRUELAS "+MIDS (CS(K),10 





) 

70 PRINT TAB(16-LEN(X9)/2) :X$ 
80 NEXT 

90 FOR K=1 TO 7000:NEXT:CLS 

110 PRINT TAB(12 JANEIRO” : PRI 
NT TAB(12);"s======" 

120 PRINT:PRINT"PRECO MEDIO (AT 
ACADO)" 

130 AS=" / 
яза.” 





/":BS=" * 


140 PRINT:PRINTUSING A$;C$(0);: 
PRINTUSING -B$;12.715265 

150 PRINTUSING A$;C$(1);:PRINTU 
SING B$;3.7363141 

160 PRINTUSING AS;CS(2);:PRINTU 
SING B$;10.35824221 

170 PRINTUSING A$;C$(3);:PRINTU 
SING B$;.5163733 

180 PRINT €416,USING"LUCRO TOTA 
L $6596. 940.447:374241.5353 


As linhas 10 a 90 exibem na tela o ti- 
tulo do relatório, formatado de manei- 
ra simples com declarações PRINT. A 
linha 170 é particularmente interessan- 
te porque mostra como uma série de 
mensagens pode ser centrada na tela, 
usando-se TAB, que é calculado de acor- 
do com o comprimento da mensagem. 

A seção do programa que vai da li- 
nha 100 à linha 180 demonstra as carac- 
terísticas da declaração do PRINT 
USING. A linha 130 define A$, que po- 
de ser usada para mostrar as primeiras 
seis letras das cadeias alfanuméricas de- 
finidas na linha 50. O comprimento da 
cadeia é o número de espaços entre si- 
nais % (no MSX o sinal usado é a bar- 
ra inversa), mais 2. Assim, o compri- 
mento do cordão de saída levará em 
conta o espaço ocupado pelos sinais Yo. 

B$ define o formato da saida numé- 
rica. A função principal da formatação 
numérica é alinhar uma coluna de nú- 
meros, padronizando-os para que te- 
nham a mesma quantidade de algaris- 
mos antes e depois do ponto, que sejam 
tabulados tomando o ponto como refe- 
rência, e assim por diante. 

O número de digitos a ser mostrado 
é definido pelo símbolo #. Inserindo- 
se o ponto decimal na cadeia de # 
define-se a sua posição. Examine a linha 
130 do programa: B$ serve para impri- 
mir números com dois dígitos antes do 
ponto e dois dígitos depois. 

Além disso, se o sinal $ for colocado 
à esquerda dos sinais 4, ele será impres- 
so nessa posição em todas as saídas, e 
será usado para indicar quantias mone- 
tárias. 

O símbolo **antes dos sinais $ e # 
fará com que os espaços em branco à es- 
querda do campo definido para o valor 
numérico seja preenchido automatica- 
mente por asteriscos. Este é um recurso 
usado no preenchimento de cheques. No 
campo de saída definido na linha 130 fo- 
ram empregados quatro sinais diferen- 
tes. Outras combinações são possíveis. 

A linha 140 imprimirá os seis primei- 
ros caracteres de C$(0), seguidos por oi- 
to espagos e um sinal de $. Note que a 
declaracáo USING utiliza a cadeia de 
formatacáo armazenada previamente 
em BS. O número a ser mostrado nesse 
exemplo será, portanto, arredondado, 


de modo a aparecer apenas com duas ca- 
sas depois do ponto. 

A linha 150 imprimirá os seis primei- 
ros caracteres de AS, seguidos de 
*$3.74, pois sobrou um espapo em bran- 
co na formatação, que será preenchido 
por um asterisco. A linha 160 é similar 
à linha 140. Finalmente, a linha 170 im- 
primirá o número como “50.52. 

Se os números a imprimir forem mui- 
to grandes, pode-se recorrer a três tipos 
de formatação. A mais simples consiste 
na utilização de uma cadeia longa de si- 
nais %. Por outro lado, para visua- 
lizá-la melhor, podemos empregar vír- 
gulas para separar os dígitos em grupos 
de trés (no Brasil usaríamos pontos, mas 
os interpretadores BASIC existentes em 
nossas máquinas seguem o padráo nor- 
te-americano). Isso foi feito na linha 180 
do programa. A terceira alternativa é re- 
correr á forma exponencial, Para ver co- 
mo ela funciona, substitua a linha 180 
por: 


180 PRINT €832,USING"LUCRO BRU- 
TO su. ";374241.5353 


Faça a modificação pertinente no 
programa para o MSX. Os quatro sinais 
de ? que aparecem no formato indicam 
o tamanho do campo do expoente. Os 
sinais # são interpretados, então, cO- 
mo o formato da mantissa. 

A declaração USING pode ainda ser 
misturada com um PRINT na mesma 
linha (computadores TRS-80 e TRS- 
Color) e várias USING podem ser colo- 
cadas na mesma linha. Isto dá grande 
flexibilidade na programação de telas. 

Outro caractere de programação de 
formato usado com a USING e ao qual 
não nos referimos antes é o ponto de ex- 
clamação (!). Ele faz com que o progra- 
ma imprima apenas o primeiro caracte- 
re de uma cadeia alfanumérica. Tente al- 
terar a linha 130 do programa: 


130 As=" 
ARSH. HE” 


Alguns programas utilizam a função 
VAL seguida de um número entre aspas, 
em vez de um número normal. Essa for- 
ma serve, muitas vezes, para economizar 
espaço. O computador normalmente re- 
corre a bytes de memória para armaze- 
nar um número, o que o leva a desperdi- 
çar memória em certas aplicações críti- 
cas. Assim, se você puser um número en- 
tre aspas e usar a função VAL para 
convertê-lo em seu valor numérico, po- 
derá armazená-lo como se fosse um cor- 
dão. No caso de números curtos (ou se- 
ja, com menos de cinco dígitos), esse pro- 
cedimento levará a uma economia de me- 
mória: um byte para cada dígito, um pa- 
ra cada aspa, e um para a função VAL. 





!7:В$=” 


